Сохранение изображения с высоким разрешением в R

Я создаю диаграмму рассеяния, используя ggplot в R (R версии 3.2.1). Я хочу сохранить график как изображение tiff в 300 DPI, чтобы опубликовать его в журнале. Однако мой код с использованием ggsave или tiff() с dev.off, похоже, не работает и сохраняет его только в 96 DPI. Любая помощь будет принята с благодарностью! Ниже приведен пример моего кода, используя оба метода:

library(ggplot2)

x <- 1:100
y <- 1:100

ddata <- data.frame(x,y)

library(ggplot2)

#using ggsave
ggplot(aes(x, y), data = ddata) +
  geom_point() +
  geom_smooth(method=lm, fill = NA, fullrange=TRUE, color = "black")

ggsave("test.tiff", units="in", width=5, height=4, dpi=300, compression = 'lzw')

#using tiff() and dev.off
tiff('test.tiff', units="in", width=5, height=4, res=300, compression = 'lzw')

ggplot(aes(x, y), data = ddata) +
  geom_point() +
  geom_smooth(method=lm, fill = NA, fullrange=TRUE, color = "black")

dev.off()

Выходной сигнал составляет 96 точек на дюйм с шириной 1500 пикселей и высотой 1200 пикселей.

Ответ 1