earthquakes <-
structure(list(year = c(1902, 1902, 1903, 1903, 1905, 1906, 1906, 
1906, 1906, 1907, 1908, 1909, 1912, 1914, 1915, 1917, 1918, 1920, 
1923, 1923, 1923, 1925, 1927, 1927, 1929, 1930, 1930, 1931, 1931, 
1931, 1933, 1933, 1933, 1934, 1935, 1935, 1939, 1939, 1940, 1942, 
1943, 1943, 1944, 1944, 1945, 1945, 1946, 1946, 1946, 1948, 1948, 
1949, 1949, 1950, 1951, 1953, 1954, 1956, 1957, 1957, 1960, 1960, 
1962, 1963, 1964, 1966, 1966, 1966, 1968, 1969, 1970, 1970, 1970, 
1971, 1971, 1972, 1972, 1974, 1974, 1975, 1975, 1976, 1976, 1976, 
1976, 1976, 1976, 1977, 1978, 1980, 1980, 1981, 1981, 1982, 1983, 
1985, 1986, 1987, 1988, 1988, 1989, 1990, 1990, 1991, 1991, 1992, 
1992, 1992, 1992, 1992, 1993, 1994, 1994, 1995, 1995, 1997, 1997, 
1998, 1998, 1998, 1999, 1999, 1999), month = c("April", "December", 
"April", "May", "April", "January", "March", "April", "August", 
"October", "December", "January", "August", "October", "January", 
"July", "February", "December", "March", "March", "September", 
"March", "March", "May", "May", "May", "July", "March", "April", 
"August", "March", "March", "August", "January", "April", "May", 
"January", "December", "November", "December", "September", "November", 
"January", "February", "January", "November", "May", "November", 
"December", "June", "October", "July", "August", "August", "August", 
"March", "September", "June", "July", "December", "February", 
"May", "September", "July", "March", "March", "March", "August", 
"August", "July", "January", "March", "May", "February", "May", 
"April", "December", "May", "December", "February", "September", 
"February", "May", "June", "July", "August", "November", "March", 
"September", "October", "November", "June", "July", "December", 
"October", "September", "October", "March", "August", "December", 
"October", "June", "July", "February", "October", "March", "March", 
"June", "June", "December", "September", "January", "June", "January", 
"May", "February", "May", "February", "May", "July", "January", 
"August", "September"), day = c(19, 16, 28, 28, 4, 31, 16, 18, 
17, 21, 28, 23, 9, 3, 13, 30, 13, 16, 24, 25, 1, 16, 7, 22, 1, 
6, 23, 31, 27, 10, 2, 10, 25, 15, 21, 30, 25, 26, 10, 20, 10, 
26, 15, 1, 12, 27, 31, 10, 29, 28, 5, 10, 5, 15, 2, 18, 9, 10, 
2, 13, 29, 21, 1, 26, 27, 7, 22, 19, 31, 25, 5, 28, 31, 9, 22, 
10, 23, 10, 28, 4, 6, 4, 6, 25, 28, 16, 24, 4, 16, 10, 23, 11, 
28, 13, 30, 19, 10, 6, 20, 7, 17, 20, 16, 1, 19, 13, 15, 28, 
28, 12, 30, 17, 6, 16, 27, 28, 10, 4, 30, 17, 25, 17, 20), richter = c(7.5, 
6.4000000000000004, 7, 5.7999999999999998, 7.5, 8.8000000000000007, 
6.7999999999999998, 7.7000000000000002, 8.5999999999999996, 8.0999999999999996, 
7.2000000000000002, 7.2999999999999998, 7.4000000000000004, 7, 
7, 7.5, 7.4000000000000004, 7.7999999999999998, 7.2999999999999998, 
5.7000000000000002, 7.9000000000000004, 7, 7.5999999999999996, 
7.5999999999999996, 7.2000000000000002, 7.2000000000000002, 6.5, 
6, 5.7000000000000002, 8, 8.4000000000000004, 6.2000000000000002, 
7.5, 8.0999999999999996, 7.0999999999999996, 7.5999999999999996, 
7.7999999999999998, 7.7999999999999998, 7.2999999999999998, 7.2999999999999998, 
7.4000000000000004, 7.5999999999999996, 7.4000000000000004, 7.4000000000000004, 
7.0999999999999996, 8, 5.9000000000000004, 7.2999999999999998, 
8.0999999999999996, 7.2999999999999998, 7.2999999999999998, 7.5, 
6.7999999999999998, 8.5999999999999996, 5.7999999999999998, 7.2999999999999998, 
6.7999999999999998, 7.7000000000000002, 7.0999999999999996, 7.0999999999999996, 
5.7000000000000002, 9.5, 7.0999999999999996, 6, 9.1999999999999993, 
7, 6.9000000000000004, 6.7999999999999998, 7.2999999999999998, 
5.9000000000000004, 7.5, 6.9000000000000004, 7.9000000000000004, 
6.5999999999999996, 6.9000000000000004, 7.0999999999999996, 6.2000000000000002, 
6.7999999999999998, 6.2000000000000002, 7, 6.7000000000000002, 
7.5, 6.5, 7.0999999999999996, 7.5, 7.9000000000000004, 7.2999999999999998, 
7.2000000000000002, 7.7999999999999998, 7.7000000000000002, 6.5, 
6.9000000000000004, 7.2999999999999998, 6, 6.9000000000000004, 
8, 5.5, 7, 6.7999999999999998, 6.7999999999999998, 6.9000000000000004, 
7.4000000000000004, 7.7000000000000002, 6.7999999999999998, 7, 
6.7999999999999998, 6, 7.2999999999999998, 6.5, 7.5, 6.2000000000000002, 
6.7999999999999998, 6.7999999999999998, 6.9000000000000004, 7.5, 
6.0999999999999996, 7.2999999999999998, 5.9000000000000004, 6.5999999999999996, 
7, 6.0999999999999996, 7.5999999999999996, 7.5999999999999996
), area = c("Quezaltenango and San Marco", "Uzbekistan", "Malazgirt", 
"Gole", "Kangra", "Esmeraldas (off coast)", "Chia-i", "San Francisco", 
"Valparaiso", "Central", "Messina", "Silakhor", "Murefte", "Burdur", 
"Avezzano", "Yunnan", "Guangdong", "Gansu", "Sichuan", "Torbat-e Heydariyeh", 
"Yokohama", "Yunnan", "Tango", "Gansu", "Koppeh Dagh", "Salmas", 
"Irpinia", "Managua", "Border", "Xinjiang", "Sanriku", "Long Beach", 
"Sichuan", "Bihar", "Miao-Li", "Quetta", "Chillan", "Erzincan", 
"Vrancea", "Erbaa", "Tottori", "Ladik", "San Juan", "Gerede", 
"Mikawa", "Makran Coast", "Ustukran", "Ancash", "Honshu", "Fukui", 
"Ashgabat", "Khait", "Pelileo", "Assam", "Cosiguina", "Northwest", 
"Orleansville", "North", "North", "West", "Agadir", "South", 
"Northwest", "Skopje", "Alaska", "Hebei", "Hebei", "East", "Northeast", 
"Guangdong", "Yunnan", "West", "Chimbote", "San Fernando Valley", 
"SE of Ankara", "South", "Managua", NA, "North", "Haicheng", 
"East", NA, "Northeast", "Irian Jaya", "Tangshan", "Mindanao", 
"Northwest Border", NA, "Northeast", "Northwest", "South", "South", 
"South", "W Arabian Peninsula", "East", "Michoacan", NA, "Border", 
"Border", "Spitak", "San Francisco", "West", "Luzon", "Border", 
"North", "East", "East", "Landers", "Big Bear", "Flores Island", 
"Maharashtra", "Northridge", "Cauca", "Kobe", "Sakhalin Island", 
"Northwest", "North", "Hindu Kush", "Border", "Papua", "Armenia", 
"Izmit", "Taichung"), region = c("Guatemala", "Russia", "Turkey", 
"Turkey", "India", "Ecuador", "Taiwan", "United States", "Chile", 
"Asia", "Italy", "Iran", "Turkey", "Turkey", "Italy", "China", 
"China", "China", "China", "Iran", "Japan", "China", "Japan", 
"China", "Iran", "Iran", "Italy", "Nicaragua", "Armenia-Azerbaijan", 
"China", "Japan", "United States", "China", "India-Nepal", "Taiwan", 
"Pakistan", "Chile", "Turkey", "Romania", "Turkey", "Japan", 
"Turkey", "Argentina", "Turkey", "Japan", "Pakistan", "Turkey", 
"Peru", "Japan", "Japan", "Turkmenistan", "Tajikistan", "Ecuador", 
"India", "Nicaragua", "Turkey", "Algeria", "Afghanistan", "Iran", 
"Iran", "Morocco", "Chile", "Iran", "Yugoslavia", "United States", 
"China", "Chine", "Turkey", "Iran", "China", "China", "Turkey", 
"Peru", "United States", "Turkey", "Iran", "Nicaragua", "China", 
"Pakistan", "China", "Turkey", "Guatemala", "Italy", "New Guinea", 
"China", "Philippines", "Iran-Turkey", "Romania", "Iran", "Algeria", 
"Italy", "Iran", "Iran", NA, "Turkey", "Mexico", "El Salvador", 
"Colombia-Ecuador", "India-Nepal", "Armenia", "United States", 
"Iran", "Philippines", "Pakistan-Afghanistan", "India", "Turkey", 
"Turkey", "United States", "United States", "Indonesia", "India", 
"United States", "Colombia", "Japan", "Russia", "Iran", "Iran", 
"Afghanistan", "Afghanistan-Tajikistan", "New Guinea", "Colombia", 
"Turkey", "Taiwan"), deaths = c(2000, 4700, 3500, 1000, 19000, 
1000, 1250, 3000, 3882, 12000, 72000, 5000, 2800, 4000, 32610, 
1800, 1000, 200000, 3500, 2200, 142800, 5800, 3020, 40900, 3800, 
2500, 1404, 2500, 2800, 10000, 2990, 115, 9300, 10700, 3270, 
30000, 28000, 32700, 1000, 1100, 1190, 4000, 8000, 2790, 1961, 
4000, 1300, 1400, 1362, 3769, 110000, 12000, 5050, 1526, 1000, 
1070, 1250, 2000, 1200, 1130, 12000, 1655, 12255, 1100, 131, 
1000, 1000, 2529, 12000, 3000, 10000, 1086, 700000, 65, 1000, 
5054, 5000, 20000, 5300, 2000, 2300, 23000, 1000, 422, 255000, 
8000, 5000, 1500, 15000, 5000, 2735, 3000, 1500, 2800, 1342, 
9500, 1000, 1000, 1000, 25000, 63, 40000, 1621, 1200, 2000, 4000, 
NA, 3, NA, 2500, 9748, 61, 1000, 5502, 1989, 1000, 1567, 2323, 
4000, 2183, 1185, 17118, 2400)), class = c("spec_tbl_df", "tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -123L), spec = structure(list(
    cols = list(Year = structure(list(), class = c("collector_double", 
    "collector")), Month = structure(list(), class = c("collector_character", 
    "collector")), Day = structure(list(), class = c("collector_double", 
    "collector")), Richter = structure(list(), class = c("collector_double", 
    "collector")), Area = structure(list(), class = c("collector_character", 
    "collector")), Region = structure(list(), class = c("collector_character", 
    "collector")), Deaths = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1L), class = "col_spec"))