R语言：如何实现Stores列值为10时与指定列相乘？

需求说明 #

仅当Stores列的值为10时，执行该列与指定后续列（此处为第3、5列，对应Value2、Value4）的乘法；不符合条件的行，结果设为0。

原始数据 #

df <- data.frame(  
  Stores=c(10,30,10,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)
)

问题分析 #

你之前尝试的ifelse(df[,1]==10,1,0) * df[seq(3,ncol(df), by = 2)]存在两个问题：

• 用1替代了Stores的实际值，偏离了你原本无条件乘法的逻辑（原本是用Stores值直接乘指定列）；
• 向量与数据框直接相乘时，虽然R会自动广播，但逻辑上先对不符合条件的行清零再执行乘法，结果更准确且易读。

解决方案 #

方法1：基础R分步处理

先提取目标列，对不符合条件的行清零，再与Stores列相乘：

# 提取需要参与乘法的指定列
target_cols <- df[seq(3, ncol(df), by = 2)]
# 将Stores不等于10的行，对应指定列的值设为0
target_cols[df$Stores != 10, ] <- 0
# 执行乘法操作
result <- target_cols * df$Stores

方法2：向量化一行代码

利用ifelse的向量化特性，对每一列单独处理：

result <- as.data.frame(lapply(df[seq(3, ncol(df), by = 2)], 
                               function(col) ifelse(df$Stores == 10, df$Stores * col, 0)))

验证结果 #

运行上述代码后，result的输出如下，完全符合需求：

Value2 Value4
1    100    100
2      0      0
3      0      0
4      0      0
5      0      0

内容的提问来源于stack exchange，提问作者silent_hunter