url <- "http://www.google.com/fusiontables/api/query?sql=SELECT+*+FROM+3166152" trainData <- read.csv(url, stringsAsFactors=TRUE, check.names=FALSE) head(trainData) Bahnhof Zugeinfahrten verspätet Quote Verspätung Schnitt rel. Schnitt abs. Land lat lon 1 Roma Termini 299 69 0.231 1980 28.70 6.62 IT 41.90032 12.50116 2 Roskilde st 498 81 0.163 3290 40.62 6.61 DK 55.64046 12.09092 3 Paris Est 3287 759 0.231 21405 28.20 6.51 FR 44.91824 1.92274 4 Ringsted st 225 41 0.182 1445 35.24 6.42 DK 55.44587 11.78762 5 Knittelfeld 149 12 0.081 850 70.83 5.70 AT 47.21395 14.82919 6 Odense st 723 95 0.131 4100 43.16 5.67 DK 55.39617 10.39079