如何在R中复刻Excel制作的簇状柱形图？

你的数据是宽格式，而R主流绘图工具（比如ggplot2）更适配长格式数据，所以先转换数据结构，再逐步调整样式匹配Excel效果，具体步骤如下：

1. 加载必要工具包 #

用到包含数据处理与绘图功能的tidyverse：

library(tidyverse)

2. 构建并转换数据 #

先把你的数据存入数据框，再转成长格式：

# 创建原始数据框
df <- data.frame(
  Age = c("Immature", "Mature"),
  MolLayer% = c(6, 7),
  GranLayer% = c(12, 12.5)
)

# 转换为长格式（ggplot2适配格式）
df_long <- df %>%
  pivot_longer(cols = -Age, names_to = "Layer", values_to = "Percentage")

转换后的数据结构：

3. 绘制基础簇状柱形图 #

用ggplot2实现簇状效果，position = "dodge"控制柱子并列：

p <- ggplot(df_long, aes(x = Age, y = Percentage, fill = Layer)) +
  geom_col(position = position_dodge(width = 0.8), width = 0.7)

4. 调整样式匹配Excel效果 #

按照Excel图表的常见样式，针对性调整细节：

（1）坐标轴与标签设置 #

p <- p +
  labs(
    x = "Age",
    y = "Percentage (%)",
    title = "Layer Percentage by Age", # 替换为你Excel中的图表标题
    fill = "Layer Type" # 替换为Excel图例标题
  ) +
  scale_y_continuous(expand = c(0, 0), limits = c(0, 15)) # 消除y轴顶部空白，匹配Excel轴范围

（2）柱子配色（匹配Excel默认风格） #

p <- p +
  scale_fill_manual(values = c("#4F81BD", "#C0504D")) # 对应Excel默认蓝红配色，可自行替换颜色码

（3）主题样式（贴近Excel简洁风格） #

p <- p +
  theme_bw() +
  theme(
    panel.grid.major.y = element_line(color = "#E0E0E0"), # 浅灰色y轴网格线
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    axis.line = element_line(color = "black"), # 显示坐标轴边框
    legend.position = "top", # 可改为"right"匹配Excel图例位置
    plot.title = element_text(hjust = 0.5) # 标题居中
  )

（4）添加数据标签（若Excel图表包含） #

p <- p +
  geom_text(aes(label = Percentage), 
            position = position_dodge(width = 0.8),
            vjust = -0.5, size = 4) # 标签置于柱子上方

5. 输出图表 #

直接运行p即可在R中查看图表，也可导出为图片：

ggsave("cluster_barplot.png", p, width = 6, height = 4, dpi = 300)

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