需要用到ggh4x这个R包
library(ggplot2)
library(ggh4x)
dat<-data.frame(x=1:10,y=1:10)
ggplot(data=dat,aes(x=x,y=y))+
geom_point()+
theme_classic()
ggplot(data=dat,aes(x=x,y=y))+
geom_point()+
theme_classic()+
scale_x_continuous(breaks = c(1,3,5,7,9),
guide="axis_minor",
minor_breaks = c(2,4,6,8))
ggplot(data=dat,aes(x=x,y=y))+
geom_point()+
theme_classic()+
scale_x_continuous(breaks = c(1,3,5,7,9,10),
guide="axis_minor",
minor_breaks = c(2,4,6,8))+
guides(x=guide_axis_minor(trunc_lower = 1,
trunc_upper = 10),
y=guide_axis_truncated(trunc_lower = 2.5))
效果
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享:1、R语言和python做数据分析和数据可视化的简单小例子;2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记;3、生物信息学入门学习资料及自己的学习笔记!