将几个语句写入 R 中的匿名函数

Question

我想使用 reporteRs 库将图表包含到某些 MS Word 文档中。

以下是我的情节：

doc = addPlot(doc, 
  fun = function() plot(
    km.as.one,
    mark.time=TRUE,
    conf.int=FALSE,
    cex=1,
    col="blue",
    xlab = "Délai en années", ylab = "Pourcentage",
    lty=1:3,
  ),
  vector.graphic = TRUE, width = 5, height = 4,
  par.properties = parProperties(text.align = "center")
)

我的问题是我想添加一些错误栏，自定义轴并可能添加标题，方法是添加如下内容：

axis(1, at = seq(0, 36, by = 6))
with (data=summary.km.as.one, expr=errbar(time, surv, upper, lower, add=TRUE, pch=0.5, cap=0.02))

我必须在 plot 语句之外写这个，但我找不到如何在匿名函数中写它。

是否可以在一个匿名函数中写多个语句？

如果是，正确的方法是什么，如果不是，有什么解决方法吗？

Answer 1

只需添加大括号{ }即可添加多行：

doc = addPlot(doc, 
  fun = function() { 
    # line 1
    # line 2
    # etc...
  },
  vector.graphic = TRUE, width = 5, height = 4,
  par.properties = parProperties(text.align = "center")
)

将几个语句写入 R 中的匿名函数

Write several statements into an anonymous function in R

r

anonymous-function

reporters