我想dataframe根据另一个列中的值缩放a列中的值。例如，这是一个简单的例子
d<-data.frame(x=runif(5,0,10),y=sample(c(1,2),size=5,replace=TRUE))
给出输出：
x y
1 1.0895865 2
2 0.8261554 2
3 5.3503761 2
4 3.3940759 1
5 6.2786637 1
我想基于y值缩放x值，所以我想要的是：
(x|y=1 - average(x's | y=1))/std.dev(x's|y=1)
然后将d中的x值替换为缩放后的值，类似于的x值y=2。
到目前为止，我所做的有些笨拙：
d1<-subset(d,y==1)
d2<-subset(d,y==2)
d1$x<-(d1$x-mean(d1$x))/sd(d1$x)
d2$x<-(d2$x-mean(d2$x))/sd(d2$x)
然后将所有结果绑定到一个大数据框中，但这有点乏味，因为我的实际数据对y有50个不同的值，并且我想对多个（不同）列进行此操作。
您可以使用group_by和mutate从dplyr软件包中轻松地做到这一点：
require(dplyr)
d %>%
group_by(y) %>%
mutate(x = (x - mean(x)) / sd(x))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句