第二期R30-椰z

R30-椰z 2017-10-17 17:54:16 阅读: 988

> library(ggplot2)

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

> a<-data.frame(k1=x,k2=y)

> a

k1 k2

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

> p<-ggplot(a,aes(x=k1,y=k2))+geom_point(,color="red",shape=2)+theme_bw()+theme(text=element_text(family="STKaiti",size=12),panel.border = element_blank(),panel.grid.major = element_blank(),panel.grid.minor = element_blank(),axis.line = element_line(colour = "black"))+xlab("病程")+ylab("UPDRS评分")+labs(title="MSA（多系统萎缩）患者病程和UPDRS评分的关系")

> p

> p<-ggplot(a,aes(x=k1,y=k2))+geom_point(,color="red",shape=2)+theme_bw()+theme(text=element_text(family="STKaiti",size=12),panel.border = element_blank(),panel.grid.major = element_blank(),panel.grid.minor = element_blank(),axis.line = element_line(colour = "black"))+xlab("病程")+ylab("UPDRS评分")+labs(title="MSA（多系统萎缩）患者病程和UPDRS评分的关系")+xlim(xmin=0,xmax=12)+ylim(ymin=0,ymax=70)

> p

邀请讨论