在 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)
  
}