ggplot2 легенда ширина и строка легенды размер

Question

У меня есть 2 сюжета одной и той же вещи, за исключением того, что цвета, заполняющие бары, различны на каждом участке. Поскольку легенда на разных графиках имеет разную ширину из-за размера имен на ней, соотношение между графом и легендой становится разным на каждом сюжете. Мне нужно, чтобы оба выглядели одинаково.

Это пример:

library(ggplot2) 

x = c(rep("a",20),rep("b",10)) 
y = c(x = c(rep("BIGTEXT",20),rep("EVENBIGGERTEXT",10))) 
df = data.frame(x,y) 

p1 = ggplot(df,aes(x,fill=x)) + geom_bar() 
p2 = ggplot(df,aes(y,fill=y)) + geom_bar() 

p1 
p2 

Answer 1

Вы можете установить gtable ширины к общему значению,

library(gtable) 
library(grid) 
gl <- lapply(list(p1, p2), ggplotGrob) 

gwidth <- do.call(unit.pmax, lapply(gl, "[[", "widths")) 
gl <- lapply(gl, "[[<-", "widths", value = gwidth) 
gridExtra::grid.arrange(grobs=gl) 

В качестве альтернативы, вы можете set the panel size на фиксированное значение.

Answer 2

После комментария @ baptiste: Скудно, но да, это можно сделать. Но никаких гарантий, что это будет работать в будущих версиях. Решение было принято из here, но это решение также нуждалось в обновлении.

library(ggplot2) # v2.2.1 
library(gtable) # v0.2.0 
library(grid) 
library(gridExtra) # v2.2.1 

x = c(rep("a",20),rep("b",10)) 
y = c(x = c(rep("BIGTEXT",20),rep("EVENBIGGERTEXT",10))) 
df = data.frame(x,y) 

p1 = ggplot(df,aes(x,fill=x)) + geom_bar() 
p2 = ggplot(df,aes(y,fill=y)) + geom_bar() 

# Get the grobs 
gA <- ggplotGrob(p1) 
gB <- ggplotGrob(p2) 

# Get the widths of the legends 
index = which(gA$layout$name == "guide-box") 
leg1 <- convertX(sum(with(gA$grobs[[index]], grobs[[1]]$widths)), "mm") 
leg2 <- convertX(sum(with(gB$grobs[[index]], grobs[[1]]$widths)), "mm") 

# Add an empty column of width "abs(diff(c(leg1, leg2))) mm" to the right of 
# legend box for gA (the smaller legend box) 
gA$grobs[[index]] <- gtable_add_cols(gA$grobs[[index]], unit(abs(diff(c(leg1, leg2))), "mm")) 

# Set widths to maximums of corresponding widths 
gl <- list(gA, gB) 
gwidth <- do.call(unit.pmax, lapply(gl, "[[", "widths")) 
gl <- lapply(gl, "[[<-", "widths", value = gwidth) 


# Draw the plots 
grid.newpage() 
grid.draw(gl[[1]]) 

grid.newpage() 
grid.draw(gl[[2]])