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

Question

我使用包 'twitter/AnomalyDetection' 来绘制异常。我能够制作情节，但不知道如何将情节保存为 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)  

错误：找不到对象“p”、“600”

检查 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()