假设我有一个矩阵：
a=matrix(1:30,5)
我想将第3列乘以3来获得以下结果：
[,1] [,2]
[1,] "1 6 11" "16 21 26"
[2,] " 2 7 12" "17 22 27"
[3,] " 3 8 13" "18 23 28"
[4,] "4 9 14" "19 24 29"
[5,] " 5 10 15" " 20 25 30"
实际上，我需要一个用于非常大的矩阵的函数。
对于一个简单的示例，我们可以使用whitin和paste（将多个列值粘贴到R中的一个值中）。
试试这个：
> g <- rep(1:2, each = 3)
> t(apply(a, 1, tapply, g, paste, collapse = " "))
1 2
[1,] "1 6 11" "16 21 26"
[2,] "2 7 12" "17 22 27"
[3,] "3 8 13" "18 23 28"
[4,] "4 9 14" "19 24 29"
[5,] "5 10 15" "20 25 30"
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句