在 R 中使用 for 循环遍历名称向量

Question

library(sjPlot)

我正在使用 sjPlot 创建快速 xtabs：

sjPlot::tab_xtab(var.row = mtcars$mpg ,var.col =mtcars$wt ,show.row.prc = TRUE)

但由于我在许多列上运行它，我想建立一个循环：

    cols <- names(mtcars)
    for (i in cols) {
    
      sjPlot::tab_xtab(
        var.row =  mtcars$mpg,
        var.col = mtcars$i,
        show.row.prc = TRUE
      )
}

但这会引发错误：

Error in table(x_full, grp_full) : 
  all arguments must have the same length

为什么会发生这种情况，有人可以通过迭代解释子集，或者给我指出一个好的资源吗？

仅供参考 ---这不会返回任何内容。

for (i in cols) {
  i <- 'cyl'
  
  sjPlot::tab_xtab(
    var.row =  mtcars$mpg,
    var.col = mtcars[[i]],
    show.row.prc = TRUE
  )
  
}

但这确实返回了 mpg - cyl 的图表：

for (i in cols) {

  sjPlot::tab_xtab(
    var.row =  mtcars$mpg,
    var.col = mtcars$cyl,
    show.row.prc = TRUE
  )
  
}

Answer 1

感谢您的评论，这是解决方案，但仍在寻找一些理解。 为什么是 mtcars[[i]] 而不是 mtars[i]？ 为什么 mrcars$i 不起作用？

for (i in cols) {

  plt <- sjPlot::tab_xtab(
    var.row =  mtcars$mpg,
    var.col = mtcars[[i]],
    show.row.prc = TRUE
  )
  print(plt)
  
}