ggplot2制作相同宽度的条形图

Question

我正在一个闪亮的应用程序中使用ggplot2制作两个条形图。我需要使它们具有相同的尺寸（宽度方向）。

！[两个地块] [1]

我认为包含图例的整个地块大小对于两个地块都是相同的。我需要做的是如果没有考虑图例，使绘图大小相同。我想我可以做到这一点，如果我可以使情节中的条更薄。 =

编辑：我采取了建议移动下面的图例，这解决了问题。现在情节的条纹看起来太厚了。

！[用粗条绘制] [2]

任何方式我都可以让它们更薄？

Answer 1

library(ggplot2)
library(dplyr)    

mpg_filter <- mpg %>%
    filter(class %in% c("compact", "subcompact"))

mpg_filter2 <- mpg %>%
    filter(class %in% c("midsize", "suv"))

g <- ggplot(mpg_filter, aes(class))

g + geom_bar(aes(fill = drv), width = 0.5) +
    theme(legend.position = "bottom")

g2 <- ggplot(mpg_filter2, aes(class))

g2 + geom_bar(aes(fill = drv), width = 0.5) +
    theme(legend.position = "bottom")