Multiply columns in a data frame by a vector

Question

What I want to do is multiply all the values in column 1 of a data.frame by the first element in a vector, then multiply all the values in column 2 by the 2nd element in the vector, etc...

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)

So the result is this:

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

I can do this one column at a time but what if I have 100 columns? I want to be able to do this programmatically.

Not the entire data frame for the problem I'm working on. There is a factor column. — , Mar 20 '16 at 00:01
You should include that in your example so that people can take it into account. — gung - Reinstate Monica, Mar 20 '16 at 00:08

Antoni Parellada · Answer 1 · 2016-03-20T14:32:24.617

14

Or simply diagonalize the vector, so that each row entry is multiplied by the corresponding element in 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

edited Mar 20 '16 at 14:32

answered Mar 20 '16 at 00:09

Antoni Parellada

3,907
5
39
97

1

This should be the answer - very simple, one step, with no complicated transformations etc. – Grubbmeister Feb 06 '19 at 06:46

score 8 · Accepted Answer · edited Dec 20 '16 at 17:54

8

Transposing the dataframe works.

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

EDIT: If all columns are not numeric, you can do the following

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

edited Dec 20 '16 at 17:54

user2100721

3,517
2
19
29

answered Mar 20 '16 at 00:01

Greenparker

242
1
10

You'll need to take the factor variable into account. – gung - Reinstate Monica Mar 20 '16 at 00:08
That works on my 10 column, 1068 row data frame. Thanks! – Mar 20 '16 at 00:09

akrun · Answer 3 · 2016-03-20T08:04:13.690

8

We can also replicate the vector to make the lengths equal and then multiply

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

Or use sweep

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

Or with mapply to multiply the corresponding columns of 'data.frame' and elements of 'vector'

mapply(`*`, d1, v1)

edited Mar 20 '16 at 08:04

answered Mar 20 '16 at 07:58

akrun

789,025
32
460
575

1

Sweep worked really well to multiple each column of matrix A by elements of coefficient matrix, and return matrix of similar dimension of matrix A – Masood Sadat Jan 27 '20 at 15:11

Multiply columns in a data frame by a vector

3 Answers3

Linked

Related