乘以一个data.frame的每个单元格与它的重量

Question

我想要做的是令人尴尬的简单 - 但我失败了。

我有一个data.frame与“字符”和“数字”。 data.frame的其中一列代表权重。

我想乘以数据框的每个单元格与相应的权重（如果它是一个数字）。

我该怎么做（最好不使用嵌套循环）。

预先感谢您！

例子：

c1 c2 w 
l1 abc 2 1 
l2 dxf 3 0.5 
l3 ghi 4 1.5 

应该成为

c1 c2 w 
l1 abc 2 1 
l2 dxf 1.5 0.5 
l3 ghi 6 1.5 

Answer 1

对于重现的实例中，dd是具有可变类型的混合物的数据帧，与正在W的权重。

dd <- data.frame(G=gl(2,2), X=rnorm(4), Y=1L:4L, Z=letters[1:4], W=0.3:3.3) 
num.vars <- names(dd)[sapply(dd, is.numeric)] #select numeric variables 
num.vars <- setdiff(num.vars, "W") # remove the weight variable 
dd[num.vars] <- dd[num.vars] * dd$W # multiply 

Answer 2

Vectorise！

> dat <- data.frame(c1 = c("abc","dxf","ghi"), c2 = 2:4, w = c(1,0.5,1.5)) 

实际上，你想c2 * w，但我们需要让R看看内数据帧：

> with(dat, c2 * w) 
[1] 2.0 1.5 6.0 

，我们可以插回到dat在单行：

> dat <- within(dat, c3 <- c2 * w) 
> dat 
    c1 c2 w c3 
1 abc 2 1.0 2.0 
2 dxf 3 0.5 1.5 
3 ghi 4 1.5 6.0 

（如果要覆盖现有的01，请将c3替换为。）

如果除了权重以外还有多个数字列，那么如果要自动执行它，则需要一个简单的策略。不告诉R哪些列乘以w）。

> ## dummy data 
> dat2 <- data.frame(c1 = c("abc","dxf","ghi"), c2 = 2:4, w = c(1,0.5,1.5), 
        c3 = 5:7, c4 = 3:5) 
> ## select the columns we want, all numerics, but not `w` 
> want <- sapply(dat2, is.numeric) & names(dat2) != "w" 
> ## then use want to index into dat2 
> dat2[, want] <- with(dat2, dat2[, want] * w) 
> dat2 
    c1 c2 w c3 c4 
1 abc 2.0 1.0 5.0 3.0 
2 dxf 1.5 0.5 3.0 2.0 
3 ghi 6.0 1.5 10.5 7.5 

Answer 3

只是出于乐趣，试图使其在同一行（但实际上不是最可读！）：

R> dd <- data.frame(G=gl(2,2), X=rnorm(4), Y=1L:4L, Z=letters[1:4], W=0.3:3.3) 
R> dd 
    G   X Y Z W 
1 1 0.2319565 1 a 0.3 
2 1 0.4242205 2 b 1.3 
3 2 0.5218064 3 c 2.3 
4 2 0.7155944 4 d 3.3 

R> data.frame(lapply(subset(dd, select=-W), function(v, w=dd$W) { if (is.numeric(v)) v*w else v }), W=dd$W) 
    G   X Y Z W 
1 1 0.06958695 0.3 a 0.3 
2 1 0.55148670 2.6 b 1.3 
3 2 1.20015475 6.9 c 2.3 
4 2 2.36146163 13.2 d 3.3 

Answer 4

正如你所看到的，这样做多种方式，但不知何故，你会期望一个非常简单的方法，我不知道这是否存在。 plyr软件包中有一个名为colwise的库函数，但我无法想出一个干净的方法来实现您想要的功能。我可以做wtih colwise最好的是这个（假设你的数据框被命名为DF）：

 

w2<-df$w df<-colwise(function(x,w){if(is.numeric(x)){x*w} else{x}})(df,df$w) df$w<-w2
 

对于那些谁熟悉colwise，我不认为你可以简单地使用numcolwise因为那时非数字列根本不发射。而且我无法弄清楚任何干净的方式都不会让乘法运算符合重量，这就是为什么我在这里简单地保存和恢复它的原因。我认为如果能够制定出更清晰的方法，colwise是一个很好的方法，并且易于理解。