不同自由度的卡方分布图中怎样做出的？

附件中的不同自由度的卡方分布图中怎样做出的？
How to create graph of χ squares distribution of different DF?

下面R code 可以实现
x<-seq(0,26,by=0.5)
y1<-dchisq(x,26)
y2<-dchisq(x,5)
plot(x,y1,type="l",ylim=c(0,0.16),xlim=c(0,24),col="red")
lines(x,y2,col="red")
适当修改x 的值

再次请教高手！！！

悬赏额度增加到100！！

沉得太快了！！

诚心求助啊！！

已经完成，谢谢高手！

楼主怎么完成的，贴出来看看嘛