ggplot2 练习杂记 EXCEL 曲线图

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列为文本型的时候显示的曲线是折线图并不平滑，可能类似如下

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