Извлечь размер панели из объекта ggplot

Question

Я пытаюсь извлечь ширину и высоту панели из объекта ggplot.То, что я сделал до сих пор:

library(ggplot2)
library(gtable)
# Create object
p <- ggplot(iris, aes(x = Sepal.Length)) +
  geom_histogram()
# Convert the plot to a grob
gt <- ggplotGrob(p)
# Extract panel
panel <- gtable_filter(gt, "panel")

Теперь я выложен с извлечением правильного размера.Есть идеи, как поступить?

Answer 1

panel$widths вернет 1null.Это особенность ggplot2: панель имеет такой размер, что она расширяется, чтобы заполнить доступное пространство в области просмотра.