第二期R14-Penny

抹茶泡芙 2017-10-19 15:03:33 阅读: 998

> data<-read.csv("C:/Users/panzw/Downloads/R/1/origin.csv",head=T)
> data
   病程 UPDRS评分
1     5        32
2     7        40
3     4        21
4     1        23
5     3        28
6     2        36
7     5        40
8     5        50
9     6        48
10   11        68
11    8        55
12    2        27
13    2        18
> x=data$病程
> y=data$UPDRS评分
> x
 [1]  5  7  4  1  3  2  5  5  6 11  8  2  2
> y
 [1] 32 40 21 23 28 36 40 50 48 68 55 27 18
> plot(x,y,xlab="病程",ylab="UPDRS评分",main="MSA患者UPDRS评分与病程的关系",xlim=c(0,13),ylim=c(0,70),pch=2,col="red",cex=1,col.lab="blue",col.axis="orange",cex.lab=1,cex.main=1.5)
>

邀请讨论

附件

{{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}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01