第二期R18-Lucy

lucyylx 2017-10-19 12:00:14 阅读: 1211

> read.csv("/Users/LUCY/Desktop/R01.csv",header = T)

111.png

> data<- read.csv("/Users/LUCY/Desktop/R01.csv",header = T)

> x<- data$病程

> y<- data$UPDRS

> par(family='STKaiti')

> plot (x, y, main = "MSA患者UPDRS评分与病程的关系", xlab = "病程", ylab = "UDPRS评分",xlim = c(0,12.5), ylim=c(0,70),pch = 2, col = "red", cex = 1.2, col.lab = "blue", col.axis = "orange", cex.lab = 1.2, cex.main = 1.5)

11.png

 

 
邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
{{item.nick_name}} 受邀请回答 {{item.create_time}}
{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
切换到完整回复 发送回复
赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭
R科研作图学习小组(小组)

小组最新话题

科研狗©2015-2025 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号