ggplot2 练习杂记 EXCEL 曲线图

来源:互联网 时间:1970-01-01

Excel中曲线图如下:

想要在R ggplot2 中实现同样效果的图形

代码

 

library(xlsx)

library(ggplot2)

library(scales)

channel <- read.xlsx("c:/myR/test.xlsx",sheetName="Sheet1",encoding="UTF-8")

channel$Name<-factor(channel$Name,levels=c("一级商国产品","进口商进口产品","TOP100国产品"))

p<-ggplot(channel,aes(x=AP,y=diff,group=Name,colour=Name))+geom_point()+ geom_smooth(size=1)+facet_grid(.~Name)
p<-p+scale_x_discrete(breaks=c("1","2","3","4","5"),labels=c("AP1","-","-","-","AP5"))

p<-p+scale_y_continuous(limits=c(0,.07),breaks=c(0,0.01,0.02,0.03,0.05),labels=percent_format())

p<-p+theme( panel.grid.major=element_blank(),panel.grid.minor=element_blank(),legend.position="none",axis.text.y=element_text(colour="darkred",size=rel(0.7)),axis.text.x =element_text(colour="darkred",size=rel(0.7)))

p<-p+labs(y=NULL,x=NULL)

p

 

 

结果

大致的图形已经实现了,但细节没有做太多调整。刚开始学,很费劲,尤其需要注意

当x=AP,这个AP列为文本型的时候显示的曲线是折线图并不平滑,可能类似如下

 

好吧,就酱,我并不明白为什么,待深入学习后再解答这个问题。


相关阅读:
Top