Cairo:为什么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)

但它不工作(图像被成功保存，大小不是0mb，但它可以t open), whats错误与它？

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)

而不是。在这种情况下，您的函数输入是要绘制的点，而不是存储的图。

由于可以存储ggplot，因此使用ggplot2还有其他方法：

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) 
}