Country maps with labels in other languages
# eval FALSE while testing
# Africa
terra::plot(ne_countries(continent = "africa"))
sfaf <- ne_countries(continent = "africa", returnclass = "sf")
sfafc <- st_centroid(sfaf)
#> Warning in st_centroid.sf(sfaf): st_centroid assumes attributes are constant
#> over geometries of x
#> Warning in st_centroid.sfc(st_geometry(x), of_largest_polygon =
#> of_largest_polygon): st_centroid does not give correct centroids for
#> longitude/latitude data
sfaf <- cbind(sfaf, st_coordinates(st_centroid(sfaf$geometry)))
#> Warning in st_centroid.sfc(sfaf$geometry): st_centroid does not give correct
#> centroids for longitude/latitude data
# G = cbind(G, st_coordinates(st_centroid(G$geometry)))
# this adds centroids in the middle of countries
ggplot(sfaf) +
geom_sf() +
geom_sf(data = sfafc)
# trying labels in the middle of countries, doesn't quite work needs x,y,label
# but once x & y added on with st_coordinates ... seems getting the coords might
# not be necessary for much longer https://github.com/slowkow/ggrepel/issues/111
# cool nearly there ...
ggplot(sfaf) +
geom_sf() +
geom_text_repel(aes(x = X, y = Y, label = name))
#> Warning: ggrepel: 24 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps
# getting there, labels still overlap a bit maybe make map bigger to allow space
# for labels
ggplot(sfaf) +
geom_sf() +
geom_text_repel(aes(x = X, y = Y, label = name_es))
#> Warning: ggrepel: 26 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps
# point.padding=NA allows labels to overlap the centroid
ggplot(sfaf) +
geom_sf() +
geom_text_repel(aes(x = X, y = Y, label = name_es), point.padding = NA)
#> Warning: ggrepel: 26 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps
# Africa labels just down left & right sides works pretty well I think
ggplot(sfaf) +
geom_sf() +
xlim(-28, 61) +
geom_text_repel(aes(x = X, y = Y, label = name_es),
data = subset(sfaf, X > 21),
nudge_x = 60 - subset(sfaf, X > 21)$X,
segment.size = 0.2,
segment.color = "grey50",
direction = "y",
hjust = 0
) +
geom_text_repel(aes(x = X, y = Y, label = name_es),
data = subset(sfaf, X < 21),
nudge_x = -19 - subset(sfaf, X < 21)$X,
segment.size = 0.2,
segment.color = "grey50",
direction = "y",
hjust = 1
)
#> Warning: ggrepel: 18 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps
# french labels
ggplot(sfaf) +
geom_sf() +
xlim(-28, 61) +
geom_text_repel(aes(x = X, y = Y, label = name_fr),
data = subset(sfaf, X > 21),
nudge_x = 60 - subset(sfaf, X > 21)$X,
segment.size = 0.2,
segment.color = "grey50",
direction = "y",
hjust = 0
) +
geom_text_repel(aes(x = X, y = Y, label = name_fr),
data = subset(sfaf, X < 21),
nudge_x = -19 - subset(sfaf, X < 21)$X,
segment.size = 0.2,
segment.color = "grey50",
direction = "y",
hjust = 1
)
#> Warning: ggrepel: 18 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps
# tmap good but labels currently overlap
# english labels
tm_shape(sfaf) +
tm_borders() +
tm_text("name")
# spanish labels
tm_shape(sfaf) +
tm_borders() +
tm_text("name_es")
# other languages de, fr, nl,
tm_shape(sfaf) +
tm_borders() +
tm_text("name_de", size = 0.5)
# chinese labels don't currently work, because attribute data is filled with NA
# I suspect I may need to do something different on reading the data in ?
# tm_shape(sfaf) +
# tm_borders() +
# tm_text("name_zh")
# The full list of
# languages is: name_ar, name_bn, name_de, name_en, name_es, name_fr, name_el,
# name_hi, name_hu, name_id, name_it, name_ja, name_ko, name_nl, name_pl,
# name_pt, name_ru, name_sv, name_tr, name_vi, and name_zh.
# A 2-character language code decoder ring is here:https://en.wikipedia.org/wiki/List_of_ISO_639-2_codes.