更改成像仪中的颜色并保存绘图

Question

imager

的文档显示了如何在绘图中指定您自己的颜色（请参阅此处）。这非常方便，但我似乎无法保存修改后的绘图。我怎样才能做到这一点？

library(imager);library(dplyr)
cscale <- function(r,g,b) rgb(g,r,b)
plot(boats,colourscale=cscale,rescale=FALSE)

这个效果很好。但我该如何保存这个情节呢？这不起作用：

boats %>%
   plot(colourscale=cscale,rescale=FALSE) %>%
   save.image("pathtomachine.jpg")

谢谢。

Answer 1

使用

imager::save.image

（因为还有一个

base::save.image()

可以保存当前工作空间）。

boats |> plot(colourscale=cscale, rescale=FALSE) |> imager::save.image('foo.jpg')

或者使用选择设备的基本管道并将其关闭，但这会给你轴。

> library(imager)
> cscale <- function(r, g, b) rgb(g, r, b)
> dims <- attributes(boats)$dim  ## get dims
> jpeg('foo.jpg', width=dims[1], height=dims[2])  ## open jpg device
> plot(boats, colourscale=cscale, rescale=FALSE)  ## plot to device
> dev.off() |> invisible()  ## close jpg device

> grep('foo.jpg', dir(), value=TRUE)  ## check if it's there
[1] "foo.jpg"