`islandcities` <-
structure(list(country = structure(c(3L, 4L, 7L, 1L, 1L, 3L, 
4L, 7L, 2L, 4L, 3L, 5L, 5L, 4L, 4L, 3L, 4L, 6L, 1L), .Label = c("Australia", 
"Cuba", "Indonesia", "Japan", "Philippines", "Taiwan", "United Kingdom"
), class = "factor"), Population = c(9.4, 8.1, 6.9, 3.7, 3.2, 
2.7, 2.6, 2.6, 2.2, 2.1, 1.9, 1.8, 1.8, 1.7, 1.5, 1.5, 1.5, 1.4, 
1.4)), .Names = c("country", "Population"), class = "data.frame", row.names = c("Jakarta", 
"Tokyo", "London", "Sydney", "Melbourne", "Surabaya", "Osaka", 
"Manchester", "Havana", "Nagoya", "Bandung", "Quezon City", "Manila", 
"Sapporo", "Kobe", "Semarang", "Kyoto", "Gaoxiong", "Brisbane"
))