开罗。为什么Cairo不能用函数？

Question

我的演示代码是这样的。

   p <- plot(c(1,3,4,5,6,4,3),c(1,2,3,4,5,6,7))
    myTiff <- function(p){
        tiff("E:/aaa.tiff")
        p
        dev.off()
    }
    myTiff(p)

但它不工作（图片被成功保存，大小不是0 mb，但它可以t open), what是它的问题吗？

Answer 1

我认为问题出在将情节存储在 p. 试试

p <- data.frame(x=c(1,3,4,5,6,4,3), y=1:7)
myTiff <- function(p){
    tiff("E:/aaa.tiff")
    plot(p)
    dev.off()
}
myTiff(p)

来代替。在这种情况下，你的函数输入是要plottet的点，而不是存储的情节。

通过使用 ggplot2 别有洞天 ggplot 可以存储。

df <- data.frame(x=c(1,3,4,5,6,4,3), y=1:7)
p  <- ggplot(df, aes(x=x, y=y)) + geom_point()

myJpeg <- function(p){ 
  ggsave("E:/test.jpg", p) 
}