Вырезать ggplot2 пробелы вокруг графика

Question

Есть ли способ удалить пустое пространство вокруг графика ggplot2, когда форма была изменена с помощью coord_fixed()? Я хотел бы, чтобы белое пространство сверху и снизу было обрезано, чтобы остались только метки области печати и оси. Я делаю вывод графика в файле R markdown без сохранения.

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() 
p + coord_fixed(ratio = 1) 

ниже код производит следующий сюжет:

Answer 1

При использовании:

ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() + 
    coord_fixed(ratio = 1) + 
    ggsave('plot.jpg', width = 6, height = 1.5, dpi = 300) 

Вы получаете участок с меньшим количеством белого пространства:

Другим вариантом может быть использование PNG или Jpeg устройство:

p <- ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() + 
    coord_fixed(ratio = 1) 

jpeg('plot.jpg', width = 600, height = 150) 
p 
dev.off()