0

我正在尝试为不同时间段创建英国的可视化，其中每个区域的填充取决于数字变量。当我按时间段拆分数据帧并在 ggplot2 中独立创建图表时，它们是正确的。但是，当我使用 facet_wrap 函数将它们显示在单个图表中时，输出不正确（每个区域的数字不正确）。

（注意，我已尝试尽可能地遵循本教程以获取 R 中的空间数据：http: //spatial.ly/2013/12/introduction-spatial-data-ggplot2/）

我尝试使用的命令是：

Map <- ggplot(data, aes(long, lat, group = group, fill = data$numericvariable)) 
+ geom_polygon() + coord_equal() + facet_wrap(~Date.ordered) + 
scale_fill_gradientn(limits = c(55,70),colours=c("white","red"))

数据是空间数据，已使用 fortify 命令强制转换为数据帧。

当我使用以下命令时，输出独立工作：

data.split<-split(data,data$Date.ordered)

Maps<-list()

for (i in 1:length(data.split){

    Maps[[i]]<- ggplot(data.split[[i]], aes(long, lat, group = group, 
    fill = data.split[[i]]$numericvariable)) + geom_polygon() + coord_equal() + 
    scale_fill_gradientn(limits = c(55,70),colours=c("white","red"))

    print(Maps[[i]])
}

但这很难很好地强制转换为一个可视化，即使使用多图也是如此。

因为可视化在独立完成时可以正常工作，所以我目前假设这是一个编码错误，而不是数据问题，但如果这有帮助，我可以发布一个数据看起来像的示例。

谢谢。

4

0 回答 0