图输出在图之间具有相同的比例大小，但轴长度不同[重复]

Question

我正在使用ggplot2 创建两个不同的 x,y 图。我希望 y 轴的比例相同（例如，在两个图中，0 和 10 之间的距离相同）但每个图/图的长度不同（如果一个图变为 20，另一个到 50，到 50 的那个应该更大）。

facet_Grid 不是一个好选择，因为我有一百多个不同的情节要制作。

示例数据：

dat1 <- data.frame(replicate(2,sample(0:20,10,rep=TRUE)))
dat2 <- data.frame(replicate(2,sample(0:60,10,rep=TRUE))

绘图 1：y 列数据范围从 0 到 20。x 比例为 0 到 100
图 2：y 列数据范围从 0 到 60。x 比例为 0 到 100

标准图：

ggplot(data = dat1, aes (x=X1, y= X2)) + xlim(0,100)
ggplot(data = dat2, aes (x=X1, y= X2)) + xlim(0,100)

我得到两个大小相同的图，但它们在 y 轴上的比例不同。

如果我对 y 设置限制以强制它们相同：

ggplot(data = dat1, aes (x=X1, y= X2)) + xlim(0,100) + ylim(0,60)
ggplot(data = dat2, aes (x=X1, y= X2)) + xlim(0,100) + ylim(0,60)

第一个情节在 20 到 60 之间有大量我不想要的浪费空间。

关于如何在输出图像中保持一致的比例大小，同时具有不同的轴限制（因此在这种情况下不同的绘图高度）有什么想法吗？我需要它们在打印页面上具有相同的比例，但高度不同。

有什么想法吗？玩scale_y_continuous、coord_equal 等并没有真正让我到任何地方。

我正在尝试制作的示例 photoshopped 模型，但作为单独的输出文件。在每个图中，y 轴上的 1cm 在多个图之间是相同的：

Answer 1

也许正在寻找类似的东西？

一些数据

df1 <- data.frame(x= rep(1:10,10), y = 1:100)

合并并添加引用 col df

newdf <- rbind(data.frame(df1[1:60,],df="df1"),data.frame(df1[1:20,],df="df2"))

用dplyr添加一个新的分组最大y值列

require(dplyr)
newdf <- newdf %>% group_by(df) %>% mutate(ymax = max(y)) 

现在我们用geom_rect() 绘制线数据和缩放边界

ggplot(newdf) + 
    geom_rect(fill=NA,colour="grey",aes(xmin=0,xmax=max(x),ymin=0,ymax=ymax)) + 
    facet_grid(. ~ df, margins = FALSE) + geom_line(aes(x,y))

最后，用一个主题来摆脱一些元素……

一个名为thmEls的非常有限的主题对象示例。

require(grid)
require(ggplot2)

thmEls <- 
    theme(
        # PARENT ----------------------------------------------
        # line = element_blank(),
        rect = element_rect(fill="white",colour="gray40", size=0.35, linetype=1),
        # text = element_blank(),
        # title = NULL,
        # axis.title = NULL,

        # AXIS -------------------------------------------------
        # axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        # axis.text = element_blank(),
        # axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        # axis.ticks = element_blank(),
        # axis.ticks.x = element_blank(),
        axis.ticks.y = element_blank(),
        # axis.ticks.length = element_blank(),
        # axis.ticks.margin = element_blank(),
        # axis.line = element_blank(),
        # axis.line.x = element_blank(),
        # axis.line.y = element_blank(),

        # LEGEND ----------------------------------------------
        # legend.background = element_blank(),
        # legend.key = element_blank(),
        # legend.key.size = element_blank(),
        # legend.key.width = element_blank(),
        # legend.text = element_blank(),
        # legend.text.align = element_blank(),
        # legend.position = element_blank(),
        # legend.direction = element_blank(),
        # legend.justification = element_blank(),
        # legend.box = element_blank(),
        # legend.box.justification = element_blank(),

        # PANEL ------------------------------------------------
        # ,size=0.3 from panel.background
        panel.background = element_blank(),
        # panel.border = element_blank(),
        panel.margin = unit(c(0.125),"lines"),
        # panel.grid = element_blank(),
        # panel.grid.major = element_blank(),
        # panel.grid.minor = element_blank(),
        # panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.minor.y = element_blank(),

        # PLOT ------------------------------------------------
        plot.background = element_blank(),
        plot.title = element_blank(),
        plot.margin = unit(c(0.3,0.3,0.15,0.15),"lines"),

        # STRIP -----------------------------------------------
        strip.background = element_blank(),
        strip.text = element_blank(),
        # strip.text.x = element_blank(),
        # strip.text.y = element_blank(),
        complete = FALSE)

将此添加到我们的情节中：

 ggplot(newdf) + 
    geom_rect(fill=NA,colour="grey",aes(xmin=0,xmax=max(x),ymin=0,ymax=ymax)) + 
    facet_grid(. ~ df, margins = FALSE) + geom_line(aes(x,y)) + 
    thmEls

给予：