例子如下:
n<-matrix(c(1:24),4,6)
zz<-function(n){for(j in 1:dim(n)[2]){for(i in n[,j]){print(round(i*100/sum(n[,j]),2))}}}
print(zz(n))
结果是如下:
> zz(n)
[1] 10
[1] 20
[1] 30
[1] 40
[1] 19.23
[1] 23.08
[1] 26.92
[1] 30.77
[1] 21.43
[1] 23.81
[1] 26.19
[1] 28.57
[1] 22.41
[1] 24.14
[1] 25.86
[1] 27.59
[1] 22.97
[1] 24.32
[1] 25.68
[1] 27.03
[1] 23.33
[1] 24.44
[1] 25.56
[1] 26.67
我如何把这些数据弄成一个4*6的矩阵