ggplot2自定义主题触发未使用参数错误，寻求解决方案

问题重现 #

在ggplot2中创建自定义主题时反复触发“未使用参数”错误，核对官方文档也未发现参数问题。

第一次尝试的代码：

theme_custom <- theme(
  text = element_text(
    family = 'serif',
    size = 14),
  rect = element_blank(),
  panel.grid = element_blank(),
  title = element_text(color = 'black'),
  axis.line = element_line(color = 'black')
  )

触发报错：

Error in theme(text = element_text(family = "serif", size = 14), rect = element_blank(),  : 
  unused arguments (text = element_text(family = "serif", size = 14), rect = element_blank(), panel.grid = element_blank(), title = element_text(color = "black"), axis.line = element_line(color = "black"))

尝试基于theme_classic()修改主题，仍触发相同错误：

font <- "serif"

theme_custom <- function(){
  theme_classic() %+replace%
    theme(
      plot.title = element_text(
        family = font,
        size = 14,
        hjust = 0,
        vjust = 2),
      axis.title = element_text(
        family = font,
        size = 14),
      axis.text = element_text(
        family = font,
        size = 14)
    )}

目标绘图代码：

graph <- ggplot(df, aes(x = x_var, y = m_var,group=region)) +
  geom_point(aes(color=region), size=4) +
  geom_vline(xintercept=10, linetype="dashed", color = "black") +
  geom_hline(yintercept=6, linetype="dashed", color = "black") +
  labs(x="X variable", y="Y variable", title="Graph 1") + 
  xlim(0, 15) +
  ylim(0, 20) +
  theme_custom()

问题根源与解决方法 #

这种错误几乎都是因为其他包的theme()函数覆盖了ggplot2原生的theme()，比如ggthemes、extrafont等包都有同名函数，它们的参数规则和ggplot2不兼容。

解决步骤 #

1. 检查冲突包：运行sessionInfo()查看已加载的包列表，确认是否有和ggplot2冲突的包
2. 明确调用ggplot2的函数：把代码里的theme()、element_text()等函数前加上ggplot2::前缀，强制使用ggplot2原生函数
3. 也可以卸载冲突包：比如如果是ggthemes导致的，运行detach("package:ggthemes", unload=TRUE)，再重新加载ggplot2：library(ggplot2)

修改后的代码示例 #

直接定义主题

theme_custom <- ggplot2::theme(
  text = ggplot2::element_text(
    family = 'serif',
    size = 14),
  rect = ggplot2::element_blank(),
  panel.grid = ggplot2::element_blank(),
  title = ggplot2::element_text(color = 'black'),
  axis.line = ggplot2::element_line(color = 'black')
  )

自定义主题函数

font <- "serif"

theme_custom <- function(){
  ggplot2::theme_classic() %+replace%
    ggplot2::theme(
      plot.title = ggplot2::element_text(
        family = font,
        size = 14,
        hjust = 0,
        vjust = 2),
      axis.title = ggplot2::element_text(
        family = font,
        size = 14),
      axis.text = ggplot2::element_text(
        family = font,
        size = 14)
    )}

内容的提问来源于stack exchange，提问作者tangiblecatstye