Question

我想要做的是将data.frame的第1列中的所有值乘以向量中的第一个元素，然后将第2列中的所有值乘以向量中的第2个元素，等等...... / p>

c1 <- c(1,2,3)
c2 <- c(4,5,6)
c3 <- c(7,8,9)
d1 <- data.frame(c1,c2,c3)

  c1 c2 c3
1  1  4  7
2  2  5  8
3  3  6  9

v1 <- c(1,2,3)

结果如下：

  c1  c2  c3
1  1  8   21
2  2  10  24
3  3  12  27

我一次只能做一列，但如果我有100列呢？我希望能够以编程方式执行此操作。

Answer 1

转置数据框有效。

c1 <- c(1,2,3)
c2 <- c(4,5,6)
c3 <- c(7,8,9)
d1 <- data.frame(c1,c2,c3)
v1 <- c(1,2,3)
t(t(d1)*v1)
#     c1 c2 c3
#[1,]  1  8 21
#[2,]  2 10 24
#[3,]  3 12 27

编辑：如果所有列都不是数字，您可以执行以下操作

c1 <- c(1,2,3)
c2 <- c(4,5,6)
c3 <- c(7,8,9)
d1 <- data.frame(c1,c2,c3)

# Adding a column of characters for demonstration
d1$c4 <- c("rr", "t", "s")

v1 <- c(1,2,3)

#Choosing only numeric columns
index <- which(sapply(d1, is.numeric) == TRUE)
d1_mat <- as.matrix(d1[,index])

d1[,index] <- t(t(d1_mat)*v1)
d1
#  c1 c2 c3 c4
#1  1  8 21 rr
#2  2 10 24  t
#3  3 12 27  s

Answer 2

或简单地对矢量化，以便每个行条目乘以v1中的相应元素：

c1 <- c(1,2,3)
c2 <- c(4,5,6)
c3 <- c(7,8,9)
d1 <- as.matrix(cbind(c1,c2,c3))
v1 <- c(1,2,3)

d1%*%diag(v1)

     [,1] [,2] [,3]
[1,]    1    8   21
[2,]    2   10   24
[3,]    3   12   27

Answer 3

我们还可以复制矢量以使长度相等，然后乘以

d1*v1[col(d1)]
#  c1 c2 c3
#1  1  8 21
#2  2 10 24
#3  3 12 27

或使用sweep

sweep(d1, 2, v1, FUN="*")

或者使用mapply将“data.frame”＃39;的相应列相乘。和＆＃39; vector＆＃39;

的元素

mapply(`*`, d1, v1)

通过向量将数据帧中的列相乘

3 个答案: