修复使用ggplot2/ geom_sf绘图时osm道路中的间隙

install.packages("ggplot2")
install.packages("sf")

library(ggplot2)
library(sf)

# 加载osm道路数据
osm_roads <- st_read("osm_roads.shp")

# 创建一个新的图层并使用geom_sf函数绘制道路数据
p <- ggplot() +
  geom_sf(data = osm_roads)

# 使用coord_sf函数设置坐标系
p <- p + coord_sf()

# 使用theme_void函数设置背景为透明
p <- p + theme_void()

# 使用theme函数设置其他绘图参数
p <- p + theme(
  panel.grid = element_blank(),
  panel.border = element_blank(),
  axis.ticks = element_blank(),
  axis.text = element_blank()
)

# 显示修复后的图形
print(p)

ggsave("fixed_plot.png", p, dpi = 300, width = 6, height = 4, units = "in")