第二期R28-聪

科研狗聪 2017-10-18 21:17:08 阅读: 1010

1、通过记事本录入数据

病程 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

data<-read.table('yssj.txt',header=TRUE)

捕获.JPG

2、

plot(data$病程, data$UPDRS评分,main=

'MSA（多系统萎缩）患者病程和UPDRS评分的关系',

xlab='病程', ylab='UPDRS评分', xlim=c(0,12),

cex=1, font.lab=2, pch=18, col='palevioletred2',

col.axis='tomato2',col.lab='cadetblue3',

col.main='lightcyan4')

邀请讨论

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

删除

回复关闭