Ggplot2绘图分面坐标轴（保留2位小数）、分面图之间缝隙调整、对每个图在纵坐标轴添加

ggplot2绘图分面坐标轴（保留2位小数）、分面图之间缝隙调整、对每个图在纵坐标轴添加取值不同的直线。

迫切希望调整图与图的间隙为下图这种情况。

查了facet源代码，是批量操作，无法单独为各分面添加不同的线
有另外一种解决方案：
对原数据进行分组处理，然后各组单独绘图，最后再组合到一起。用ggplot2可以实现。
这段代码是版主以前分享的，组合作图，你可以参考

1. library(dplyr)
   
2. # 画出左上的密度分布图
   
3. g_top_left <- mtcars %>%
   
4.   ggplot(aes(x = mpg)) +
   
5.   geom_density(fill = "#177cb0") +
   
6.   theme_bw() +
   
7.   theme(panel.background = element_blank(),
   
8.         panel.border = element_blank(),
   
9.         axis.title = element_blank(),
   
10.         panel.grid.major = element_blank(),
    
11.         panel.grid.minor = element_blank(),
    
12.         axis.line.x = element_line(),
    
13.         axis.line.y = element_line()) +
    
14.   scale_x_continuous(expand = c(0.03, -0.4), limits = c(10, 35))
    
15. 
    
16. # 画出右下的密度分布图
    
17. g_bottom_right <- mtcars %>%
    
18.   ggplot(aes(x = wt)) +
    
19.   geom_density(fill = "#789262") +
    
20.   theme_bw() +
    
21.   theme(panel.background = element_blank(),
    
22.         panel.border = element_blank(),
    
23.         axis.title = element_blank(),
    
24.         panel.grid.major = element_blank(),
    
25.         panel.grid.minor = element_blank(),
    
26.         axis.line.x = element_line(),
    
27.         axis.line.y = element_line()) +
    
28.   coord_flip() +
    
29.   scale_x_continuous(expand = c(0, 0), limits = c(1.3, 5.8))
    
30. 
    
31. # 画出左下的散点图
    
32. g_bottom_left <- mtcars %>%
    
33.   ggplot(aes(x = mpg, y = wt)) +
    
34.   geom_point() +
    
35.   theme_bw()
    
36. 
    
37. # 画出整体“画布”
    
38. df <- data.frame(x = 1:10, y = 1:10)
    
39. base <- ggplot(df, aes(x, y)) +
    
40.   geom_blank() +
    
41.   theme_bw() +
    
42.   theme(panel.background = element_blank(),
    
43.         panel.border = element_blank(),
    
44.         axis.text = element_blank(),
    
45.         axis.title = element_blank(),
    
46.         axis.ticks = element_blank(),
    
47.         axis.line = element_blank(),
    
48.         panel.grid.major = element_blank(),
    
49.         panel.grid.minor = element_blank())
    
50. 
    
51. # 将小图在“画布”上组合
    
52. base +
    
53.   annotation_custom(grob = ggplotGrob(g_bottom_left), xmin = 1, xmax = 8, ymin = 1, ymax = 8) +
    
54.   annotation_custom(grob = ggplotGrob(g_bottom_right), xmin = 8, xmax = 10, ymin = 1.3, ymax = 8.2) +
    
55.   annotation_custom(grob = ggplotGrob(g_top_left), xmin = 1, xmax = 8, ymin = 8, ymax = 10)

复制代码

facet_grid() 之后加一行
+theme(panel.spacing = unit(0.1, "lines"))
就可以调整分面之间的间隔。

纵坐标调整小数精度
+scale_y_continuous(label = round(????, 2)) #把????换成纵坐标的变量

llb_321 发表于 2020-8-25 22:04
facet_grid() 之后加一行
+theme(panel.spacing = unit(0.1, "lines"))
就可以调整分面之间的间隔。

非常感谢您的答案，分面图间隙调整的问题已经解决。但是由于我制作的分面图的纵坐标的间隔不是相等的，所以在绘图出现错误Breaks and labels are different lengths，请问如何解决呢？还有一个小问题，请您帮助，我需要在每个分面图的纵坐标中加入不同的直线，比如图1，2加y=0.03,图3，4加y=0.06.

看下这个示例

1. mt <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
   
2. geom_point()
   
3. 
   
4. mt + facet_grid(vars(cyl), scales = "free") +
   
5. scale_y_continuous(labels = scales::label_comma(accuracy =0.01)) + #调用scales包的函数 accuracy 的参数是确定小数精度的
   
6. theme(panel.spacing = unit(0.1, "lines")) +
   
7. geom_hline(yintercept = 2.5) #在图上加横线 问题是这条线对所有分面都有效

复制代码