对一系列列使用replicate()，并对结果应用统计信息

Question

我有一个频率的交叉表，例如，对于列A01，有6485个计数的13个can，35个计数的14个can等等。我已经设法将它转换为列A01的长数据，然后我可以用它来计算平均值和sd。但是，我有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