ggsave создает пустой файл png

Question

Я пытаюсь сохранить график, созданный с помощью следующего кода, но постоянно получаю пустой файл .png. Я повторно использую существующий код для создания графика и импортирую tidyverse для доступа к ряду функций, включая ggsave (). Почему ggsave () не создает файл png с диаграммой рассеяния и наложенной линией, которые видны в моем графическом окне Rstudio? Почему вместо этого постоянно создается пустой файл .png? Что я делаю не так?

    # Regress 10-year S&P return versus Fwd_EY and Fwd_EY^2

plot(data$Fwd_EY, data$SPRet, pch = 16, col = "blue", xlab = "E_t+1/P", ylab = "10-year Return")
fit <- lm(data$SPRet ~ data$Fwd_EY)

# Use predict to calculate predicted returns
predict_ret <- predict(fit, data) 

# abline doesn't work; plot predicted returns as a separate line
lines(data$Fwd_EY, predict_ret, col = "gold4", type = "b", cex = 0.7) 

#Now save the plot using ggsave
ggsave(filename = "C:/Temp/SP10YrVsForwardPE.png", device = png())
dev.off()

С уважением

Thomas Philips

Answer 1

Попробуйте использовать

# Instantiate the plot object
png('C:/Temp/SP10YrVsForwardPE.png')

# Regress 10-year S&P return versus Fwd_EY and Fwd_EY^2
plot(data$Fwd_EY, data$SPRet, pch = 16, col = "blue", xlab = "E_t+1/P", ylab = "10-year Return")
fit <- lm(data$SPRet ~ data$Fwd_EY)

# Use predict to calculate predicted returns
predict_ret <- predict(fit, data) 

# abline doesn't work; plot predicted returns as a separate line
lines(data$Fwd_EY, predict_ret, col = "gold4", type = "b", cex = 0.7) 

dev.off()

, который использует встроенный метод вместо ggsave.