R：按因子绘制两个不同列的均值图

以下是一个示例代码，可以按因子绘制两个不同列的均值图：

# 导入所需的库
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
  y1 = c(2, 4, 6, 8, 10, 12, 14, 16, 18, 20),
  y2 = c(1, 3, 5, 7, 9, 11, 13, 15, 17, 19),
  factor = c("A", "A", "A", "B", "B", "B", "C", "C", "C", "C")
)

# 按因子计算均值
mean_data <- aggregate(data[, c("y1", "y2")], by = list(data$factor), FUN = mean)

# 绘制均值图
ggplot(mean_data, aes(x = Group.1)) +
  geom_bar(aes(y = y1), stat = "identity", fill = "blue", width = 0.5) +
  geom_bar(aes(y = y2), stat = "identity", fill = "red", width = 0.5) +
  labs(title = "Mean Values of y1 and y2 by Factor") +
  xlab("Factor") +
  ylab("Mean Value") +
  theme_bw()

这个示例代码首先创建了一个包含两个变量（y1和y2）、一个因子（factor）和一个自变量（x）的数据集。然后，使用aggregate()函数按因子计算了y1和y2的均值。最后，使用ggplot2库绘制了两个不同列的均值图，其中y1用蓝色表示，y2用红色表示。