第一期任务作业 R-011-王涛

blanking 2017-06-19 11:26:06 阅读: 1344

请大家多多指教，谢谢！

-------------------------------------------------------------------

#数据录入方法1：数据少，可手动录入

course_of_disease <- 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)

#数据录入方法2: excel导入

getwd()

setwd("E:/R learning")

MSA2 <- read.csv("R group task1.csv")

course_of_disease <- MSA2$病程

UPDRS <- MSA2$UPDRS评分

#数据录入方法3：剪切板导入

MSA3 <- read.table("clipboard")

course_of_disease <- MSA3$病程

UPDRS <- MSA3$UPDRS评分

plot(course_of_disease, UPDRS, xlab = "", ylab = "", xlim = c(0,12), ylim = c(15,70), col.axis = "red", pch = 24, col = 'red')

mtext("病程", side=1, col = "blue", line=3)

mtext("UPRDS评分", side=2, col = "blue", line=3)

title("MSA患者UPDRS评分与病程的关系", cex.main = 1)

-------------------------------------------------------------------------------------------------

邀请讨论

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

删除

回复关闭