R时间序列分解图调整：移除右侧空白灰框及修改子图标题字体

实现方案 #

两个调整都可通过补充ggplot图层参数完成，修改后的代码如下：

# Windows系统需先导入系统字体，Mac/Linux可跳过以下内容
# install.packages("extrafont") # 首次使用需安装
# library(extrafont)
# font_import() # 首次使用需导入所有系统字体，耗时较长
# loadfonts(device = "win", quiet = TRUE)

autoplot(decompose(x, type = "additive")) +
  labs(y=expression(Chl[a]~(µg/L)), x="Year") + 
  ggtitle(expression(Decomposed~Chl[a]~Time~Series~BB1)) + 
  theme(
    plot.title = element_text(hjust = 0.5),
    # 修改子图标题字体为Times New Roman，可替换为其他自定义字体名称
    strip.text = element_text(family = "Times New Roman"),
    # 移除右侧空白灰色图例框
    legend.position = "none"
  )

调整说明

• 移除右侧灰色方框：该方框是autoplot默认生成的冗余图例，通过legend.position = "none"直接隐藏即可，也可替换为guides(color = "none")实现相同效果。
• 修改子图标题字体：分解图的子图属于ggplot分面模块，分面标题样式由strip.text参数控制，修改family属性值为对应字体名称即可，可自定义为任意系统已安装字体。

注意：Windows系统下R默认无法识别系统安装的第三方字体，需要先安装extrafont包导入字体后，自定义字体才能生效。

内容的提问来源于stack exchange，提问作者Sankar Manalilkada Sasidharan