ggplot 中是否有 R 函数可以将绘图限制在最大数据范围内？

Question

奇怪的问题，但我似乎找不到一种巧妙的方法来管理它！我在 R 中制作了许多科学数字——每个都有一大堆图（通过 ggplot2）堆叠在一起（plot_grid），沿着相同的 x 轴匹配。到目前为止一切顺利，我几乎准备好导出和润色 illustrator 中的所有数字。

最后一步是对每个图施加限制，以使堆栈中每个图之间的空间尽可能窄。我已经通过以下方式完成了它：

test1<-ggplot(mtcars, aes(mpg, hp)) + 
  geom_line() +
  theme(plot.margin = unit(c(0, 0, 0, 0), "cm"),
        axis.line.y.right = element_line(colour = "black", size=1), 
        axis.line.y.left = element_line(colour = "black", size=1),
        axis.ticks.y.right = element_blank(),
        axis.text.y.right = element_blank(),        
        axis.title.x = element_blank(),    
        axis.ticks.x = element_blank(),    
        axis.line.x.bottom = element_blank(),    
        axis.text.x =element_blank(),
        axis.line = element_line(colour = "black", size =1),)

test2<-ggplot(mtcars, aes(mpg, drat)) + 
  geom_line() +
  theme(plot.margin = unit(c(0, 0, 0, 0), "cm"),
        axis.line.y.right = element_line(colour = "black", size=1), 
        axis.line.y.left = element_line(colour = "black", size=1),
        axis.ticks.y.right = element_blank(),
        axis.text.y.right = element_blank(),        
        axis.title.x = element_blank(),    
        axis.ticks.x = element_blank(),    
        axis.line.x.bottom = element_blank(),    
        axis.text.x =element_blank(),
        axis.line = element_line(colour = "black", size =1),)

test3<-ggplot(mtcars, aes(mpg, wt)) + 
  geom_line() + 
  theme(plot.margin = unit(c(0, 0, 0, 0), "cm"),
                      axis.line.y.right = element_line(colour = "black", size=1), 
                      axis.line.y.left = element_line(colour = "black", size=1),
                      axis.ticks.y.right = element_blank(),
                      axis.text.y.right = element_blank(),        
                      axis.title.x = element_blank(),    
                      axis.ticks.x = element_blank(),    
                      axis.line.x.bottom = element_blank(),    
                      axis.text.x =element_blank(),
                      axis.line = element_line(colour = "black", size =1),)

test<- plot_grid(test1, test2, test3, ncol=1, align="v", rel_heights = c(1,1,1))
test

这看起来像是我在主题位中所做的。不确定——但我们将不胜感激！

Answer 1

如果您希望地块之间没有空间堆叠，您需要在theme 调用中使用plot.margin 值。您可以指定负值和不同的单位。所以，这样的事情可以做你想做的事：

library(ggplot2)
library(cowplot)
#> 
#> ********************************************************
#> Note: As of version 1.0.0, cowplot does not change the
#>   default ggplot2 theme anymore. To recover the previous
#>   behavior, execute:
#>   theme_set(theme_cowplot())
#> ********************************************************

my_theme <- theme(
  plot.margin = unit(c(0, 0, -0.3, 0), "lines"),
  axis.title.x = element_blank(),    
  # axis.line = element_line(colour = "black", size =1),
  axis.line.y.right = element_line(colour = "black", size=1), 
  axis.line.y.left = element_line(colour = "black", size=1),
  axis.line.x.bottom = element_blank(),
  # axis.ticks.y.right = element_blank(),
  # axis.ticks.x = element_blank(),    
  # axis.text.y.right = element_blank(),        
  axis.text.x =element_blank(),
)

test1<-ggplot(mtcars, aes(mpg, hp)) + 
  geom_line() +
  my_theme

test2<-ggplot(mtcars, aes(mpg, drat)) + 
  geom_line() +
  my_theme

test3<-ggplot(mtcars, aes(mpg, wt)) + 
  geom_line() + 
  my_theme

test<- plot_grid(test1, test2, test3, ncol=1, align="v", rel_heights = c(1,1,1))
test

^{由reprex package (v0.3.0) 于 2019 年 11 月 24 日创建}

只需使用plot.margin 底部或顶部边距即可获得所需的内容。 另外，我评论了您的主题电话的一些行，因为它们是不必要的，至少在提供的示例中是这样。如果您的原始数据需要，请随时取消注释。

Answer 2

不是很明白这个问题，你需要发布一个可重现的例子。

您是在问如何限制轴范围？如果是这样

+ scale_x_continuous(limits = c(0, 1))

将调整 x 轴范围。 y 的类似函数。只需调整 0,1。为网格中的每个图添加它。

更新：

gglist <- lapply(gglist, function(x) x + scale_x_continuous(limits = c(0, 1)) )