编辑代码

library(ggplot2)


X <- seq(-5, 5, length.out = 1000)
dfn <- dt(X, df = 1)
norm <- dnorm(X)

temp <- data.frame(X, dfn, norm)
Table <- melt(temp, id.vars = "X", variable.name = "Types", value.name = "Y")

ggplot(data = Table, aes(x = X, y = Y, col = Types, linetype = Types)) + 
       geom_line(size = 1) + 
       ggtitle("不同自由度下的t分布以及标准正态分布") + 
       theme(plot.title = element_text(hjust = 0.5)) + 
       theme_bw()