第一期任务作业 R-015 散点图

universe1023 2017-06-27 22:58:15 阅读: 1172

初版

MSA<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)

UPDRS<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)

png(file="E:/plot1.png")

plot(x=MSA,y=UPDRS,main="MSA-UPDRS",pch=16)

初版.png

细化版

MSA<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)

UPDRS<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)

png(file="E:/plot2.png")

plot(x=MSA,y=UPDRS,xlab="MSA病程",ylab="UPDRS评分",xlim=c(0,12),ylim=c(10,70),main="MSA患者病程和UPDRS评分关系",pch=16)

细化版.png

EXCEL数据导入是参考前面大神的步骤

设置镜像后，将数据录入excel表中

library("xlsx")

data<-read.xlsx("E:/plot.xlsx",sheetIndex=1)

x<-data$MSA

y<-data$UPDRS

png(file="E:/plot3.png")

plot(x=MSA,y=UPDRS,xlab="MSA病程",ylab="UPDRS评分",xlim=c(0,12),ylim=c(10,70),main="MSA患者病程和UPDRS评分的关系",pch=16)

excel数据导入.png

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭