删除ggplot中的纬度和经度标签

wwl*_*wwl 8 r ggplot2

我正在创建明尼苏达州的地图

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 中使用一些函数。

sea*_*ith 9

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)

  • 您也将要删除标题(`axis.title.y=element_blank(),axis.title.x=element_blank()`) (5认同)

wwl*_*wwl 6

正如 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)

在此处输入图片说明