如何在每次迭代（变量）中使用不同的标签（变量名称）？

Question

我有一个包含40个变量的数据框数据，我有一个函数 func ，它绘制了一个条形图等。

func <- function(var, arg1, arg2){
  # ...
  barplot(table(arg1, arg2)[2,], 
          ylab = "Frequency",
          xlab = names(var))
  # ...
}

我想将此函数应用于我的数据框，并使用每个条形图的 xlab 等每个变量的名称获取40个变量中每个变量的条形图。我已经使用了lapply来执行此操作，但我无法将每个变量的名称显示为 xlab 。

lapply(data, func, arg1, arg2))

Answer 1

我相信你正在寻找mapply，它可以用来循环多个对象，其中索引在对象之间排列。

func <- function(x, name) plot(x, main = name)

mapply(FUN = func, x = iris, name = names(iris))