看教程不够直观,那就看视频吧! >>点击加载视频
坐标轴翻转 coord_flip()
p<-ggplot(pressure,aes(x=temperature,y=pressure))+geom_bar(stat="identity")
p+coord_flip()
坐标轴值域(三种方式)
p+ylim(0,850)
p+scale_y_continuous(limits=c(100,500))
p+coord_cartesian(ylim=c(100,500))
坐标轴项目顺序调整
q<-ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(position="dodge",stat="identity")
q+scale_x_discrete(limits=c("d21","d16","d20")) ##顺序调整
q+scale_x_discrete(limits=c("d16","d21")) ##取出子集
设置刻度线位置
q+scale_y_continuous(breaks=c(1.47,2.26))
#也可以用这样的形式seq(0:3,by=.5)
移除刻度线及标签
q+theme(axis.text.y=element_blank())
q+theme(axis.ticks.y=element_blank())
修改刻度标签的文本
q+scale_y_continuous(breaks=c(0.5,1.5,2.5,3.2),labels=c("Tiny","Short","Medium","high"))
q+scale_x_discrete(breaks=c("d16","d20","d21"),labels=c("date16","date20","date21"))+theme(axis.text.x=element_text(angle=30))
修改坐标轴标签的文本
q+xlab("date of cabbage")+ylab("Weight of cabbage")
移除坐标轴标签
q+theme(axis.title=element_blank())
#theme(axis.title.x =element_blank())
#theme(axis.title.y =element_blank())
修改坐标轴标签的外观
q+theme(axis.title.x=element_text(face="italic",colour="darkred",size=14))
沿坐标轴显示直线
q+theme(axis.line=element_line(colour="black",size=2))
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!