R 乘以每个后续的第二列

发布于01月23日

我正在try 将第一列与第一列和第三列相乘.下面你可以看到我的数据.

  df<-data.frame(  
  Stores=c(10,10,20,0,10),
  Value1=c(10,10,0,100,0),
  Value2=c(10,10,0,100,0),
  Value3=c(10,0,0,0,0),
  Value4=c(10,10,0,0,0)
  )

df

现在，我想将第一列Stores与随后的每一列相乘，在本例中为Value2和Value4.

我曾try 使用Mariate来实现这一点，但我认为我的方法不正确，因为在现实中，我需要将其应用于包含大约50列的大型数据集.

df<-mutate(df,
           solved1=Stores*Value2)

那么，有谁能帮我解决这个问题吗？

推荐答案

BASE R解决方案，基于@onyambu的 comments :

new <- df[,1] * df[seq(3, ncol(df), by = 2)]
colnames(new) <- paste0("solved", seq_along(new))
df <- cbind(df, new)
df

  Stores Value1 Value2 Value3 Value4 solved1 solved2
1     10     10     10     10     10     100     100
2     10     10     10      0     10     100     100
3     20      0      0      0      0       0       0
4      0    100    100      0      0       0       0
5     10      0      0      0      0       0       0