R Can';t使用geom_sf打印时删除网格线
使用R Can';t使用geom_sf打印时删除网格线,r,ggplot2,sf,R,Ggplot2,Sf,使用geom\u 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\u 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\u 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()
)
这个问题是在会议上提出的。可以通过以下任一方法删除网格线:
主题(panel.grid.major=element\u line(color=“transparent”))将网格线的颜色设置为透明
geom\u 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()
)
删除网格线的另一种方法是使用
scale\u x\u continuous
更改比例:
library(ggplot2)
world <- rnaturalearth::ne_countries(scale = "medium", returnclass = "sf")
crs_robinson = "+proj=robin +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m no_defs"
ggplot() +
geom_sf(data = world, color="grey70", fill="grey70") +
theme(panel.border=element_blank(),
panel.grid = element_line(colour = "grey70", size=2),
axis.text.x= element_blank(),
axis.text.y = element_blank()) +
labs(title = str_c("Map of without gridlines") ,
x = "",
y = "") +
scale_x_continuous(breaks = c(-180, 180)) +
scale_y_continuous(breaks=c(-89.999, 89.999)) +
coord_sf(crs = "+proj=robin +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m no_defs", expand = TRUE)no_defs", expand = TRUE)
库(ggplot2)
世界