R，使用空间数据时ggplot2和facet_wrap的输出不正确

Question

我正在尝试在不同的时间段创建英国的可视化，其中每个区域的填充取决于数字变量。当我按时间段分割数据帧并在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]])
}

但即使使用多时隙，也很难很好地强制进入一个可视化。

因为独立完成时可视化工作正常，我现在假设这是代表我的编码错误，而不是数据问题，但我可以发布一个示例，如果这会有帮助，数据会是什么样的。< / p>

感谢。