服务热线
178 0020 3020
R10-钦宏
> rm(list = ls())
> #Define working directory where source files are located
> work.dir <- "F:/network anslysis/20171018Homework/"
> setwd(work.dir)
> getwd() #check working directory
[1] "F:/network anslysis/20171018Homework"
>
> data <- read.table("data.txt", header=TRUE)
> data
X Y
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
>
>
> plot(data,main='MSA患者UPDRS评分与病程的关系', xlab='病程', ylab='UPDRS评分',xlim=c(0,12),ylim=c(0,70),cex=1.5,font.lab=1,pch=2,col='red',col.lab='blue',col.main='black',col.axis="orange")
> 
附件