我有一个x1
用此代码生成的数据框,
x <- c(1:10)
y <- x^3
z <- y-20
s <- z/3
t <- s*6
q <- s*y
x1 <- cbind(x,y,z,s,t,q)
x1 <- data.frame(x1)
x y z s t q
1 1 1 -19 -6.333333 -38 -6.333333
2 2 8 -12 -4.000000 -24 -32.000000
3 3 27 7 2.333333 14 63.000000
4 4 64 44 14.666667 88 938.666667
5 5 125 105 35.000000 210 4375.000000
6 6 216 196 65.333333 392 14112.000000
7 7 343 323 107.666667 646 36929.666667
8 8 512 492 164.000000 984 83968.000000
9 9 729 709 236.333333 1418 172287.000000
10 10 1000 980 326.666667 1960 326666.666667
现在我想分割该数据帧x1
具有相同的数据帧的第一行,所以我用这些代码下面几行,作为描述在这里
x2 <- x1[1,]
require(stats)
sweep(x1, 2, x2, `/`)
所以数据框x2看起来像这样,
x y z s t q
1 1 1 -19 -6.333333 -38 -6.333333
我需要的结果是,数据框中的每个数字都应除以数字,以x2
对应于其自己的列位置。例如,当数据帧的行3x1
除以x2
结果应该是3 27 -0.368421 -0.368421 -0.368421 -9.947336
但我正在一个Error in Ops.data.frame(x, aperm(array(STATS, dims[perm])
有人可以指出我需要更改以获得期望的结果。
您也可以尝试如下操作:
x1 / x1[1, , drop = TRUE]
# x y z s t q
# 1 1 1 1.0000000 1.0000000 1.0000000 1.000000
# 2 2 8 0.6315789 0.6315789 0.6315789 5.052632
# 3 3 27 -0.3684211 -0.3684211 -0.3684211 -9.947368
# 4 4 64 -2.3157895 -2.3157895 -2.3157895 -148.210526
# 5 5 125 -5.5263158 -5.5263158 -5.5263158 -690.789474
# 6 6 216 -10.3157895 -10.3157895 -10.3157895 -2228.210526
# 7 7 343 -17.0000000 -17.0000000 -17.0000000 -5831.000000
# 8 8 512 -25.8947368 -25.8947368 -25.8947368 -13258.105263
# 9 9 729 -37.3157895 -37.3157895 -37.3157895 -27203.210526
# 10 10 1000 -51.5789474 -51.5789474 -51.5789474 -51578.947368
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句