如何按数据集行序创建交替分组条形图（R语言）

当然可以实现这个需求，核心思路是用行号作为x轴的位置锚点，避免默认的分组合并逻辑，同时指定对应组的颜色即可。下面用ggplot2给出具体实现代码：

library(ggplot2)

# 你的原始数据集
df <- data.frame(x1 = seq(1,8,1),
                 x2 = c("G1","G2","G1","G2",
                        "G1","G2","G1","G2"))

# 绘制严格按行顺序的交替条形图
ggplot(df, aes(x = row_number(), y = x1, fill = x2)) +
  geom_col(width = 0.8) + # 可根据需求调整条形宽度
  scale_fill_manual(values = c("G1" = "red", "G2" = "blue")) + # 指定分组颜色
  labs(x = "样本顺序", y = "x1数值") + # 自定义轴标签
  theme_bw() # 使用简洁的主题样式

代码说明： #

• row_number()作为x轴变量：确保每个条形严格对应数据集的原始行顺序，不会把所有G1/G2的条目合并到同一组位置
• fill = x2 + scale_fill_manual：通过分组变量映射填充色，直接指定G1为红色、G2为蓝色，实现交替颜色效果

如果需要把x轴标签替换成对应的分组名（G1/G2交替显示），可以修改x轴的映射逻辑：

ggplot(df, aes(x = factor(row_number(), labels = df$x2), y = x1, fill = x2)) +
  geom_col(width = 0.8) +
  scale_fill_manual(values = c("G1" = "red", "G2" = "blue")) +
  labs(x = "分组", y = "x1数值") +
  theme_bw()

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