This homework focuses on pulling data from a New York Times API and converting from the JSON code into an R data base. First I needed to apply for a key. I then decided to focus on the geographical site pulling a list of twenty populated German cities.
library(RJSONIO)
library(RCurl)
q2 <- getURL("http://api.nytimes.com/svc/semantic/v2/geocodes/query.json?feature_class=P&country_code=DE&feature_class=P&api-key=964b66751b69f8042571892d7a0670bd:10:74813960")
head(q2,3)## [1] "{ \n\t\"status\": \"OK\",\n\t\"copyright\": \"Copyright (c) 2015 The New York Times Company. All Rights Reserved.\",\n\t\"num_results\": 20,\n\t\"results\": [\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"23284\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Berlin (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 476,\n\t\t\t\t\"geoname_id\": 2950159,\n\t\t\t\t\"name\": \"Berlin\",\n\t\t\t\t\"latitude\": 52.516667,\n\t\t\t\t\"longitude\": 13.4,\n\t\t\t\t\"elevation\": 74,\n\t\t\t\t\"population\": 3426354,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"16\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Berlin\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLC\",\n\t\t\t\t\"feature_code_name\": \"capital of a political entity\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25092\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Frankfurt (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 1148,\n\t\t\t\t\"geoname_id\": 2925533,\n\t\t\t\t\"name\": \"Frankfurt am Main\",\n\t\t\t\t\"latitude\": 50.116667,\n\t\t\t\t\"longitude\": 8.683333,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 650000,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"05\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Hesse\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"27284\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Munich (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 1336,\n\t\t\t\t\"geoname_id\": 2867714,\n\t\t\t\t\"name\": \"Munich\",\n\t\t\t\t\"latitude\": 48.137433,\n\t\t\t\t\"longitude\": 11.575491,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 1260391,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"02\",\n\t\t\t\t\"admin_code2\": \"DE.BY.OB\",\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Bavaria\",\n\t\t\t\t\"admin_name2\": \"DE.BY.OB\",\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"29920\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Usedom (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2108,\n\t\t\t\t\"geoname_id\": 2818107,\n\t\t\t\t\"name\": \"Usedom\",\n\t\t\t\t\"latitude\": 53.866667,\n\t\t\t\t\"longitude\": 13.916667,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 1929,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"12\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Mecklenburg-Vorpommern\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"24660\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Dresden (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2608,\n\t\t\t\t\"geoname_id\": 2935022,\n\t\t\t\t\"name\": \"Dresden\",\n\t\t\t\t\"latitude\": 51.050891,\n\t\t\t\t\"longitude\": 13.738317,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 486854,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"13\",\n\t\t\t\t\"admin_code2\": \"DE.SN.DR\",\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Saxony\",\n\t\t\t\t\"admin_name2\": \"DE.SN.DR\",\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"24196\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Cologne (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2720,\n\t\t\t\t\"geoname_id\": 2886242,\n\t\t\t\t\"name\": \"Cologne\",\n\t\t\t\t\"latitude\": 50.933333,\n\t\t\t\t\"longitude\": 6.95,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 963395,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"07\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"North Rhine-Westphalia\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25592\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Hamburg (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2760,\n\t\t\t\t\"geoname_id\": 2911298,\n\t\t\t\t\"name\": \"Hamburg\",\n\t\t\t\t\"latitude\": 53.55,\n\t\t\t\t\"longitude\": 10.0,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 1739117,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"04\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Hamburg\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"23432\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Bonn (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2848,\n\t\t\t\t\"geoname_id\": 2946447,\n\t\t\t\t\"name\": \"Bonn\",\n\t\t\t\t\"latitude\": 50.733333,\n\t\t\t\t\"longitude\": 7.1,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 313125,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"07\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"North Rhine-Westphalia\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"29472\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Stuttgart (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 2868,\n\t\t\t\t\"geoname_id\": 2825297,\n\t\t\t\t\"name\": \"Stuttgart\",\n\t\t\t\t\"latitude\": 48.782324,\n\t\t\t\t\"longitude\": 9.177017,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 589793,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"01\",\n\t\t\t\t\"admin_code2\": \"3214105\",\n\t\t\t\t\"admin_code3\": \"08111\",\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Baden-Württemberg\",\n\t\t\t\t\"admin_name2\": \"Regierungsbezirk Stuttgart\",\n\t\t\t\t\"admin_name3\": \"Stadtkreis Stuttgart\",\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"26524\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Leipzig (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 3116,\n\t\t\t\t\"geoname_id\": 2879139,\n\t\t\t\t\"name\": \"Leipzig\",\n\t\t\t\t\"latitude\": 51.33962,\n\t\t\t\t\"longitude\": 12.371292,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 504971,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"13\",\n\t\t\t\t\"admin_code2\": \"DE.SN.LE\",\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Saxony\",\n\t\t\t\t\"admin_name2\": \"DE.SN.LE\",\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"22992\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Baden-Baden (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 3712,\n\t\t\t\t\"geoname_id\": 2953504,\n\t\t\t\t\"name\": \"Baden-Baden\",\n\t\t\t\t\"latitude\": 48.75,\n\t\t\t\t\"longitude\": 8.25,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 54239,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"01\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Baden-Württemberg\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"28332\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Potsdam (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 3892,\n\t\t\t\t\"geoname_id\": 2852458,\n\t\t\t\t\"name\": \"Potsdam\",\n\t\t\t\t\"latitude\": 52.398858,\n\t\t\t\t\"longitude\": 13.065662,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 145292,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"11\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Brandenburg\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"30192\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Weimar (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 4296,\n\t\t\t\t\"geoname_id\": 2812482,\n\t\t\t\t\"name\": \"Weimar\",\n\t\t\t\t\"latitude\": 50.983333,\n\t\t\t\t\"longitude\": 11.316667,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 64727,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"15\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Thuringia\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"23164\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Bayreuth (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 4980,\n\t\t\t\t\"geoname_id\": 2951825,\n\t\t\t\t\"name\": \"Bayreuth\",\n\t\t\t\t\"latitude\": 49.948056,\n\t\t\t\t\"longitude\": 11.578333,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 75061,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"02\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Bavaria\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"24092\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Chiemsee (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6216,\n\t\t\t\t\"geoname_id\": 2940126,\n\t\t\t\t\"name\": \"Chiemsee\",\n\t\t\t\t\"latitude\": 47.866667,\n\t\t\t\t\"longitude\": 12.416667,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 311,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"02\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Bavaria\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"24700\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Dusseldorf (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6396,\n\t\t\t\t\"geoname_id\": 2934246,\n\t\t\t\t\"name\": \"Düsseldorf\",\n\t\t\t\t\"latitude\": 51.221723,\n\t\t\t\t\"longitude\": 6.776161,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 573057,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"07\",\n\t\t\t\t\"admin_code2\": \"DE.NW.DU\",\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"North Rhine-Westphalia\",\n\t\t\t\t\"admin_name2\": \"DE.NW.DU\",\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25604\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Hanau (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6584,\n\t\t\t\t\"geoname_id\": 2911007,\n\t\t\t\t\"name\": \"Hanau\",\n\t\t\t\t\"latitude\": 50.133333,\n\t\t\t\t\"longitude\": 8.916667,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 88648,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"05\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Hesse\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25612\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Hanover (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6588,\n\t\t\t\t\"geoname_id\": 2910831,\n\t\t\t\t\"name\": \"Hanover\",\n\t\t\t\t\"latitude\": 52.370516,\n\t\t\t\t\"longitude\": 9.733222,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 515140,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"06\",\n\t\t\t\t\"admin_code2\": \"DE.NI.HN\",\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Lower Saxony\",\n\t\t\t\t\"admin_name2\": \"DE.NI.HN\",\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPLA\",\n\t\t\t\t\"feature_code_name\": \"seat of a first-order administrative division\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25684\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Heidelberg (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6616,\n\t\t\t\t\"geoname_id\": 2907911,\n\t\t\t\t\"name\": \"Heidelberg\",\n\t\t\t\t\"latitude\": 49.407678,\n\t\t\t\t\"longitude\": 8.690786,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": 143345,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"01\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Baden-Württemberg\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t},\n\t\t\t{\n\t\t\t\t\n\t\t\t\t\"concept_id\": \"25728\",\n\t\t\t\t\n\t\t\t\t\n\t\t\t\t\"concept_name\": \"Hoffenheim (Germany)\",\n\t\t\t\t\n\t\t\t\t\"geocode_id\": 6624,\n\t\t\t\t\"geoname_id\": 2902584,\n\t\t\t\t\"name\": \"Hoffenheim\",\n\t\t\t\t\"latitude\": 49.266667,\n\t\t\t\t\"longitude\": 8.85,\n\t\t\t\t\"elevation\": null,\n\t\t\t\t\"population\": null,\n\t\t\t\t\"country_code\": \"DE\",\n\t\t\t\t\"country_name\": \"Germany\",\n\t\t\t\t\"admin_code1\": \"01\",\n\t\t\t\t\"admin_code2\": null,\n\t\t\t\t\"admin_code3\": null,\n\t\t\t\t\"admin_code4\": null,\n\t\t\t\t\"admin_name1\": \"Baden-Württemberg\",\n\t\t\t\t\"admin_name2\": null,\n\t\t\t\t\"admin_name3\": null,\n\t\t\t\t\"admin_name4\": null,\n\t\t\t\t\"feature_class\": \"P\",\n\t\t\t\t\"feature_code\": \"PPL\",\n\t\t\t\t\"feature_code_name\": \"populated place\",\n\t\t\t\t\"time_zone_id\": \"Europe/Berlin\",\n\t\t\t\t\"dst_offset\": 2.0,\n\t\t\t\t\"gmt_offset\": 1.0,\n\t\t\t\t\"geocodes_created\": \"2013-02-25 15:10:12\",\n\t\t\t\t\"geocodes_updated\": \"2013-02-25 15:10:12\"\n\t\t\t\t}\n\t\t\t]\n}"I used the “fromJSON”" function, then placed the data into a data frame using “sappy”.
q3 <- fromJSON(q2)
head(q3)## $status
## [1] "OK"
##
## $copyright
## [1] "Copyright (c) 2015 The New York Times Company. All Rights Reserved."
##
## $num_results
## [1] 20
##
## $results
## $results[[1]]
## $results[[1]]$concept_id
## [1] "23284"
##
## $results[[1]]$concept_name
## [1] "Berlin (Germany)"
##
## $results[[1]]$geocode_id
## [1] 476
##
## $results[[1]]$geoname_id
## [1] 2950159
##
## $results[[1]]$name
## [1] "Berlin"
##
## $results[[1]]$latitude
## [1] 52.51667
##
## $results[[1]]$longitude
## [1] 13.4
##
## $results[[1]]$elevation
## [1] 74
##
## $results[[1]]$population
## [1] 3426354
##
## $results[[1]]$country_code
## [1] "DE"
##
## $results[[1]]$country_name
## [1] "Germany"
##
## $results[[1]]$admin_code1
## [1] "16"
##
## $results[[1]]$admin_code2
## NULL
##
## $results[[1]]$admin_code3
## NULL
##
## $results[[1]]$admin_code4
## NULL
##
## $results[[1]]$admin_name1
## [1] "Berlin"
##
## $results[[1]]$admin_name2
## NULL
##
## $results[[1]]$admin_name3
## NULL
##
## $results[[1]]$admin_name4
## NULL
##
## $results[[1]]$feature_class
## [1] "P"
##
## $results[[1]]$feature_code
## [1] "PPLC"
##
## $results[[1]]$feature_code_name
## [1] "capital of a political entity"
##
## $results[[1]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[1]]$dst_offset
## [1] 2
##
## $results[[1]]$gmt_offset
## [1] 1
##
## $results[[1]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[1]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[2]]
## $results[[2]]$concept_id
## [1] "25092"
##
## $results[[2]]$concept_name
## [1] "Frankfurt (Germany)"
##
## $results[[2]]$geocode_id
## [1] 1148
##
## $results[[2]]$geoname_id
## [1] 2925533
##
## $results[[2]]$name
## [1] "Frankfurt am Main"
##
## $results[[2]]$latitude
## [1] 50.11667
##
## $results[[2]]$longitude
## [1] 8.683333
##
## $results[[2]]$elevation
## NULL
##
## $results[[2]]$population
## [1] 650000
##
## $results[[2]]$country_code
## [1] "DE"
##
## $results[[2]]$country_name
## [1] "Germany"
##
## $results[[2]]$admin_code1
## [1] "05"
##
## $results[[2]]$admin_code2
## NULL
##
## $results[[2]]$admin_code3
## NULL
##
## $results[[2]]$admin_code4
## NULL
##
## $results[[2]]$admin_name1
## [1] "Hesse"
##
## $results[[2]]$admin_name2
## NULL
##
## $results[[2]]$admin_name3
## NULL
##
## $results[[2]]$admin_name4
## NULL
##
## $results[[2]]$feature_class
## [1] "P"
##
## $results[[2]]$feature_code
## [1] "PPL"
##
## $results[[2]]$feature_code_name
## [1] "populated place"
##
## $results[[2]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[2]]$dst_offset
## [1] 2
##
## $results[[2]]$gmt_offset
## [1] 1
##
## $results[[2]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[2]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[3]]
## $results[[3]]$concept_id
## [1] "27284"
##
## $results[[3]]$concept_name
## [1] "Munich (Germany)"
##
## $results[[3]]$geocode_id
## [1] 1336
##
## $results[[3]]$geoname_id
## [1] 2867714
##
## $results[[3]]$name
## [1] "Munich"
##
## $results[[3]]$latitude
## [1] 48.13743
##
## $results[[3]]$longitude
## [1] 11.57549
##
## $results[[3]]$elevation
## NULL
##
## $results[[3]]$population
## [1] 1260391
##
## $results[[3]]$country_code
## [1] "DE"
##
## $results[[3]]$country_name
## [1] "Germany"
##
## $results[[3]]$admin_code1
## [1] "02"
##
## $results[[3]]$admin_code2
## [1] "DE.BY.OB"
##
## $results[[3]]$admin_code3
## NULL
##
## $results[[3]]$admin_code4
## NULL
##
## $results[[3]]$admin_name1
## [1] "Bavaria"
##
## $results[[3]]$admin_name2
## [1] "DE.BY.OB"
##
## $results[[3]]$admin_name3
## NULL
##
## $results[[3]]$admin_name4
## NULL
##
## $results[[3]]$feature_class
## [1] "P"
##
## $results[[3]]$feature_code
## [1] "PPLA"
##
## $results[[3]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[3]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[3]]$dst_offset
## [1] 2
##
## $results[[3]]$gmt_offset
## [1] 1
##
## $results[[3]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[3]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[4]]
## $results[[4]]$concept_id
## [1] "29920"
##
## $results[[4]]$concept_name
## [1] "Usedom (Germany)"
##
## $results[[4]]$geocode_id
## [1] 2108
##
## $results[[4]]$geoname_id
## [1] 2818107
##
## $results[[4]]$name
## [1] "Usedom"
##
## $results[[4]]$latitude
## [1] 53.86667
##
## $results[[4]]$longitude
## [1] 13.91667
##
## $results[[4]]$elevation
## NULL
##
## $results[[4]]$population
## [1] 1929
##
## $results[[4]]$country_code
## [1] "DE"
##
## $results[[4]]$country_name
## [1] "Germany"
##
## $results[[4]]$admin_code1
## [1] "12"
##
## $results[[4]]$admin_code2
## NULL
##
## $results[[4]]$admin_code3
## NULL
##
## $results[[4]]$admin_code4
## NULL
##
## $results[[4]]$admin_name1
## [1] "Mecklenburg-Vorpommern"
##
## $results[[4]]$admin_name2
## NULL
##
## $results[[4]]$admin_name3
## NULL
##
## $results[[4]]$admin_name4
## NULL
##
## $results[[4]]$feature_class
## [1] "P"
##
## $results[[4]]$feature_code
## [1] "PPL"
##
## $results[[4]]$feature_code_name
## [1] "populated place"
##
## $results[[4]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[4]]$dst_offset
## [1] 2
##
## $results[[4]]$gmt_offset
## [1] 1
##
## $results[[4]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[4]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[5]]
## $results[[5]]$concept_id
## [1] "24660"
##
## $results[[5]]$concept_name
## [1] "Dresden (Germany)"
##
## $results[[5]]$geocode_id
## [1] 2608
##
## $results[[5]]$geoname_id
## [1] 2935022
##
## $results[[5]]$name
## [1] "Dresden"
##
## $results[[5]]$latitude
## [1] 51.05089
##
## $results[[5]]$longitude
## [1] 13.73832
##
## $results[[5]]$elevation
## NULL
##
## $results[[5]]$population
## [1] 486854
##
## $results[[5]]$country_code
## [1] "DE"
##
## $results[[5]]$country_name
## [1] "Germany"
##
## $results[[5]]$admin_code1
## [1] "13"
##
## $results[[5]]$admin_code2
## [1] "DE.SN.DR"
##
## $results[[5]]$admin_code3
## NULL
##
## $results[[5]]$admin_code4
## NULL
##
## $results[[5]]$admin_name1
## [1] "Saxony"
##
## $results[[5]]$admin_name2
## [1] "DE.SN.DR"
##
## $results[[5]]$admin_name3
## NULL
##
## $results[[5]]$admin_name4
## NULL
##
## $results[[5]]$feature_class
## [1] "P"
##
## $results[[5]]$feature_code
## [1] "PPLA"
##
## $results[[5]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[5]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[5]]$dst_offset
## [1] 2
##
## $results[[5]]$gmt_offset
## [1] 1
##
## $results[[5]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[5]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[6]]
## $results[[6]]$concept_id
## [1] "24196"
##
## $results[[6]]$concept_name
## [1] "Cologne (Germany)"
##
## $results[[6]]$geocode_id
## [1] 2720
##
## $results[[6]]$geoname_id
## [1] 2886242
##
## $results[[6]]$name
## [1] "Cologne"
##
## $results[[6]]$latitude
## [1] 50.93333
##
## $results[[6]]$longitude
## [1] 6.95
##
## $results[[6]]$elevation
## NULL
##
## $results[[6]]$population
## [1] 963395
##
## $results[[6]]$country_code
## [1] "DE"
##
## $results[[6]]$country_name
## [1] "Germany"
##
## $results[[6]]$admin_code1
## [1] "07"
##
## $results[[6]]$admin_code2
## NULL
##
## $results[[6]]$admin_code3
## NULL
##
## $results[[6]]$admin_code4
## NULL
##
## $results[[6]]$admin_name1
## [1] "North Rhine-Westphalia"
##
## $results[[6]]$admin_name2
## NULL
##
## $results[[6]]$admin_name3
## NULL
##
## $results[[6]]$admin_name4
## NULL
##
## $results[[6]]$feature_class
## [1] "P"
##
## $results[[6]]$feature_code
## [1] "PPL"
##
## $results[[6]]$feature_code_name
## [1] "populated place"
##
## $results[[6]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[6]]$dst_offset
## [1] 2
##
## $results[[6]]$gmt_offset
## [1] 1
##
## $results[[6]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[6]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[7]]
## $results[[7]]$concept_id
## [1] "25592"
##
## $results[[7]]$concept_name
## [1] "Hamburg (Germany)"
##
## $results[[7]]$geocode_id
## [1] 2760
##
## $results[[7]]$geoname_id
## [1] 2911298
##
## $results[[7]]$name
## [1] "Hamburg"
##
## $results[[7]]$latitude
## [1] 53.55
##
## $results[[7]]$longitude
## [1] 10
##
## $results[[7]]$elevation
## NULL
##
## $results[[7]]$population
## [1] 1739117
##
## $results[[7]]$country_code
## [1] "DE"
##
## $results[[7]]$country_name
## [1] "Germany"
##
## $results[[7]]$admin_code1
## [1] "04"
##
## $results[[7]]$admin_code2
## NULL
##
## $results[[7]]$admin_code3
## NULL
##
## $results[[7]]$admin_code4
## NULL
##
## $results[[7]]$admin_name1
## [1] "Hamburg"
##
## $results[[7]]$admin_name2
## NULL
##
## $results[[7]]$admin_name3
## NULL
##
## $results[[7]]$admin_name4
## NULL
##
## $results[[7]]$feature_class
## [1] "P"
##
## $results[[7]]$feature_code
## [1] "PPLA"
##
## $results[[7]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[7]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[7]]$dst_offset
## [1] 2
##
## $results[[7]]$gmt_offset
## [1] 1
##
## $results[[7]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[7]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[8]]
## $results[[8]]$concept_id
## [1] "23432"
##
## $results[[8]]$concept_name
## [1] "Bonn (Germany)"
##
## $results[[8]]$geocode_id
## [1] 2848
##
## $results[[8]]$geoname_id
## [1] 2946447
##
## $results[[8]]$name
## [1] "Bonn"
##
## $results[[8]]$latitude
## [1] 50.73333
##
## $results[[8]]$longitude
## [1] 7.1
##
## $results[[8]]$elevation
## NULL
##
## $results[[8]]$population
## [1] 313125
##
## $results[[8]]$country_code
## [1] "DE"
##
## $results[[8]]$country_name
## [1] "Germany"
##
## $results[[8]]$admin_code1
## [1] "07"
##
## $results[[8]]$admin_code2
## NULL
##
## $results[[8]]$admin_code3
## NULL
##
## $results[[8]]$admin_code4
## NULL
##
## $results[[8]]$admin_name1
## [1] "North Rhine-Westphalia"
##
## $results[[8]]$admin_name2
## NULL
##
## $results[[8]]$admin_name3
## NULL
##
## $results[[8]]$admin_name4
## NULL
##
## $results[[8]]$feature_class
## [1] "P"
##
## $results[[8]]$feature_code
## [1] "PPL"
##
## $results[[8]]$feature_code_name
## [1] "populated place"
##
## $results[[8]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[8]]$dst_offset
## [1] 2
##
## $results[[8]]$gmt_offset
## [1] 1
##
## $results[[8]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[8]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[9]]
## $results[[9]]$concept_id
## [1] "29472"
##
## $results[[9]]$concept_name
## [1] "Stuttgart (Germany)"
##
## $results[[9]]$geocode_id
## [1] 2868
##
## $results[[9]]$geoname_id
## [1] 2825297
##
## $results[[9]]$name
## [1] "Stuttgart"
##
## $results[[9]]$latitude
## [1] 48.78232
##
## $results[[9]]$longitude
## [1] 9.177017
##
## $results[[9]]$elevation
## NULL
##
## $results[[9]]$population
## [1] 589793
##
## $results[[9]]$country_code
## [1] "DE"
##
## $results[[9]]$country_name
## [1] "Germany"
##
## $results[[9]]$admin_code1
## [1] "01"
##
## $results[[9]]$admin_code2
## [1] "3214105"
##
## $results[[9]]$admin_code3
## [1] "08111"
##
## $results[[9]]$admin_code4
## NULL
##
## $results[[9]]$admin_name1
## [1] "Baden-Württemberg"
##
## $results[[9]]$admin_name2
## [1] "Regierungsbezirk Stuttgart"
##
## $results[[9]]$admin_name3
## [1] "Stadtkreis Stuttgart"
##
## $results[[9]]$admin_name4
## NULL
##
## $results[[9]]$feature_class
## [1] "P"
##
## $results[[9]]$feature_code
## [1] "PPLA"
##
## $results[[9]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[9]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[9]]$dst_offset
## [1] 2
##
## $results[[9]]$gmt_offset
## [1] 1
##
## $results[[9]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[9]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[10]]
## $results[[10]]$concept_id
## [1] "26524"
##
## $results[[10]]$concept_name
## [1] "Leipzig (Germany)"
##
## $results[[10]]$geocode_id
## [1] 3116
##
## $results[[10]]$geoname_id
## [1] 2879139
##
## $results[[10]]$name
## [1] "Leipzig"
##
## $results[[10]]$latitude
## [1] 51.33962
##
## $results[[10]]$longitude
## [1] 12.37129
##
## $results[[10]]$elevation
## NULL
##
## $results[[10]]$population
## [1] 504971
##
## $results[[10]]$country_code
## [1] "DE"
##
## $results[[10]]$country_name
## [1] "Germany"
##
## $results[[10]]$admin_code1
## [1] "13"
##
## $results[[10]]$admin_code2
## [1] "DE.SN.LE"
##
## $results[[10]]$admin_code3
## NULL
##
## $results[[10]]$admin_code4
## NULL
##
## $results[[10]]$admin_name1
## [1] "Saxony"
##
## $results[[10]]$admin_name2
## [1] "DE.SN.LE"
##
## $results[[10]]$admin_name3
## NULL
##
## $results[[10]]$admin_name4
## NULL
##
## $results[[10]]$feature_class
## [1] "P"
##
## $results[[10]]$feature_code
## [1] "PPL"
##
## $results[[10]]$feature_code_name
## [1] "populated place"
##
## $results[[10]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[10]]$dst_offset
## [1] 2
##
## $results[[10]]$gmt_offset
## [1] 1
##
## $results[[10]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[10]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[11]]
## $results[[11]]$concept_id
## [1] "22992"
##
## $results[[11]]$concept_name
## [1] "Baden-Baden (Germany)"
##
## $results[[11]]$geocode_id
## [1] 3712
##
## $results[[11]]$geoname_id
## [1] 2953504
##
## $results[[11]]$name
## [1] "Baden-Baden"
##
## $results[[11]]$latitude
## [1] 48.75
##
## $results[[11]]$longitude
## [1] 8.25
##
## $results[[11]]$elevation
## NULL
##
## $results[[11]]$population
## [1] 54239
##
## $results[[11]]$country_code
## [1] "DE"
##
## $results[[11]]$country_name
## [1] "Germany"
##
## $results[[11]]$admin_code1
## [1] "01"
##
## $results[[11]]$admin_code2
## NULL
##
## $results[[11]]$admin_code3
## NULL
##
## $results[[11]]$admin_code4
## NULL
##
## $results[[11]]$admin_name1
## [1] "Baden-Württemberg"
##
## $results[[11]]$admin_name2
## NULL
##
## $results[[11]]$admin_name3
## NULL
##
## $results[[11]]$admin_name4
## NULL
##
## $results[[11]]$feature_class
## [1] "P"
##
## $results[[11]]$feature_code
## [1] "PPL"
##
## $results[[11]]$feature_code_name
## [1] "populated place"
##
## $results[[11]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[11]]$dst_offset
## [1] 2
##
## $results[[11]]$gmt_offset
## [1] 1
##
## $results[[11]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[11]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[12]]
## $results[[12]]$concept_id
## [1] "28332"
##
## $results[[12]]$concept_name
## [1] "Potsdam (Germany)"
##
## $results[[12]]$geocode_id
## [1] 3892
##
## $results[[12]]$geoname_id
## [1] 2852458
##
## $results[[12]]$name
## [1] "Potsdam"
##
## $results[[12]]$latitude
## [1] 52.39886
##
## $results[[12]]$longitude
## [1] 13.06566
##
## $results[[12]]$elevation
## NULL
##
## $results[[12]]$population
## [1] 145292
##
## $results[[12]]$country_code
## [1] "DE"
##
## $results[[12]]$country_name
## [1] "Germany"
##
## $results[[12]]$admin_code1
## [1] "11"
##
## $results[[12]]$admin_code2
## NULL
##
## $results[[12]]$admin_code3
## NULL
##
## $results[[12]]$admin_code4
## NULL
##
## $results[[12]]$admin_name1
## [1] "Brandenburg"
##
## $results[[12]]$admin_name2
## NULL
##
## $results[[12]]$admin_name3
## NULL
##
## $results[[12]]$admin_name4
## NULL
##
## $results[[12]]$feature_class
## [1] "P"
##
## $results[[12]]$feature_code
## [1] "PPLA"
##
## $results[[12]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[12]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[12]]$dst_offset
## [1] 2
##
## $results[[12]]$gmt_offset
## [1] 1
##
## $results[[12]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[12]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[13]]
## $results[[13]]$concept_id
## [1] "30192"
##
## $results[[13]]$concept_name
## [1] "Weimar (Germany)"
##
## $results[[13]]$geocode_id
## [1] 4296
##
## $results[[13]]$geoname_id
## [1] 2812482
##
## $results[[13]]$name
## [1] "Weimar"
##
## $results[[13]]$latitude
## [1] 50.98333
##
## $results[[13]]$longitude
## [1] 11.31667
##
## $results[[13]]$elevation
## NULL
##
## $results[[13]]$population
## [1] 64727
##
## $results[[13]]$country_code
## [1] "DE"
##
## $results[[13]]$country_name
## [1] "Germany"
##
## $results[[13]]$admin_code1
## [1] "15"
##
## $results[[13]]$admin_code2
## NULL
##
## $results[[13]]$admin_code3
## NULL
##
## $results[[13]]$admin_code4
## NULL
##
## $results[[13]]$admin_name1
## [1] "Thuringia"
##
## $results[[13]]$admin_name2
## NULL
##
## $results[[13]]$admin_name3
## NULL
##
## $results[[13]]$admin_name4
## NULL
##
## $results[[13]]$feature_class
## [1] "P"
##
## $results[[13]]$feature_code
## [1] "PPL"
##
## $results[[13]]$feature_code_name
## [1] "populated place"
##
## $results[[13]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[13]]$dst_offset
## [1] 2
##
## $results[[13]]$gmt_offset
## [1] 1
##
## $results[[13]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[13]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[14]]
## $results[[14]]$concept_id
## [1] "23164"
##
## $results[[14]]$concept_name
## [1] "Bayreuth (Germany)"
##
## $results[[14]]$geocode_id
## [1] 4980
##
## $results[[14]]$geoname_id
## [1] 2951825
##
## $results[[14]]$name
## [1] "Bayreuth"
##
## $results[[14]]$latitude
## [1] 49.94806
##
## $results[[14]]$longitude
## [1] 11.57833
##
## $results[[14]]$elevation
## NULL
##
## $results[[14]]$population
## [1] 75061
##
## $results[[14]]$country_code
## [1] "DE"
##
## $results[[14]]$country_name
## [1] "Germany"
##
## $results[[14]]$admin_code1
## [1] "02"
##
## $results[[14]]$admin_code2
## NULL
##
## $results[[14]]$admin_code3
## NULL
##
## $results[[14]]$admin_code4
## NULL
##
## $results[[14]]$admin_name1
## [1] "Bavaria"
##
## $results[[14]]$admin_name2
## NULL
##
## $results[[14]]$admin_name3
## NULL
##
## $results[[14]]$admin_name4
## NULL
##
## $results[[14]]$feature_class
## [1] "P"
##
## $results[[14]]$feature_code
## [1] "PPL"
##
## $results[[14]]$feature_code_name
## [1] "populated place"
##
## $results[[14]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[14]]$dst_offset
## [1] 2
##
## $results[[14]]$gmt_offset
## [1] 1
##
## $results[[14]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[14]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[15]]
## $results[[15]]$concept_id
## [1] "24092"
##
## $results[[15]]$concept_name
## [1] "Chiemsee (Germany)"
##
## $results[[15]]$geocode_id
## [1] 6216
##
## $results[[15]]$geoname_id
## [1] 2940126
##
## $results[[15]]$name
## [1] "Chiemsee"
##
## $results[[15]]$latitude
## [1] 47.86667
##
## $results[[15]]$longitude
## [1] 12.41667
##
## $results[[15]]$elevation
## NULL
##
## $results[[15]]$population
## [1] 311
##
## $results[[15]]$country_code
## [1] "DE"
##
## $results[[15]]$country_name
## [1] "Germany"
##
## $results[[15]]$admin_code1
## [1] "02"
##
## $results[[15]]$admin_code2
## NULL
##
## $results[[15]]$admin_code3
## NULL
##
## $results[[15]]$admin_code4
## NULL
##
## $results[[15]]$admin_name1
## [1] "Bavaria"
##
## $results[[15]]$admin_name2
## NULL
##
## $results[[15]]$admin_name3
## NULL
##
## $results[[15]]$admin_name4
## NULL
##
## $results[[15]]$feature_class
## [1] "P"
##
## $results[[15]]$feature_code
## [1] "PPL"
##
## $results[[15]]$feature_code_name
## [1] "populated place"
##
## $results[[15]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[15]]$dst_offset
## [1] 2
##
## $results[[15]]$gmt_offset
## [1] 1
##
## $results[[15]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[15]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[16]]
## $results[[16]]$concept_id
## [1] "24700"
##
## $results[[16]]$concept_name
## [1] "Dusseldorf (Germany)"
##
## $results[[16]]$geocode_id
## [1] 6396
##
## $results[[16]]$geoname_id
## [1] 2934246
##
## $results[[16]]$name
## [1] "Düsseldorf"
##
## $results[[16]]$latitude
## [1] 51.22172
##
## $results[[16]]$longitude
## [1] 6.776161
##
## $results[[16]]$elevation
## NULL
##
## $results[[16]]$population
## [1] 573057
##
## $results[[16]]$country_code
## [1] "DE"
##
## $results[[16]]$country_name
## [1] "Germany"
##
## $results[[16]]$admin_code1
## [1] "07"
##
## $results[[16]]$admin_code2
## [1] "DE.NW.DU"
##
## $results[[16]]$admin_code3
## NULL
##
## $results[[16]]$admin_code4
## NULL
##
## $results[[16]]$admin_name1
## [1] "North Rhine-Westphalia"
##
## $results[[16]]$admin_name2
## [1] "DE.NW.DU"
##
## $results[[16]]$admin_name3
## NULL
##
## $results[[16]]$admin_name4
## NULL
##
## $results[[16]]$feature_class
## [1] "P"
##
## $results[[16]]$feature_code
## [1] "PPLA"
##
## $results[[16]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[16]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[16]]$dst_offset
## [1] 2
##
## $results[[16]]$gmt_offset
## [1] 1
##
## $results[[16]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[16]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[17]]
## $results[[17]]$concept_id
## [1] "25604"
##
## $results[[17]]$concept_name
## [1] "Hanau (Germany)"
##
## $results[[17]]$geocode_id
## [1] 6584
##
## $results[[17]]$geoname_id
## [1] 2911007
##
## $results[[17]]$name
## [1] "Hanau"
##
## $results[[17]]$latitude
## [1] 50.13333
##
## $results[[17]]$longitude
## [1] 8.916667
##
## $results[[17]]$elevation
## NULL
##
## $results[[17]]$population
## [1] 88648
##
## $results[[17]]$country_code
## [1] "DE"
##
## $results[[17]]$country_name
## [1] "Germany"
##
## $results[[17]]$admin_code1
## [1] "05"
##
## $results[[17]]$admin_code2
## NULL
##
## $results[[17]]$admin_code3
## NULL
##
## $results[[17]]$admin_code4
## NULL
##
## $results[[17]]$admin_name1
## [1] "Hesse"
##
## $results[[17]]$admin_name2
## NULL
##
## $results[[17]]$admin_name3
## NULL
##
## $results[[17]]$admin_name4
## NULL
##
## $results[[17]]$feature_class
## [1] "P"
##
## $results[[17]]$feature_code
## [1] "PPL"
##
## $results[[17]]$feature_code_name
## [1] "populated place"
##
## $results[[17]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[17]]$dst_offset
## [1] 2
##
## $results[[17]]$gmt_offset
## [1] 1
##
## $results[[17]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[17]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[18]]
## $results[[18]]$concept_id
## [1] "25612"
##
## $results[[18]]$concept_name
## [1] "Hanover (Germany)"
##
## $results[[18]]$geocode_id
## [1] 6588
##
## $results[[18]]$geoname_id
## [1] 2910831
##
## $results[[18]]$name
## [1] "Hanover"
##
## $results[[18]]$latitude
## [1] 52.37052
##
## $results[[18]]$longitude
## [1] 9.733222
##
## $results[[18]]$elevation
## NULL
##
## $results[[18]]$population
## [1] 515140
##
## $results[[18]]$country_code
## [1] "DE"
##
## $results[[18]]$country_name
## [1] "Germany"
##
## $results[[18]]$admin_code1
## [1] "06"
##
## $results[[18]]$admin_code2
## [1] "DE.NI.HN"
##
## $results[[18]]$admin_code3
## NULL
##
## $results[[18]]$admin_code4
## NULL
##
## $results[[18]]$admin_name1
## [1] "Lower Saxony"
##
## $results[[18]]$admin_name2
## [1] "DE.NI.HN"
##
## $results[[18]]$admin_name3
## NULL
##
## $results[[18]]$admin_name4
## NULL
##
## $results[[18]]$feature_class
## [1] "P"
##
## $results[[18]]$feature_code
## [1] "PPLA"
##
## $results[[18]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## $results[[18]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[18]]$dst_offset
## [1] 2
##
## $results[[18]]$gmt_offset
## [1] 1
##
## $results[[18]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[18]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[19]]
## $results[[19]]$concept_id
## [1] "25684"
##
## $results[[19]]$concept_name
## [1] "Heidelberg (Germany)"
##
## $results[[19]]$geocode_id
## [1] 6616
##
## $results[[19]]$geoname_id
## [1] 2907911
##
## $results[[19]]$name
## [1] "Heidelberg"
##
## $results[[19]]$latitude
## [1] 49.40768
##
## $results[[19]]$longitude
## [1] 8.690786
##
## $results[[19]]$elevation
## NULL
##
## $results[[19]]$population
## [1] 143345
##
## $results[[19]]$country_code
## [1] "DE"
##
## $results[[19]]$country_name
## [1] "Germany"
##
## $results[[19]]$admin_code1
## [1] "01"
##
## $results[[19]]$admin_code2
## NULL
##
## $results[[19]]$admin_code3
## NULL
##
## $results[[19]]$admin_code4
## NULL
##
## $results[[19]]$admin_name1
## [1] "Baden-Württemberg"
##
## $results[[19]]$admin_name2
## NULL
##
## $results[[19]]$admin_name3
## NULL
##
## $results[[19]]$admin_name4
## NULL
##
## $results[[19]]$feature_class
## [1] "P"
##
## $results[[19]]$feature_code
## [1] "PPL"
##
## $results[[19]]$feature_code_name
## [1] "populated place"
##
## $results[[19]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[19]]$dst_offset
## [1] 2
##
## $results[[19]]$gmt_offset
## [1] 1
##
## $results[[19]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[19]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## $results[[20]]
## $results[[20]]$concept_id
## [1] "25728"
##
## $results[[20]]$concept_name
## [1] "Hoffenheim (Germany)"
##
## $results[[20]]$geocode_id
## [1] 6624
##
## $results[[20]]$geoname_id
## [1] 2902584
##
## $results[[20]]$name
## [1] "Hoffenheim"
##
## $results[[20]]$latitude
## [1] 49.26667
##
## $results[[20]]$longitude
## [1] 8.85
##
## $results[[20]]$elevation
## NULL
##
## $results[[20]]$population
## NULL
##
## $results[[20]]$country_code
## [1] "DE"
##
## $results[[20]]$country_name
## [1] "Germany"
##
## $results[[20]]$admin_code1
## [1] "01"
##
## $results[[20]]$admin_code2
## NULL
##
## $results[[20]]$admin_code3
## NULL
##
## $results[[20]]$admin_code4
## NULL
##
## $results[[20]]$admin_name1
## [1] "Baden-Württemberg"
##
## $results[[20]]$admin_name2
## NULL
##
## $results[[20]]$admin_name3
## NULL
##
## $results[[20]]$admin_name4
## NULL
##
## $results[[20]]$feature_class
## [1] "P"
##
## $results[[20]]$feature_code
## [1] "PPL"
##
## $results[[20]]$feature_code_name
## [1] "populated place"
##
## $results[[20]]$time_zone_id
## [1] "Europe/Berlin"
##
## $results[[20]]$dst_offset
## [1] 2
##
## $results[[20]]$gmt_offset
## [1] 1
##
## $results[[20]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## $results[[20]]$geocodes_updated
## [1] "2013-02-25 15:10:12"q4 <- q3$`results`
head(q4,3)## [[1]]
## [[1]]$concept_id
## [1] "23284"
##
## [[1]]$concept_name
## [1] "Berlin (Germany)"
##
## [[1]]$geocode_id
## [1] 476
##
## [[1]]$geoname_id
## [1] 2950159
##
## [[1]]$name
## [1] "Berlin"
##
## [[1]]$latitude
## [1] 52.51667
##
## [[1]]$longitude
## [1] 13.4
##
## [[1]]$elevation
## [1] 74
##
## [[1]]$population
## [1] 3426354
##
## [[1]]$country_code
## [1] "DE"
##
## [[1]]$country_name
## [1] "Germany"
##
## [[1]]$admin_code1
## [1] "16"
##
## [[1]]$admin_code2
## NULL
##
## [[1]]$admin_code3
## NULL
##
## [[1]]$admin_code4
## NULL
##
## [[1]]$admin_name1
## [1] "Berlin"
##
## [[1]]$admin_name2
## NULL
##
## [[1]]$admin_name3
## NULL
##
## [[1]]$admin_name4
## NULL
##
## [[1]]$feature_class
## [1] "P"
##
## [[1]]$feature_code
## [1] "PPLC"
##
## [[1]]$feature_code_name
## [1] "capital of a political entity"
##
## [[1]]$time_zone_id
## [1] "Europe/Berlin"
##
## [[1]]$dst_offset
## [1] 2
##
## [[1]]$gmt_offset
## [1] 1
##
## [[1]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## [[1]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## [[2]]
## [[2]]$concept_id
## [1] "25092"
##
## [[2]]$concept_name
## [1] "Frankfurt (Germany)"
##
## [[2]]$geocode_id
## [1] 1148
##
## [[2]]$geoname_id
## [1] 2925533
##
## [[2]]$name
## [1] "Frankfurt am Main"
##
## [[2]]$latitude
## [1] 50.11667
##
## [[2]]$longitude
## [1] 8.683333
##
## [[2]]$elevation
## NULL
##
## [[2]]$population
## [1] 650000
##
## [[2]]$country_code
## [1] "DE"
##
## [[2]]$country_name
## [1] "Germany"
##
## [[2]]$admin_code1
## [1] "05"
##
## [[2]]$admin_code2
## NULL
##
## [[2]]$admin_code3
## NULL
##
## [[2]]$admin_code4
## NULL
##
## [[2]]$admin_name1
## [1] "Hesse"
##
## [[2]]$admin_name2
## NULL
##
## [[2]]$admin_name3
## NULL
##
## [[2]]$admin_name4
## NULL
##
## [[2]]$feature_class
## [1] "P"
##
## [[2]]$feature_code
## [1] "PPL"
##
## [[2]]$feature_code_name
## [1] "populated place"
##
## [[2]]$time_zone_id
## [1] "Europe/Berlin"
##
## [[2]]$dst_offset
## [1] 2
##
## [[2]]$gmt_offset
## [1] 1
##
## [[2]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## [[2]]$geocodes_updated
## [1] "2013-02-25 15:10:12"
##
##
## [[3]]
## [[3]]$concept_id
## [1] "27284"
##
## [[3]]$concept_name
## [1] "Munich (Germany)"
##
## [[3]]$geocode_id
## [1] 1336
##
## [[3]]$geoname_id
## [1] 2867714
##
## [[3]]$name
## [1] "Munich"
##
## [[3]]$latitude
## [1] 48.13743
##
## [[3]]$longitude
## [1] 11.57549
##
## [[3]]$elevation
## NULL
##
## [[3]]$population
## [1] 1260391
##
## [[3]]$country_code
## [1] "DE"
##
## [[3]]$country_name
## [1] "Germany"
##
## [[3]]$admin_code1
## [1] "02"
##
## [[3]]$admin_code2
## [1] "DE.BY.OB"
##
## [[3]]$admin_code3
## NULL
##
## [[3]]$admin_code4
## NULL
##
## [[3]]$admin_name1
## [1] "Bavaria"
##
## [[3]]$admin_name2
## [1] "DE.BY.OB"
##
## [[3]]$admin_name3
## NULL
##
## [[3]]$admin_name4
## NULL
##
## [[3]]$feature_class
## [1] "P"
##
## [[3]]$feature_code
## [1] "PPLA"
##
## [[3]]$feature_code_name
## [1] "seat of a first-order administrative division"
##
## [[3]]$time_zone_id
## [1] "Europe/Berlin"
##
## [[3]]$dst_offset
## [1] 2
##
## [[3]]$gmt_offset
## [1] 1
##
## [[3]]$geocodes_created
## [1] "2013-02-25 15:10:12"
##
## [[3]]$geocodes_updated
## [1] "2013-02-25 15:10:12"q5 <- data.frame(t(sapply(q4,c)))
head(q5,3)## concept_id concept_name geocode_id geoname_id name
## 1 23284 Berlin (Germany) 476 2950159 Berlin
## 2 25092 Frankfurt (Germany) 1148 2925533 Frankfurt am Main
## 3 27284 Munich (Germany) 1336 2867714 Munich
## latitude longitude elevation population country_code country_name
## 1 52.51667 13.4 74 3426354 DE Germany
## 2 50.11667 8.683333 NULL 650000 DE Germany
## 3 48.13743 11.57549 NULL 1260391 DE Germany
## admin_code1 admin_code2 admin_code3 admin_code4 admin_name1 admin_name2
## 1 16 NULL NULL NULL Berlin NULL
## 2 05 NULL NULL NULL Hesse NULL
## 3 02 DE.BY.OB NULL NULL Bavaria DE.BY.OB
## admin_name3 admin_name4 feature_class feature_code
## 1 NULL NULL P PPLC
## 2 NULL NULL P PPL
## 3 NULL NULL P PPLA
## feature_code_name time_zone_id dst_offset
## 1 capital of a political entity Europe/Berlin 2
## 2 populated place Europe/Berlin 2
## 3 seat of a first-order administrative division Europe/Berlin 2
## gmt_offset geocodes_created geocodes_updated
## 1 1 2013-02-25 15:10:12 2013-02-25 15:10:12
## 2 1 2013-02-25 15:10:12 2013-02-25 15:10:12
## 3 1 2013-02-25 15:10:12 2013-02-25 15:10:12I cleaned up the data frame for usability by keeping only the most useful columns and renaming them for readability.
q6 <- subset(q5[,c(5:7,9,11,16)])
colnames(q6) <-c("City", "Latitude", "Longitude", "Population", "Country", "State")
q6## City Latitude Longitude Population Country
## 1 Berlin 52.51667 13.4 3426354 Germany
## 2 Frankfurt am Main 50.11667 8.683333 650000 Germany
## 3 Munich 48.13743 11.57549 1260391 Germany
## 4 Usedom 53.86667 13.91667 1929 Germany
## 5 Dresden 51.05089 13.73832 486854 Germany
## 6 Cologne 50.93333 6.95 963395 Germany
## 7 Hamburg 53.55 10 1739117 Germany
## 8 Bonn 50.73333 7.1 313125 Germany
## 9 Stuttgart 48.78232 9.177017 589793 Germany
## 10 Leipzig 51.33962 12.37129 504971 Germany
## 11 Baden-Baden 48.75 8.25 54239 Germany
## 12 Potsdam 52.39886 13.06566 145292 Germany
## 13 Weimar 50.98333 11.31667 64727 Germany
## 14 Bayreuth 49.94806 11.57833 75061 Germany
## 15 Chiemsee 47.86667 12.41667 311 Germany
## 16 Düsseldorf 51.22172 6.776161 573057 Germany
## 17 Hanau 50.13333 8.916667 88648 Germany
## 18 Hanover 52.37052 9.733222 515140 Germany
## 19 Heidelberg 49.40768 8.690786 143345 Germany
## 20 Hoffenheim 49.26667 8.85 NULL Germany
## State
## 1 Berlin
## 2 Hesse
## 3 Bavaria
## 4 Mecklenburg-Vorpommern
## 5 Saxony
## 6 North Rhine-Westphalia
## 7 Hamburg
## 8 North Rhine-Westphalia
## 9 Baden-Württemberg
## 10 Saxony
## 11 Baden-Württemberg
## 12 Brandenburg
## 13 Thuringia
## 14 Bavaria
## 15 Bavaria
## 16 North Rhine-Westphalia
## 17 Hesse
## 18 Lower Saxony
## 19 Baden-Württemberg
## 20 Baden-Württemberg