||
pbsfig <- qplot(raw.score, theta, data = pbs,geom=c("point","smooth"),method = "loess")
###下一行实现所需功能
pbsfig + theme(axis.text=element_text(size=16),axis.title=element_text(size=20,face="bold"))
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-20 05:27
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社