如何将twitter异常检测图保存为png？

Question

我使用了包＆＃39; twitter / AnomalyDetection＆＃39;绘制异常情节。我能够制作情节，但不知道如何将情节保存为dpi 600的png图像 我的代码：

df$date <- as.POSIXct(df$date, format = "%Y%m%d%H")
df <- df[, c("date", "var1")]
df <- AnomalyDetectionTs(df, max_anoms = 0.01, direction = "pos", plot = TRUE, e_value = T)
p <- df$plot
save(p, file = "C:/Users/Administrator/Desktop/anomaly.png", dpi = 600)  

  

错误：对象＆＃39;＆＃39;，＆＃39; 600＆＃39;找不到

检查p的结构，它是一个列表而不是图像 有人可以帮忙解决这个问题吗？谢谢。

Answer 1

尝试以编程方式实现此目的：

df <- AnomalyDetectionTs(df, max_anoms = 0.01, direction = "pos", plot = TRUE, e_value = T)
png(file="C:/Users/Administrator/Desktop/anomaly.png",units="in",res=600)
df$plot
dev.off()