代码之家 › 专栏 › 技术社区 › Dan

平台专用图形设备

Dan · 技术社区 · 16 年前

graph <- function(filename){
setwd("graphics")
ext <- ifelse(.Platform$OS.type == "unix", "pdf", "wmf")
name <- paste(filename, ext, sep=".")
ifelse(.Platform$OS.type == "unix", pdf(name, width=6, height=4), wmf(name, width=6, height=4))
}

替换长度为零

2 回复 | 直到 16 年前

Collin 16 年前

通过从扩展中查找设备函数来避免重复的if语句

graph <- function(filename) {
  ext <- if(.Platform$OS.type == "unix") "pdf" else "wmf"
  dev <- match.fun(ext)
  path <- paste("graphics/", filename, ".", ext, sep = "")

  dev(path, width = 6, height = 4)
}

Vince 16 年前

我认为问题在于ifelse返回一个值, 不 伊夫斯!=简写,如果 ,ifelse=矢量化if。从帮助页面:

'ifelse'返回一个具有相同值的值

if (.Platform$OS.type == "unix") {
  pdf(name, width=6, height=4) 
} else {
  wmf(name, width=6, height=4)
}

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

11 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

11 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

11 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

11 月前

Ben · 统计向量中的单词在字符串中出现的频率

11 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

11 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

11 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

12 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

12 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前