使用ggplot2的theme()修改factoextra PCA双图样式无效问题

核心问题 #

你代码里的theme调用顺序搞反了：theme_classic()放在最后，会完全覆盖掉之前自定义的theme()设置，所以只有classic主题生效，其他样式都被冲掉了。

修正后的代码 #

library(ggplot2)
library(factoextra)

# 生成PCA双图
B <- fviz_pca_biplot(PC.TM.Bact, 
                     repel = TRUE, 
                     geom=c('point'), 
                     select.var = list(contrib = 8),    
                     title=NULL, 
                     col.var = "blue", 
                     col.ind.sup = "black",
                     col.ind='blue', 
                     labelsize=7,
                     loadinglabelsize=5, 
                     col.axes='blue', 
                     arrowsize=.5, 
                     pointsize=3, 
                     xlab="PC1 (33.1%)", 
                     ylab="PC2 (20.6%)") 

# 先应用classic主题，再叠加自定义样式（顺序不能反）
C <- B + theme_classic() +
  theme(
    text = element_text(size = 20, face='bold'), # 全局文本加粗放大
    axis.line = element_line(colour = "red", size=0.5), # 修改轴线样式
    legend.position="none" # 隐藏图例
  ) + coord_equal(1)

print(C)

关键说明 #

1. 顺序优先：ggplot2中后添加的theme会覆盖前面的，所以先加theme_classic()确定基础样式，再用自定义theme()修改你需要的部分，这样自定义设置才会生效。
2. 简化代码：theme_classic()已经默认包含「空白面板背景、无网格线」的设置，不需要重复写panel.background和panel.grid相关代码。
3. 文本大小补充：如果要让样本/变量标签和轴标签大小完全统一，可以调整fviz_pca_biplot()里的labelsize和loadinglabelsize参数，和theme里的text设置匹配。

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