世界地図上に国名を表示する世界地図を作成しました。ただし、私の問題は、すべての名前が重なり合ってマップ上で見にくいことと、R が「欠損値」という警告メッセージを表示していることです。以下はデータセットとその他の情報です。
出力
> dput(d1)
structure(list(area = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 8L,
9L, 11L, 12L, 13L, 16L, 17L, 18L, 19L, 21L, 22L, 23L, 24L, 25L,
26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L,
39L, 40L, 42L, 43L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 55L,
56L, 57L, 58L, 59L, 60L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L,
70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L,
83L, 85L, 86L, 87L, 89L, 91L, 92L, 93L, 96L, 97L, 98L, 99L, 100L,
101L, 102L, 103L, 104L, 105L, 107L, 108L, 109L, 110L, 111L, 112L,
113L, 114L, 115L, 116L, 117L, 118L, 120L, 121L, 122L, 123L, 124L,
125L, 126L, 127L, 129L, 131L, 132L, 133L, 134L, 135L, 136L, 137L,
138L, 140L, 143L, 144L, 145L, 146L, 148L, 149L, 150L, 151L, 153L,
155L, 156L, 157L, 158L, 159L, 161L, 163L, 164L, 165L, 166L, 167L,
169L, 170L, 171L, 172L, 173L, 174L), .Label = c("Afghanistan",
"Albania", "Algeria", "Angola", "Antigua and Barbuda", "Argentina",
"Armenia", "Australia", "Austria", "Azerbaijan", "Bahamas", "Bangladesh",
"Barbados", "Belarus", "Belgium", "Belize", "Benin", "Bermuda",
"Bolivia (Plurinational State of)", "Bosnia and Herzegovina",
"Botswana", "Brazil", "Brunei Darussalam", "Bulgaria", "Burkina Faso",
"Cabo Verde", "Cambodia", "Cameroon", "Canada", "Central African Republic",
"Chad", "Chile", "China, Hong Kong SAR", "China, Macao SAR",
"China, mainland", "China, Taiwan Province of", "Colombia", "Congo",
"Costa Rica", "Côte d'Ivoire", "Croatia", "Cuba", "Cyprus", "Czechia",
"Democratic People's Republic of Korea", "Denmark", "Djibouti",
"Dominica", "Dominican Republic", "Ecuador", "Egypt", "El Salvador",
"Estonia", "Ethiopia", "Fiji", "Finland", "France", "French Polynesia",
"Gabon", "Gambia", "Georgia", "Germany", "Ghana", "Greece", "Grenada",
"Guatemala", "Guinea", "Guinea-Bissau", "Guyana", "Haiti", "Honduras",
"Hungary", "Iceland", "India", "Indonesia", "Iran (Islamic Republic of)",
"Iraq", "Ireland", "Israel", "Italy", "Jamaica", "Japan", "Jordan",
"Kazakhstan", "Kenya", "Kiribati", "Kuwait", "Kyrgyzstan", "Lao People's Democratic Republic",
"Latvia", "Lebanon", "Lesotho", "Liberia", "Lithuania", "Luxembourg",
"Madagascar", "Malawi", "Malaysia", "Maldives", "Mali", "Malta",
"Mauritania", "Mauritius", "Mexico", "Mongolia", "Montenegro",
"Morocco", "Mozambique", "Myanmar", "Namibia", "Nepal", "Netherlands",
"New Caledonia", "New Zealand", "Nicaragua", "Niger", "Nigeria",
"Norway", "Oman", "Pakistan", "Panama", "Paraguay", "Peru", "Philippines",
"Poland", "Portugal", "Republic of Korea", "Republic of Moldova",
"Romania", "Russian Federation", "Rwanda", "Saint Kitts and Nevis",
"Saint Lucia", "Saint Vincent and the Grenadines", "Samoa", "Sao Tome and Principe",
"Saudi Arabia", "Senegal", "Serbia", "Sierra Leone", "Slovakia",
"Slovenia", "Solomon Islands", "South Africa", "Spain", "Sri Lanka",
"Sudan", "Suriname", "Swaziland", "Sweden", "Switzerland", "Tajikistan",
"Thailand", "The former Yugoslav Republic of Macedonia", "Timor-Leste",
"Togo", "Trinidad and Tobago", "Tunisia", "Turkey", "Turkmenistan",
"Uganda", "Ukraine", "United Arab Emirates", "United Kingdom",
"United Republic of Tanzania", "United States of America", "Uruguay",
"Uzbekistan", "Vanuatu", "Venezuela (Bolivarian Republic of)",
"Viet Nam", "Yemen", "Zambia", "Zimbabwe"), class = "factor"),
latitude = c(33.94, 41.15, 28.03, -11.2, 17.06, -38.42, -25.27,
47.52, 25.03, 23.68, 13.19, 17.19, 9.31, 32.32, -16.29, -22.33,
-14.24, 4.54, 42.73, 12.24, 16, 12.57, 7.37, 56.13, 6.61,
15.45, -35.68, 22.4, 22.2, 35.86, 23.7, 4.57, -0.23, 9.75,
7.54, 21.52, 35.13, 40.34, 56.26, 11.83, 15.41, 18.74, -1.83,
26.82, 13.79, -16.58, 61.92, 46.23, -17.68, -0.8, 13.44,
51.17, 7.95, 39.07, 12.26, 15.78, 9.95, 11.8, 4.86, 18.97,
15.2, 47.16, 64.96, 20.59, -0.79, 32.43, 33.22, 53.41, 31.05,
41.87, 18.11, 36.2, 30.59, -0.02, -3.37, 29.31, 19.86, 33.85,
-29.61, 6.43, -18.77, -13.25, 4.21, 3.2, 17.57, 35.94, 21.01,
-20.35, 23.63, 46.86, 31.79, -18.67, 21.91, -22.96, 28.39,
52.13, -20.9, -40.9, 12.87, 17.61, 9.08, 60.47, 30.38, 8.54,
-23.44, -9.19, 12.88, 51.92, 39.4, 35.91, 45.94, -1.94, 17.36,
13.91, 12.98, -13.76, 0.19, 23.89, 14.5, 8.46, -9.65, -30.56,
40.46, 7.87, 3.92, -26.52, 60.13, 46.82, 15.87, -8.87, 8.62,
10.69, 33.89, 38.96, 1.37, 23.42, 55.38, -6.37, 37.09, -32.52,
-15.38, 6.42, 14.06, 15.55, -13.13, -19.02), longitude = c(67.71,
20.17, 1.66, 17.87, -61.8, -63.62, 133.78, 14.55, -77.4,
90.36, -59.54, -88.5, 2.32, -64.76, -63.59, 24.68, -51.93,
114.73, 25.49, -1.56, -24.01, 104.99, 12.35, -106.35, 20.94,
18.73, -71.54, 114.11, 113.54, 104.2, 120.96, -74.3, 15.83,
-83.75, -5.55, -77.78, 33.43, 127.51, 9.5, 42.59, -61.37,
-70.16, -78.18, 30.8, -88.9, 179.41, 25.75, 2.21, -149.41,
11.61, -15.31, 10.45, -1.02, 21.82, -61.6, -90.23, -9.7,
-15.18, -58.93, -72.29, -86.24, 19.5, -19.02, 78.96, 113.92,
53.69, 43.68, -8.24, 34.85, 12.57, -77.3, 138.25, 36.24,
37.91, -168.73, 47.48, 102.5, 35.86, 28.23, -9.43, 46.87,
34.3, 101.98, 73.22, -4, 14.38, -10.94, 57.55, -102.55, 103.85,
-7.09, 35.53, 95.96, 18.49, 84.12, 5.29, 165.62, 174.89,
-85.21, 8.08, 8.68, 8.47, 69.35, -80.78, -58.44, -75.02,
121.77, 19.15, -8.22, 127.77, 24.97, 29.87, -62.78, -60.98,
-61.29, -172.1, 6.61, 45.08, -14.45, -11.78, 160.16, 22.94,
-3.75, 80.77, -56.03, 31.47, 18.64, 8.23, 100.99, 125.73,
0.82, -61.22, 9.54, 35.24, 32.29, 53.85, -3.44, 34.89, -95.71,
-55.77, 166.96, -66.59, 108.28, 48.52, 27.85, 29.15)), .Names = c("area",
"latitude", "longitude"), row.names = c(1L, 84L, 207L, 331L,
440L, 557L, 813L, 941L, 1204L, 1320L, 1443L, 1831L, 1943L, 2060L,
2163L, 2409L, 2534L, 2671L, 2791L, 2925L, 3040L, 3146L, 3262L,
3387L, 3527L, 3636L, 3739L, 3867L, 4000L, 4121L, 4267L, 4408L,
4540L, 4660L, 4789L, 5037L, 5174L, 5438L, 5535L, 5674L, 5781L,
5892L, 6004L, 6138L, 6272L, 6653L, 6778L, 6911L, 7051L, 7172L,
7292L, 7533L, 7680L, 7800L, 7943L, 8063L, 8193L, 8305L, 8396L,
8515L, 8635L, 8767L, 8909L, 9034L, 9168L, 9294L, 9414L, 9534L,
9670L, 9805L, 9953L, 10072L, 10215L, 10483L, 10610L, 10704L,
10950L, 11188L, 11317L, 11392L, 11758L, 11883L, 12003L, 12137L,
12241L, 12357L, 12487L, 12603L, 12722L, 12855L, 13087L, 13216L,
13330L, 13442L, 13563L, 13684L, 13825L, 13954L, 14088L, 14217L,
14335L, 14466L, 14730L, 14863L, 14993L, 15115L, 15247L, 15389L,
15525L, 15659L, 15923L, 16199L, 16307L, 16406L, 16521L, 16630L,
16738L, 16829L, 16959L, 17206L, 17579L, 17679L, 17819L, 17969L,
18200L, 18316L, 18433L, 18575L, 18818L, 19079L, 19165L, 19280L,
19397L, 19523L, 19741L, 20002L, 20123L, 20266L, 20395L, 20536L,
20783L, 20879L, 21009L, 21118L, 21237L, 21357L), class = "data.frame")
Rコード:
sbbox <- make_bbox(lon = d1$longitude, lat=d1$latitude, f=.1)
s_map <- get_map(location = sbbox,maptype = 'terrain', source = 'google')
ggmap(s_map) +
geom_point(data=d1, mapping = aes(x=longitude,y=latitude)) +
geom_label_repel(aes(x=longitude, y=latitude,label=area),
data=d1,box.padding = 2, point.padding = 0.0005, fontface = 'bold') +
ggtitle('latitude vs longitude') +
theme(plot.title = element_text(hjust=0.05)) +
xlab('Hote Longitude') +
ylab('Hotel Latitude') +
theme(text = element_text(size=15),
axis.text.x = element_text(angle=90,hjust=0)) +
theme(text = element_text(size=15),
axis.text.y = element_text(angle=90, hjust=1))
警告メッセージ:
Warning messages:
1: Removed 15 rows containing missing values (geom_point).
2: Removed 15 rows containing missing values (geom_label_repel).
Map output:
助けてくれてありがとう！