Возможно, это не лучший способ, но вы можете написать функцию-обертку с разными значениями по умолчанию для высоты и ширины. Например
my.ggsave <- function(filename = default_name(plot), height= 4, width= 4, dpi= 72, ...) {
ggsave(filename=filename, height=height, width=width, dpi=dpi, ...)
}
Теперь мы можем проверить, выполняет ли my.ggsave то, что нам нужно:
ggplot(data.frame(x=1:10), aes(x=x, y=x)) + geom_point()
ggsave("normal_ggsave.png")
и убедитесь, что мы можем передать дополнительные аргументы ggsave
, если нам нужно:
my.ggsave("four_by_four_600.png", dpi=600)