World cup country Geo location

country_distance.cyp

MATCH (c1:Country)
MATCH (c2:Country)
WHERE c1 <> c2
WITH c1, c2, 2 * 6371 * asin(sqrt(haversin(radians(c1.lat - c2.lat))+ cos(radians(c1.lat))*
  cos(radians(c2.lat))* haversin(radians(c1.lon - c2.lon)))) AS dist
WHERE dist > 0
RETURN c1.name, c2.name, dist
ORDER BY dist
LIMIT 1000

country_geo_location.cyp

LOAD CSV WITH HEADERS FROM "http://techslides.com/demos/country-capitals.csv" AS line
WITH line, CASE line.CountryName 
WHEN 'South Korea' THEN ['Korea Republic']
WHEN 'United Kingdom' THEN ['England', 'Scotland', 'Wales']
WHEN 'United States' THEN ['USA']
WHEN "Cote d'Ivoire" THEN ["Côte d'Ivoire"]
WHEN 'North Korea' THEN ['Korea DPR']
WHEN 'Serbia' THEN ['Serbia and Montenegro', 'Yugoslavia']
WHEN 'Japan' THEN ['Korea/Japan']
WHEN 'China' THEN ['China PR']
WHEN 'Ireland' THEN ['Republic of Ireland', 'Northern Ireland']
WHEN 'Russia' THEN ['Soviet Union']
WHEN 'Germany' THEN ['Germany FR', 'German DR']
WHEN 'Czech Republic' THEN ['Czechoslovakia']
WHEN 'Republic of Congo' THEN ['Zaire']
WHEN 'Indonesia' THEN ['Dutch East Indies']
END as countryNames
MATCH (country:Country)
WHERE country.name IN countryNames OR country.name = line.CountryName
// data is screwed up for United States, because captial city field contains a comma!
SET country.lon = toFloat(CASE line.CountryName WHEN 'United States' THEN line.CountryCode ELSE line.CapitalLongitude END)
SET country.lat = toFloat(CASE line.CountryName WHEN 'United States' THEN line.CapitalLongitude ELSE line.CapitalLatitude END)
RETURN count(country)