用ggpolt2画个各科成绩的山脊图 ,需显示中位数线

ggplot2是R语言中一个强大的可视化包，可以用于绘制各种图形，包括山脊图。

首先，我们需要准备一个数据集，其中包含各科成绩的信息。假设我们有一个数据框df，包含学生的姓名和各科成绩的列。我们可以使用如下代码创建数据集：

df <- data.frame(
  姓名 = c("张三", "李四", "王五", "赵六", "钱七"),
  数学 = c(80, 75, 90, 85, 95),
  语文 = c(85, 90, 75, 80, 70),
  英语 = c(90, 85, 95, 80, 75)
)

接下来，我们使用ggplot2包来绘制山脊图，并显示中位数线。我们可以使用geom_density()函数来绘制山脊图，使用geom_vline()函数来添加中位数线。

library(ggplot2)

# 创建山脊图
ggplot(df, aes(x = 数学, fill = 姓名)) +
  geom_density(alpha = 0.6) +   # 设置填充颜色的透明度
  geom_vline(aes(xintercept = median(数学)), color = "red", linetype = "dashed", size = 1) +  # 添加红色虚线中位数线
  labs(title = "各科成绩的山脊图", x = "成绩", y = "密度") +  # 设置标题和坐标轴标签
  theme_minimal()  # 设置为最小化主题

以上代码中，我们使用aes()函数指定x轴为数学成绩，fill参数用于根据姓名进行填充颜色，这样每个学生的山脊图就会有不同的颜色。使用alpha参数可以调整填充颜色的透明度。geom_vline()函数中，我们使用median()函数计算数学成绩的中位数，并使用color、linetype和size参数设置中位数线的样式。最后，使用labs()函数设置图形的标题和坐标轴标签，使用theme_minimal()函数设置最小化主题风格。

通过以上代码，我们就可以得到一幅显示各科成绩的山脊图，并且显示了数学成绩的中位数线。