如何在R中设置ggplot2中y轴刻度标签的宽度？

Question

我想左对齐g中的ggplot2图形的垂直阵列中的绘图面板。y轴刻度标签的最大宽度因图形而异，因此打破了此对齐方式，如下面的代码示例所示。

我已经尝试过各种情节，面板和axis.text保证金选项没有成功，并且一直未能找到控制y轴刻度标签宽度的选项。

引导赞赏。

#install.packages(c("ggplot2", "gridExtra", "reshape2"), dependencies = TRUE) 
require(ggplot2) 
require(gridExtra) 
require(reshape2) 

v <- 1:5 
data1 <- data.frame(x=v, y=v) 
data2 <- data.frame(x=v, y=1000*v) 
plot1 <- ggplot(data=melt(data1, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() 
plot2 <- ggplot(data=melt(data2, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() 
grid.arrange(plot1, plot2, ncol=1) 

Answer 1

您可以使用功能plot_grid()从库cowplot对准地块

# install.packages(c("ggplot2", "cowplot", "reshape2"), dependencies = TRUE) 
library(cowplot) 
plot_grid(plot1,plot2,ncol=1,align="v") 

Answer 2

将这个东西我喜欢你的工作：

data1$Data <- "data1" 
data2$Data <- "data2" 
data3 <- rbind(data1, data2) 
ggplot(data=data3, aes(x=x, y=y)) + geom_line() + facet_grid(Data~., scales = "free_y") 

Answer 3

这样吗？ （下面的代码）

# install.packages(c("ggplot2", "gridExtra", "reshape2"), dependencies = TRUE) 
require(ggplot2) 
require(gridExtra) 
require(reshape2) 

v <- 1:5 
data1 <- data.frame(x=v, y=v) 
data2 <- data.frame(x=v, y=1000*v) 
plot1 <- ggplot(data=melt(data1, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() + scale_y_continuous(breaks=NULL) 
plot2 <- ggplot(data=melt(data2, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() + scale_y_continuous(breaks=c(1000,2000)) 
grid.arrange(plot1, plot2, ncol=1)