2

昨天，我问了一个关于如何在不使用循环的情况下绘制多条（水平）线的问题，每条线都有用户指定的颜色。

我尝试使用建议的函数 matplot() 用相关代码绘制下图中显示的短垂直线。

    ci = matrix(1:30, nrow=3, byrow=T)
    ci=list(rbind(ci[1,], ci[1,]+2),
            rbind(ci[2,], ci[2,]+2),
            rbind(ci[3,], ci[3,]+2))
    x = rbind(1:10, 1:10)
    plot(-5, xlim=c(1,10), ylim=c(1,32)) 
    invisible(mapply(matlines, x=list(x), y=ci, 
              col=c("red","blue","black"), 
              lty = 1))

情节 1：所需情节

这一切都很好。但是，我试图将此代码包装在一个函数中，并且我希望能够输入一个可选参数列表，然后可以将其传递给 mapply/matlines。我试图在 mapply() 中使用参数 MoreArgs 无济于事。似乎 MoreArgs 采用的论点与其他论点不同。正如您在第一个代码中看到的，列表中的每个项目都有不同的颜色，但是当我将 col 放入列表 args.ci 中时，这 3 种颜色会在列表的每个项目中循环使用。我想知道是否有办法解决这个问题，以便如果我有多个参数值，每个值都会应用于列表的一项。谢谢！

    args.ci = list(col=c("red","blue","black"), lty=1:3)
    plot(-5, xlim=c(1,10), ylim=c(1,32)) 
    invisible(mapply(matlines, x=list(x), y=ci, 
              MoreArgs = args.ci))

情节2：不是我想要的

4

1 回答 1

5

这是解决此类问题的一般方法。您应该能够对其进行调整以更准确地执行您想要的操作：

myFun <- function(...) {
    fixedArgs <- list(matlines, x=list(x), y=ci)
    dots <- list(...)
    allArgs <- c(fixedArgs, dots)
    plot(-5, xlim=c(1,10), ylim=c(1,32)) 
    invisible(do.call(mapply, allArgs))
}

myFun(col=c("red","blue","black"), lty=1)

在此处输入图像描述

于 2012-05-20T20:06:37.147 回答