R-013第一次作业提交

楠木南 2017-06-26 20:49:13 阅读: 1077

1.手动输入数据在Rstuio新建rscript

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:/plot-3.png")

plot(x=MSA,y=UPDRS,xlab = "MSA病程",ylab = "UPDRS评分")

选中run

得到plot-3

2 excel表格输入，将数据导入excel表格中

这次直接在工作站中进行

Install xlsx 后

> library("xlsx")

载入需要的程辑包：rJava

载入需要的程辑包：xlsxjars

> library("rJava")

> library("xlsxjars")

> library("xlsx")

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

> x<-data$MSA

> y<-data$UPDRS

> png(file="E:/plot-4.png")

> plot(x=MSA,y=UPDRS,xlab = "MSA病程",ylab = "UPDRS评分",xlim = c(0,12),ylim = c(10,70),main = "MSA-UPDRS")

> dev.off()

邀请讨论

{{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}})

删除

回复关闭