如何通过geom_polygon使用镶嵌面来生成地图格网

Question

我正在尝试使用faceting来生成多个填充了不同值的映射。

我已经创建了下面的简化示例，它既重现了我正在尝试做的事情，也重现了我在ggplot中没有预料到的结果。我使用美国的地图，为各州生成两个假想的社区。我可以单独绘制每个社区，但在我尝试对它们进行刻面并同时生成它们的情况下，我只能得到一张地图。

require(ggplot2)
require(maps)

map <- map_data("state")
states <- unique(map$region)

# generate some hypothetical communities    
runA <- data.frame(region=states, id="A",
                   community=rbinom(length(states),1,.5))
runB <- data.frame(region=states, id="B",
                   community=rbinom(length(states),1,.5))

membership <- rbind(runA, runB)

# plot an individual map of communities from run A
df <- merge(map, runA, by="region")
ggplot(df) +
  aes(long, lat, group=group) +
  coord_equal() +
  geom_polygon(aes(fill = as.factor(community)))

# likewise for B
df <- merge(map, runB, by="region")
ggplot(df) +
  aes(long, lat, group=group) +
  coord_equal() +
  geom_polygon(aes(fill = as.factor(community)))

# now instead do one plot with two maps from facetting on id
df <- merge(map, membership, by="region")
ggplot(df) +
  aes(long, lat, group=group, facets= id ~.) +
  coord_equal() +
  geom_polygon(aes(fill = as.factor(community)))

理想情况下，最后一个地块应该有两个地图，一个用"A“表示社区，另一个用"B”表示社区。相反，绘图只显示了一张地图，我甚至不确定什么正在映射到填充。

Answer 1

您只是以错误的方式指定了这些方面。像这样做，它会工作得很好：

ggplot(df) +
  aes(long, lat, group=group) +
  coord_equal() +
  geom_polygon(aes(fill = as.factor(community))) +
  facet_grid(facets= id ~.)

​

​