如何在R语言中绘制三种不同颜色的叠加直方图？

下面提供两种常用的实现方式，分别基于基础R绘图系统和ggplot2包：

方法一：基础R绘图 #

先定义变量，再逐步叠加直方图并设置颜色与透明度：

# 定义变量
x <- c(1.5,2.1,3.6,4.2,5.6) 
y <- c(2.5,2.1,1.6,3.2,4.6)
z <- c(0.5,1.5,2.6,2.2,3.6)

# 计算所有数据的范围，确保坐标轴覆盖全部数值
all_data <- c(x, y, z)

# 绘制第一个变量x的直方图，设置红色半透明
hist(x, col = rgb(1, 0, 0, 0.5), main = "叠加直方图", xlab = "数值", 
     xlim = range(all_data), ylim = c(0, 3))

# 叠加变量y的直方图，绿色半透明，add=T表示在已有图上绘制
hist(y, col = rgb(0, 1, 0, 0.5), add = TRUE)

# 叠加变量z的直方图，蓝色半透明
hist(z, col = rgb(0, 0, 1, 0.5), add = TRUE)

# 添加图例区分不同变量
legend("topright", legend = c("x", "y", "z"), 
       fill = c(rgb(1,0,0,0.5), rgb(0,1,0,0.5), rgb(0,0,1,0.5)))

• 用rgb()函数设置带透明度的颜色（第四个参数是透明度，0完全透明，1不透明），避免直方图互相遮挡
• xlim和ylim手动设置坐标轴范围，确保所有数据的直方图都能完整显示
• add=TRUE是实现叠加的核心参数

方法二：ggplot2包（更灵活的可视化工具） #

ggplot2更适合处理结构化数据，需要先将数据整理为长格式：

# 加载ggplot2包（如果未安装先运行install.packages("ggplot2")）
library(ggplot2)

# 定义变量
x <- c(1.5,2.1,3.6,4.2,5.6) 
y <- c(2.5,2.1,1.6,3.2,4.6)
z <- c(0.5,1.5,2.6,2.2,3.6)

# 将数据整理为长格式数据框
df <- data.frame(
  value = c(x, y, z),
  group = rep(c("x", "y", "z"), each = 5)
)

# 绘制叠加直方图
ggplot(df, aes(x = value, fill = group)) +
  geom_histogram(position = "identity", alpha = 0.5, binwidth = 0.8) +
  labs(title = "叠加直方图", x = "数值", y = "频数") +
  scale_fill_manual(values = c("x" = "red", "y" = "green", "z" = "blue")) +
  theme_minimal()

• position="identity"指定直方图叠加显示，若改为"dodge"则是分组并排显示
• alpha=0.5设置透明度，binwidth可根据数据分布调整区间宽度
• scale_fill_manual自定义每个分组的颜色，也可以用预设色板（如scale_fill_viridis_d()）

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