0

R次のコードは、2 つの異なるバージョンで異なる出力を提供しています。

R 2.5.3

#R version 2.15.3 (2013-03-01)
#Platform: x86_64-w64-mingw32/x64 (64-bit)

r <- matrix(runif(9, 0, 1), 3)
g <- matrix(runif(9, 0, 1), 3)
b <- matrix(runif(9, 0, 1), 3)

col <- rgb(r, g, b)
dim(col) <- dim(r)

library(grid)

> jpeg(filename="image.jpg")
> grid.raster(col, interpolate=FALSE)
> dev.off()
windows 
      2 

> grid.raster(col, interpolate=FALSE)

ここに画像の説明を入力

R3.0.0

#R version 3.0.0 (2013-04-03)
#Platform: x86_64-w64-mingw32/x64 (64-bit)

> library(grid)
> jpeg(filename="image.jpg")
Error in jpeg(filename = "image.jpg") : unable to start jpeg() device
In addition: Warning messages:
1: In jpeg(filename = "image.jpg") :
  unable to open file 'image.jpg' for writing
2: In jpeg(filename = "image.jpg") : opening device failed
> grid.raster(col, interpolate=FALSE)
> dev.off()
null device 
          1

ではR 3.0.0、jpeg上記のエラーが表示されます grid.rasterが、動作しないようです:

 > grid.raster(col, interpolate=FALSE)

完全に白い（またはおそらく透明な）画像を提供します。それを再現できますか？

NB : R を介して開くRStudioと、使用できますjpegが、grid.rasterそれでも機能しないので、どうにかできます

> dev.off()
null device 
          1

そして何もないimage.jpg

4

1 に答える 1

0

エラー evan を再現できません。同じ R/system 構成を使用しています。以前は、さまざまなデバイスで出力knitrをテストしていました。grid.rasterここに私のMrakdownファイルコード：

```{r}
set.seed(1)
r <- matrix(runif(9, 0, 1), 3)
g <- matrix(runif(9, 0, 1), 3)
b <- matrix(runif(9, 0, 1), 3)
col <- rgb(r, g, b)
dim(col) <- dim(r)
```
```{r,dev='jpeg'}
library(grid)
grid.raster(col, interpolate=FALSE)
```
```{r,dev='png'}
grid.raster(col, interpolate=FALSE)
```
```{r,dev='pdf'}
grid.raster(col, interpolate=FALSE)
```
于 2013-07-12T17:26:49.533 に答える