Я создал два графика, используя ggplot2, которые я хотел бы отобразить одновременно, используя gtable.У меня есть две проблемы.Во-первых, я хочу, чтобы размер панели совпадал на двух графиках.Я сделал это, используя gtable.Вторая проблема заключается в том, что я хочу, чтобы первый график занимал в три раза большую ширину, чем второй график.Кажется, я не могу понять, как это сделать, сопоставляя размер панели с помощью функции bind() в ggtable.
Воспроизводимый код приведен ниже.
library(ggplot2)
library(gtable)
set.seed(2345)
mean1 <- runif(8, 700, 1000)
low1 <- mean1 - 100
high1 <- mean1 + 100
names1 <- paste0("really long name", 1:length(mean1))
df1 <- data.frame(mean = mean1,
low = low1,
high = high1,
names = names1)
mean2 <- runif(2, 700, 1000)
low2 <- mean2 - 100
high2 <- mean2 + 100
names2 <- paste0("name", 1:length(mean2))
df2 <- data.frame(mean = mean2,
low = low2,
high = high2,
names = names2)
plot1 <- ggplot(df1, aes(x = names, y = mean)) +
geom_errorbar(aes(ymin = low, ymax = high), width = 0) +
geom_point() +
scale_y_continuous(limits = c(.95*min(df1$low), 1.05*max(df1$high))) +
xlab("") +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
plot2 <- ggplot(df2, aes(x = names, y = mean)) +
geom_errorbar(aes(ymin = low, ymax = high), width = 0) +
geom_point() +
scale_y_continuous(limits = c(.95*min(df1$low), 1.05*max(df1$high))) +
xlab("") +
theme(axis.text.x = element_text(angle = 0, hjust = .5))
grob1 <- ggplotGrob(plot1) #Convert to gtable
grob2 <- ggplotGrob(plot2) #Convert to gtable
grob <- cbind(grob1, grob2, size = "first") #Bind rt data
title <- textGrob("Title", gp = gpar(fontsize = 12)) #Add title
grob <- gtable_add_rows(
grob, #gtable object
heights = grobHeight(title) + padding, #height for new row
pos = 0 #0 adds on top
)
grob <- gtable_add_grob(
grob, #gtable object
title, #grob to be added
t = 1, l = 1, r = ncol(sG) #top, left, and right (18) extent of grob
)
grid.newpage()
grid.draw(grob)
Как видите, размеры панелей совпадают, но график 1 (слева) и график 2 (справа) имеют одинаковую ширину,Я хотел бы объединить эти два, так что график 1 в три раза шире, чем график 2. Я также хочу добавить заголовок над двумя, что я и сделал в предоставленном коде.