我正在创建明尼苏达州的地图
map.test <- ggplot(kt_geom)+
geom_polygon(aes(long, lat, group=group), fill="white")+
geom_path(color="gray48", mapping=aes(long, lat, group=group), size=0.2)
map.test
Run Code Online (Sandbox Code Playgroud)
并显示以下地图。
如何删除浅灰色背景以及经度和纬度轴?我知道如果我使用 choropleth,这些不会出现,但我需要在 ggplot 中使用一些函数。
theme(rect = element_blank()) 将删除灰色背景和(外观)网格线。
添加axis.ticks = element_blank()将删除刻度线,axis.text.x = element_blank(), axis.text.y = element_blank()并将删除纬度/经度标签。
ggplot(kt_geom) +
geom_polygon(aes(long, lat, group=group), fill="white") +
geom_path(color="gray48", mapping=aes(long, lat, group=group), size=0.2) +
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
rect = element_blank())
Run Code Online (Sandbox Code Playgroud)
在非白色背景的情况下,您需要设置panel.grid.major = element_line(color = background_color),当然,这里background_color是 的颜色panel.background。
ggplot(kt_geom) +
geom_polygon(aes(long, lat, group=group), fill="white") +
geom_path(color="gray48", mapping=aes(long, lat, group=group), size=0.2) +
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
panel.background = element_rect(fill = "red"),
panel.grid.major = element_line(color = "red"))
Run Code Online (Sandbox Code Playgroud)
正如 hrbrmstr 指出的那样,theme_map()有效:
library(ggthemes)
map.test <- ggplot(kt_geom)+
geom_polygon(aes(long, lat, group=group), fill="white")+
geom_path(color="gray48", mapping=aes(long, lat, group=group), size=0.2)+
theme_map()
map.test
Run Code Online (Sandbox Code Playgroud)