在一系列列上使用copy（）并将统计信息应用于结果

Question

我有一个频率交叉表，即对于A01列，有6485个计数为13个CAG，35个计数为14个CAG等。我设法将其转换为A01列的长数据，然后我可以使用它来工作出平均值和标准偏差。 但是，我有n列，而且我不确定如何将此函数应用于所有列。

data <- data.frame(CAG = c(13, 14, 15), A01 = c(6485,35,132), A02 = c(0,42,56))
cag = rep(data$CAG, data$A01)
mean <- mean(cag)
stdef <- sd(cag)

Answer 1

L = list()

for (i in 1:ncol(data)){
  tmp = rep(data[i, 1], data[i, 2])
  mean = mean(tmp)
  stdef = sd(tmp)
  L[[i]] = cbind(mean, stdef)
}
Mx = do.call(rbind, L)
Mx