将R ggplot中密度图中的y轴归一化为按组比例

install.packages("ggplot2")

library(ggplot2)

p <- ggplot(data = df, aes(x = value))

p <- p + geom_density(aes(fill = group), alpha = 0.5)

p <- p + scale_y_continuous(limits = c(0, 1))

library(ggplot2)

# 创建示例数据框
df <- data.frame(
  group = rep(c("A", "B"), each = 100),
  value = c(rnorm(100), rnorm(100, mean = 2))
)

# 创建基础图层
p <- ggplot(data = df, aes(x = value))

# 添加密度图层
p <- p + geom_density(aes(fill = group), alpha = 0.5)

# 对y轴进行归一化处理
p <- p + scale_y_continuous(limits = c(0, 1))

# 添加标题和坐标轴标签
p <- p + labs(title = "Density Plot with Normalized Y-axis",
              x = "Value",
              y = "Normalized Density")

# 显示图形
print(p)