在一系列列上使用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