如何在R语言对应分析绘图中区分w1-6与other1-6的颜色？

要区分w1-6和other1-6的标签颜色，核心是根据文档名称的前缀生成对应颜色向量，再传给绘图的text()函数。具体修改步骤如下：

1. 生成颜色分组向量 #

利用文档名的前缀（w/other）判断分组，给不同组分配不同颜色：

# 根据文档名前缀生成颜色向量
doc_colors <- ifelse(grepl("^w", rownames(dat_ca)), "#1f77b4", "#ff7f0e")
# 说明：grepl匹配以w开头的文档名，匹配到的用蓝色，否则用橙色（可自行替换颜色值）

2. 修改绘图的text函数 #

把原来固定的col = rgb(0,0,0,0.7)换成上面生成的doc_colors：

完整修改后的绘图代码片段

plot(1, xlim = c(-3, 3), ylim = c(-3, 3), type = "n", xlab = "Dimension 1", ylab = "Dimension 2")
grid()
# 关键修改：用分色向量替代固定颜色
text(dat_ca$dim1, dat_ca$dim2, labels = rownames(dat_ca), cex = 0.9, col = doc_colors)

额外优化（可选） #

如果想给颜色加上透明度，直接用rgb()函数定义颜色即可：

doc_colors <- ifelse(grepl("^w", rownames(dat_ca)), rgb(0.12,0.47,0.71,0.7), rgb(1,0.5,0.13,0.7))

这样就能实现w开头的文档标签和other开头的标签用不同颜色显示了。

内容的提问来源于stack exchange，提问作者らちゃん