基于列名前缀分组绘制散点图的R语言技术求助

首先，我注意到你代码里一个潜在的问题：mean是9个列的均值（对应9列），但p只有3个值，两者长度不匹配，直接绘图会报错。我们需要先把数据整理成数据框格式，让每个数据点都对应正确的x轴值（p）和分组前缀，然后再分别绘图。

以下是完整的分步解决方案：

1. 整理数据为数据框 #

把列均值、对应的x轴值（p）和列名前缀整合到一个数据框里，方便后续筛选和绘图：

library(lattice)
library(latticeExtra)

# 你的原始数据
data <- matrix(data= 1:9, nrow = 5, ncol = 9)
colnames(data) <- c("A1", "A2", "A3", "B1", "B2", "B3", "C1", "C2", "C3")
p <- c(0.1, 0.2, 0.3)

# 计算列均值
mean_vals <- colMeans(data)
# 为每个列匹配对应的p值（每个前缀下的3列对应p的3个值，所以重复p三次）
p_vals <- rep(p, 3)
# 提取列名的第一个字符作为前缀（A/B/C）
prefixes <- substr(colnames(data), 1, 1)
# 整合成数据框
plot_data <- data.frame(mean = mean_vals, p = p_vals, prefix = prefixes)

2. 生成独立的散点图（每张图对应一个前缀） #

我们可以通过循环遍历每个唯一前缀，筛选对应数据后绘制单独的图：

# 获取所有唯一的前缀（A/B/C）
unique_prefixes <- unique(prefixes)

# 循环绘制每个分组的图
for (pref in unique_prefixes) {
  # 筛选当前前缀的数据
  subset_data <- subset(plot_data, prefix == pref)
  
  # 绘制散点图+线图（如果只需要散点，把type改成"p"即可）
  plot <- xyplot(mean ~ p, data = subset_data,
                 type = c("p", "l"),  # 同时显示散点和连线
                 lwd = 2,
                 xlab = "error rate",
                 ylab = "error magnitude",
                 main = paste("Group", pref))  # 图标题标注分组
  
  # 打印当前图（lattice绘图需要显式print才会显示）
  print(plot)
}

3. 可选：把三张图放在同一布局中 #

如果你希望把三个分组的图放在同一个画布上，可以用lattice的条件面板（|符号），搭配layout参数控制排列方式：

xyplot(mean ~ p | prefix, data = plot_data,
       type = c("p", "l"),
       lwd = 2,
       xlab = "error rate",
       ylab = "error magnitude",
       layout = c(3, 1))  # 横向排列3张图，纵向1列

为什么你的原始代码有问题？ #

你之前用groups = grep("A", colnames(data))是错误的用法：groups参数是用来在同一张图中区分不同子组的样式（比如颜色、线条类型），而不是筛选数据生成独立的图。正确的做法是先筛选对应前缀的数据子集，再单独绘图。

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