我的数据集:
1-几何点用于绘制表示unst2 uk边界= dataSetUK的边界的多边形。
2-简单表,与数据集1的不同区域具有相同的列,但每个区域的编号分别为dataToUse。我要创建的只是一个氯百变,第一个数据集作为边界,第二个数据集用作变量,以指示变量x每个区域的密度。
我尝试过的:
3-https://medium.com/@traffordDataLab/lets-make-a-map-in-r-7bd1d9366098
4-https://cran.r-project.org/web/packages/tricolore/vignettes/choropleth_maps_with_tricolore.html
因此,从教程“ 3”开始,我已经使用以下代码进行了尝试:
我最终使用以下代码获得了数据集:dataFinal<- left_join(dataSetUK, dataToUse, by = "name")
是:dataFinal
[我以为我需要做的是使用dataFinal $ geometry,dataFinal $ x_perc列来绘制叶绿素,但是运行ggplot函数时出现错误:
ggplot() +
geom_sf(data = sf_gm_census,
aes(fill = cut_number(percent, 5)),
alpha = 0.8,
colour = 'white',
size = 0.3) +
scale_fill_brewer(palette = "PuBu",
name = "No qualifications (%)") +
labs(x = NULL, y = NULL,
title = "Residents with no qualifications in Greater Manchester, 2011",
subtitle = "Source: Table QS502EW, Census 2011",
caption = "Contains OS data © Crown copyright and database right (2018)") +
theme(panel.background = element_blank()) +
line = element_blank()
我得到的错误是:ggplot()+ geom_sf(data = sf_gm_census,aes(fill = cut_number(sf_gm_census $ x_perc,:分配的左侧无效(NULL)
当我在上面的代码中删除以下所有功能:实验室,主题,线条,scale_fill_brewer时,我会收到此错误:错误:stat_sf需要以下缺少的美学:几何形状
现在已经工作了2天-非常感谢您的帮助:D
我认为我在这里缺少更基本的东西。
哇...“在世界大地测量系统1984(WGS84)中投影了矢量边界层,其经度和纬度单位为十进制度。“
这个Choropleth Maps项目真的很棒!该项目非常简单,仅涉及复制和粘贴在项目进行过程中提供的代码块。该项目的代码描述和说明就足够了。
项目链接:https://medium.com/@traffordDataLab/lets-make-a-map-in-r-7bd1d9366098
我完成了两次项目:使用Jupyter Lab和RStudio。该项目基本上完好无缺。但是,有一个小问题涉及第一个Choropleth地图图。我将问题缩小为涉及ggplot代码块中“主题”设置的某些代码。因为我对主题功能不熟悉,所以我没有花任何时间来解决这个问题。只需注释掉整个主题部分即可解决此问题。生成的图看起来很好,并且注释掉主题部分也没有任何有害影响。第二个和第三个choropleth地图图没有问题,非常令人印象深刻。第三个choropleth映射如下所示。
以下是带有注释掉的主题部分的ggplot代码部分。
ggplot() + # The third plot, first choropleth map
geom_sf(data = sf_gm_census,
aes(fill = percent_class),
alpha = 0.8,
colour = 'white',
size = 0.3) +
scale_fill_brewer(palette = "PuBu",
name = "No qualifications (%)") +
labs(x = NULL, y = NULL,
title = "Residents with no qualifications in Greater Manchester, 2011",
subtitle = "Source: Table QS502EW, Census 2011",
caption = "Contains OS data © Crown copyright and database right (2018)") +
# theme(line = element_blank(), # Commented out theme section
#
# axis.text = element_blank(),
#
# axis.title = element_blank(),
#
# panel.background = element_blank()) +
#
coord_sf(datum = NA)