基于列表元素循环函数

Question

我在尝试基于列表循环函数并创建结果表时遇到了一些麻烦。

head(Dat17_18.3[,c(1,3:5)])
                     Program Area I.E.ScoreStat I.I.ScoreStat I.P.ScoreStat
1             BFA - Art Education             2             2             2
2 BA - Foreign Language Education             2             2             3
3      MAT - Elementary Education             2             2             2
4            BA - Dance Education             2             3             3
5      MAT - Elementary Education             2             3             3
6      MAT - Elementary Education             2             2             3

我已经使用split 函数创建了一个程序区域列表。

test1<- split(Dat17_18.3, Dat17_18.3$`Program Area`)

我编写了一个函数，用于从 psych 包中的 alpha 函数中提取元素。

alpha_fun <- function (df,columns){
  library(psych)
  a1 <- alpha(df[,columns])
  a2 <- alpha.ci(a1[[1]][1],nrow(df),length(columns))
  vec1 <- c(nrow(x),a1[[1]][1],a2[1],a2[3],a1[[1]][3])
  return(vec1)
}

我想让 alpha_fun 为测试中的每个元素运行一次，以便为所有程序区域创建一个表。

Answer 1

考虑by（tapply 的面向对象包装器），它类似于split + lapply，其中一个函数可以直接应用于数据帧分组的每个子集。另外，避免需要 columns 参数，该参数可以从方法内的数据框输入中检索：

library(psych)

alpha_fun <- function (df){   
  sub <- df[, 3:ncol(df)]              # KEEP ONLY NUMERIC COLS

  a1 <- alpha(sub)
  a2 <- alpha.ci(a1[[1]][1], nrow(sub), ncol(sub))
  vec1 <- c(nrow(sub), a1[[1]][1], a2[1], a2[3], a1[[1]][3])

  return(vec1)
}

# LIST OF VECTORS 
alpha_vec_list <- by(Dat17_18.3, Dat17_18.3$`Program Area`, alpha_fun)

# MATRIX WITH Program Area AS ROW NAMES
alpha_mat <- do.call(rbind, alpha_vec_list)