使用 R 语言绘制一幅中秋海报插画

首先祝大家中秋快乐！今天给大家分享一个好玩的！使用 R 语言绘制一幅中秋海报插画！

绘制起来非常简单，使用附件中的 中秋插画.geojson 文件：

然后在 R 语言中运行这段代码就会看到一幅神奇的图出来：

library(tidyverse)
library(sf)
read_sf("中秋插画.geojson") %>%
  st_make_valid() -> sf

# 设置字体，字体文件也在附件中
library(showtext)
font_add("SentyTEA", regular = "SentyTEA.ttf")
showtext_auto(enable = T)

# 绘图
ggplot(sf) +
  geom_sf(aes(fill = I(color)), show.legend = F) +
  ggthemes::theme_map() +
  annotate("text", x = -121.96755, y = 37.365697, label = "微信公众号 RStata 祝大家中秋快乐！", family = "SentyTEA", size = 6) +
  coord_sf(ylim = c(37.364939, 37.37454))

由于该数据的制作比较费事，所以就不再过多介绍了，总之就是祝大家中秋快乐～

点击这里跳转到 RStata 短书平台获取附件：使用 R 语言绘制一幅中秋海报插画