如何在r中的一列中按不同的值分组，以便生成密度图？

# 导入所需的包
library(ggplot2)
library(dplyr)

# 创建示例数据
data <- data.frame(
  group = c("A", "A", "B", "B", "C", "C"),  # 分组列
  value = c(1, 2, 3, 4, 5, 6)  # 数值列
)

# 按照分组列进行分组
grouped_data <- data %>% 
  group_by(group)

# 生成密度图
ggplot(grouped_data, aes(x = value, fill = group)) +
  geom_density(alpha = 0.5) +
  labs(title = "Density Plot", x = "Value", y = "Density") +
  scale_fill_manual(values = c("#F8766D", "#00BFC4", "#7CAE00"))  # 设置填充颜色，可根据实际情况调整

# 保存图像
ggsave("density_plot.png")