根据r中函数的输出值创建新矩阵

Question

Hi我制作了一个函数Get来计算数据集的平均值和SD，我有七个相同格式的数据集，并希望将应用Get函数对这些数据集的输出放在一个矩阵中进行比较。我知道我的功能还需要一步，但却无法实现？如果名称是CA1、CA2……，我也可以在每个数据集上自动循环。。。？我是R 的新手

这是的功能

 Get <- function (x) {
  x <- as.matrix(x)
  m <- mean(x[,3:4])
  SD <- sd(x[,3:4])
  return(list(mean=m, SD=SD))
}

Answer 1

尝试：

 set.seed(42) #creating some datasets
 CA1 <- as.data.frame(matrix(sample(1:20, 5*20, replace=TRUE), ncol=5))
 CA2 <- as.data.frame(matrix(sample(1:20, 5*20, replace=TRUE), ncol=5))
 CA3 <- as.data.frame(matrix(sample(1:20, 5*20, replace=TRUE), ncol=5))
 nm1 <- ls(pattern="^CA\d")
 res <- sapply(mget(nm1), Get)
 res #here you get a list of `6`
 #     CA1      CA2      CA3     
 #mean 10.1     9.9      9.275   
 #SD   6.058687 5.490318 5.579208

转换为matrix

 m1 <- matrix(unlist(res), ncol=3, dimnames=dimnames(res))
 m1
 #         CA1      CA2      CA3
 #mean 10.100000 9.900000 9.275000
 #SD    6.058687 5.490318 5.579208