ggplot2地图生成锯齿形填充

Question

不确定它发生了什么 - 这一切都正常，直到一个情节把它扔给我。我设法突然创造了这个（看似）。

我的代码可以在这里找到：https://github.com/popovs/400m-cartograms

结果：

Answer 1

您忘了将地区分组：

ggplot() + 
  geom_polygon(data = map_data("world"), 
               aes(long, lat, group = group))

Answer 2

在将数据输入ggplot之前尝试包含此内容：

library(dplyr)

map_data_1950 <- arrange(map_data_1950, order)

当您对地图数据执行merge()时，某些国家/地区的坐标顺序混乱。重新排序它们可以解决问题。

# Illustration
p1 <- ggplot() +
  geom_polygon(data = map_data_1950,
               aes(fill = Catch, x = long, y= lat, group = group)) +
  ggtitle("Without reordering")

p2 <- ggplot() +
  geom_polygon(data = arrange(map_data_1950, order),
               aes(fill = Catch, x = long, y= lat, group = group)) +
  ggtitle("With reordering")

gridExtra::grid.arrange(p1, p2, ncol = 2)