ggplot2贴图生成Z字形填充

Question

不知道这是怎么回事--这一切都很好，直到有个阴谋把它扔给了我。我设法(似乎)从天而降地创造了这个。

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

结果：

​

Answer 1

在将您的数据输入到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)

​

​

Answer 2

您忘记了对区域进行分组：

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