R语言画图-Error in get(getOption("device"))
环境为：
R 3.3.1, Rscript 3.3.1 64位
windows 7 64位
当运行如下示例程序画loglog图：
## Create a data frame with artificial data.
d.f <- data.frame( x = 1:100, y = 1:100 )
## Open a new default device.
get( getOption( "device" ) )()
## Plot the data, hiding the points for now to prevent the calls to
## abline() from drawing over the points.
plot( y ~ x, data = d.f, type = "n", log = "xy", main = "Log-log Plot" )
## Put grid lines on the plot, using a light blue color ("lightsteelblue2").
abline( h = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
abline( v = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
## Draw the points over the grid lines.
points( y ~ x, data = d.f )
## Redraw the plot box over the grid lines.
box()1 . 在RGui中的R Console中运行情况：
报错: Error in get(getOption("device")) : invalid first argument
但是成功打开device并画图。
> ## Create a data frame with artificial data.
>
> d.f <- data.frame( x = 1:100, y = 1:100 )
>
> ## Open a new default device.
>
> get( getOption( "device" ) )()
Error in get(getOption("device")) : invalid first argument
>
> ## Plot the data, hiding the points for now to prevent the calls to
> ## abline() from drawing over the points.
>
> plot( y ~ x, data = d.f, type = "n", log = "xy", main = "Log-log Plot" )
>
> ## Put grid lines on the plot, using a light blue color ("lightsteelblue2").
>
> abline( h = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
> abline( v = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
>
> ## Draw the points over the grid lines.
>
> points( y ~ x, data = d.f )
>
> ## Redraw the plot box over the grid lines.
>
> box()2 . 在 RStudio (Version 0.99.903)中，get( getOption( "device" ) )()返回
NULL，并成功画图，单独运行该语句依然返回NULL但是能成功打开device
> ## Create a data frame with artificial data.
>
> d.f <- data.frame( x = 1:100, y = 1:100 )
>
> ## Open a new default device.
>
> get( getOption( "device" ) )()
NULL
>
> ## Plot the data, hiding the points for now to prevent the calls to
> ## abline() from drawing over the points.
>
> plot( y ~ x, data = d.f, type = "n", log = "xy", main = "Log-log Plot" )
>
> ## Put grid lines on the plot, using a light blue color ("lightsteelblue2").
>
> abline( h = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
> abline( v = seq( 0, 100, 10 ), lty = 3, col = colors()[ 440 ] )
>
> ## Draw the points over the grid lines.
>
> points( y ~ x, data = d.f )
>
> ## Redraw the plot box over the grid lines.
>
> box()
>
> 3 . 将示例代码存入脚本文件，在windows 7 x64 cmd中使用 Rscript 运行脚本文件，报错：
Error in get(getOption("device")) :不输出结果文件。
Mac OS X 10.9.4中用Rscript运行脚本报错为：
Error in get(getOption("device")) : invalid first argument
Execution halted同样不输出结果文件。
解决方法：
针对Rscript 和 RConsole 将 get(getOption("device"))改为 dev.new() RConsole不再报错，Rscript 运行脚本正常默认输出pdf文件也不报错
参照：
[1] http://r.789695.n4.nabble.com/R-2-8-0-get-platform-device-with-get-getOption-quot-device-quot-td920607.html
The “device” option can now be a function, and is one in some standard setups. Consequentially, get(getOption(“device”)) will fail; programmers should usually use dev.new() instead.
[2] https://stat.ethz.ch/pipermail/r-devel/2008-April/049319.html
2.7.0 provides a function dev.new()
.
As from R 2.5.0, options(“device”) can be a character string or a function. If the latter, this construct does not work.
[3] R in Action, Second Edition. Robert I. Kabacoff. May 2015. ISBN 9781617291388. 608 pages. printed in black & white.
First, you can open a new graph window before creating a new graph:
dev.new()
statements to create graph 1
dev.new()
statements to create a graph 2
etc.
Each new graph will appear in the most recently opened window.