第一期作业提交：R,19和R22

yxldoc 2017-06-29 10:42:41 阅读: 1212

第一部分

数据的导入

首先研究的题目是MSA（多系统萎缩）患者病程和UPDRS评分的关系----做散点图

原始数据

病程

5

7

4

1

3

2

5

5

6

11

8

2

2

UPDRS评分

32

40

21

23

28

36

40

50

48

68

55

27

18

数据录入方法

1.   直接输入

2.   TXT格式导入

先建立一个文件名为data.txt的文档

1.png

 

然后输入命令

read.table(file = "C:\\Users\\Administrator\\Desktop\\data.txt",header = T,sep=",")

   数据就可以导入了

2.png

3.导入Excel数据

先把Excel另存为CSV格式

4.png


 

 4.png

第二部分：

散点图的制作：

第一步：打开R软件，点击文件—新建程序脚本，弹出新的命令框

5.png

第二部输入数据

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

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

 

 

 

6.png

 

 

第三步绘制散点图

plot(x, y, main = "MSA患者UPDRS评分与病程的关系", xlab = "病程", ylab = "UPDRS评分")

 

7.png

 

点击编辑—运行所有代码

 

8.png

如果想给图填上色彩，可以用命令

plot(x, y, main = "MSA患者UPDRS评分与病程的关系", xlab = "病程", ylab = "UPDRS评分",xlim = c(0,12), pch = 2, col = "red", cex = 1.2,col.lab = "blue", col.axis = "orange", cex.lab = 1.2, cex.main = 1.5)

可以得到下图：

9.png


 
邀请讨论

附件

{{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}}) 删除 回复 关闭
R科研作图学习小组(小组)

小组最新话题

科研狗©2015-2024 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号