r - 使用 geom_sf 绘图时无法删除网格线

Question

使用 geom_sf 绘图时，去除网格线的标准方法似乎是徒劳的。 .

例如，如果我们绘制一个简单的 ggplot对象，这可以删除网格

library(tidyverse)
library(sf)

mtcars %>%
  ggplot(
    aes(disp, hp)
  ) +
  geom_point() +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  )

返回



但是当您使用 geom_sf 绘图时，相同的代码无法删除网格

"shape/nc.shp" %>% 
  system.file(
    package = "sf"
  ) %>% 
  st_read(
    quiet = TRUE
    ) %>%
  ggplot() +
  geom_sf(aes(fill = AREA)) +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  )

Answer 1

这个问题是在 ggplot2 github site 上提出的.您可以通过以下任一方式删除网格线:

使用 theme(panel.grid.major = element_line(colour = "transparent")) 将网格线的颜色设置为透明

添加 coord_sf(datum = NA)调用后geom_sf