如何在geom_density上指定两条不同颜色和形状的曲线

library(ggplot2)

# 创建示例数据集
df <- data.frame(
  x = rnorm(100, mean = 0),
  Group = rep(c("Group 1", "Group 2"), each = 50)
)

# 使用ggplot()函数创建图形对象，并将分组变量映射到颜色和线条类型
p <- ggplot(df, aes(x = x, fill = Group, linetype = Group))

# 在图形对象中添加geom_density()层
p <- p + geom_density()

# 使用scale_fill_manual()和scale_linetype_manual()函数指定颜色和线条类型
p <- p + scale_fill_manual(values = c("Group 1" = "red", "Group 2" = "blue"))
p <- p + scale_linetype_manual(values = c("Group 1" = "solid", "Group 2" = "dashed"))

# 打印图形对象
print(p)