如何为OpenRepGrid中的PCA图与Bertin图添加标题？

我正在使用OpenRepGrid包分析栅格测验（repertory grid）数据，本研究包含12名参与者，需要为每位参与者生成对应图表。目前使用cluster()函数生成的树状图可通过main参数设置标题，但PCA图与bertinCluster()生成的Bertin图无法通过该参数添加标题。请问是否有其他参数或方法可为这类图表添加标题？

示例代码 #

# 加载包
library(OpenRepGrid)
#> ------------------------------------------------
#>  OpenRepGrid v0.1.17
#>  用于分析栅格测验数据的工具
#> ------------------------------------------------

# 加载示例栅格数据
participant_grid <- fbb2003

# 为构念生成带参与者名称的树状图
## 正常显示标题
cluster(participant_grid, along=1, main="参与者名称")

# 为构念/元素生成带参与者名称的Bertin图
## 无法显示标题
bertinCluster(participant_grid, main= "参与者名称")

为bertinCluster()添加标题 #

bertinCluster()函数没有内置的main参数支持，你可以在绘图完成后调用基础绘图系统的title()函数手动添加标题：

bertinCluster(participant_grid)
title(main = "参与者名称")

若需要调整标题样式，可在title()中加入额外参数，比如修改字体大小、颜色：

title(main = "参与者名称", cex.main = 1.2, col.main = "darkblue")

为PCA图添加标题 #

OpenRepGrid中生成PCA图的pca()函数同样不支持直接通过main参数设置标题，同样用title()函数补加：

# 生成PCA图
pca(participant_grid)
# 添加标题
title(main = "参与者名称的PCA分析结果")

批量处理12名参与者的图表 #

如果要批量为所有参与者生成带标题的图表，可以用循环实现，示例框架如下：

# 假设所有参与者的栅格数据存储在grid_list列表中
grid_list <- list(participant_grid, participant_grid) # 替换为实际12份数据

for (i in 1:length(grid_list)) {
  # 生成Bertin图并添加标题
  bertinCluster(grid_list[[i]])
  title(main = paste("参与者", i, "的Bertin聚类图"))
  
  # 生成PCA图并添加标题
  pca(grid_list[[i]])
  title(main = paste("参与者", i, "的PCA分析图"))
  
  # 生成树状图（自带main参数）
  cluster(grid_list[[i]], along=1, main=paste("参与者", i, "的树状图"))
}

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