ggplot主题

最新推荐文章于 2024-09-04 09:05:33 发布

TTS56

最新推荐文章于 2024-09-04 09:05:33 发布

阅读量409

点赞数 1

分类专栏：学术绘图

本文链接：https://blog.youkuaiyun.com/qq_40966210/article/details/118292386

版权

学术绘图专栏收录该内容

4 篇文章

订阅专栏

ggplot 主题

坐标从0开始并将坐标箭头向内

# 设置参数expand = c(0,0)，可以使坐标从0开始
p = ggplot(data = df,aes(x,y))+
  geom_point()+
  theme_classic()+
  scale_x_continuous(limits = c(0,60),expand = c(0,0))+
  scale_y_continuous(limits = c(0,1),expand = c(0,0))
p +
  theme(axis.ticks.length.x.bottom = unit(-0.25, "cm")) +
  theme(axis.ticks.length.y.left = unit(-0.25, "cm")) +
  theme(axis.text.x.bottom = element_text(vjust=-5))+
  theme(axis.text.y.left = element_text(hjust=-5))+
  theme(axis.title.x = element_text(vjust=-2))+
  theme(axis.title.y = element_text(hjust=-2))+
  theme(plot.margin = unit(c(1,1,1,1), "cm"))
p +
  theme(axis.ticks.length=unit(-0.25, "cm"), 
        axis.text.x = element_text(margin=unit(c(0.5,0.5,0.5,0.5), "cm")), 
        axis.text.y = element_text(margin=unit(c(0.5,0.5,0.5,0.5), "cm")) )

# 导入 yuansh 的专用 theme
pdf_dir = 'C:/Users/yuans/Desktop/'
ggscale = 0.5
yuansh_theme = ggplot2::theme(title = element_text(size =16*ggscale),
                              axis.title = element_text(size = 12*ggscale),
                              axis.text.x = element_text(size = 12*ggscale,
                                                         angle = 90),
                              axis.text.y = element_text(size = 12*ggscale),
                              axis.line.x = element_blank(),
                              axis.line.y = element_blank(),
                              axis.ticks = element_blank(),
                              legend.text = element_text(size = 12*ggscale),
                              legend.key = element_blank(),
                              legend.key.size = unit(0.4, "lines"),
                              legend.position = c(1.098, 0.7),
                              panel.grid.major = element_line(color = "white",
                                                              size = 0.3),
                              panel.grid.minor = element_line(color = "white",
                                                              size = 0.3),
                              panel.background = element_rect(fill = "white"),
                              plot.margin = unit(c(0.3, 1.5, 0, 0),"cm"))

if(T){
  base_theme <- ggplot2::theme(title = element_text(size = rel(0.6)),
                               axis.title = element_text(size = rel(0.9)),
                               axis.text.x = element_text(size = rel(0.7),
                                                          vjust = 1,angle = 45),
                               axis.text.y = element_text(size = rel(0.7)),
                               axis.line.x = element_blank(),
                               axis.line.y = element_blank(),
                               axis.ticks = element_blank(),
                               legend.text = element_text(size = rel(0.4)),
                               legend.key = element_blank(),
                               legend.key.size = unit(0.4, "lines"),
                               legend.position = c(1.098, 0.7),
                               panel.grid.major = element_line(color = "white",
                                                               size = 0.3),
                               panel.grid.minor = element_line(color = "white",
                                                               size = 0.3),
                               panel.background = element_rect(fill = "white"),
                               plot.margin = unit(c(0.2, 1.5, 0, 0),"cm")) 
  
  within_theme <- theme(title = element_text(size = rel(0.7)),
                        axis.text.x = element_text(angle = 90, size = rel(0.5)),
                        axis.text.y = element_text(size = rel(0.5)),
                        axis.title.x = element_blank(),
                        axis.title.y = element_text(size = rel(0.7)),
                        legend.position = 'right',
                        plot.margin = unit(rep(0.1, 4), "cm"),
                        legend.text = element_text(size = rel(0.45)),
                        legend.key = element_blank(),
                        legend.key.size = unit(2, "mm"), 
                        strip.text.x = element_text(size = rel(1.0)),
                        panel.grid.major = element_line(color = "gray",
                                                        size = 0.3),
                        panel.background = element_rect(fill = "white"))
}