乘以列中具有特定值的行数

Question

我有包含一些行和列的数据，例如

     col1   col2   col3   col4
r1   A      1      1       2
r2   B      3      1       2
r3   A      4      1       2
r4   D     10      1       2
r5   E     12      1       2
r6   A     5       1       2

我想将 col1 中具有值 A 或 B 的行乘以特定值（例如三个），

所以结果将是

     col1   col2   col3   col4
r1   A      3      3       6
r2   B      9      3       6
r3   A     12      3       6
r4   D     10      1       2
r5   E     12      1       2
r6   A     15      3       6

谢谢

Answer 1

你可以做到，

df[df$col1 == 'A', -1] <- df[df$col1 == 'A', -1] * 3

Answer 2

data.table 解决方案

library(data.table)
DT <- fread("col1   col2   col3   col4
   A      1      1       2
   B      3      1       2
   A      4      1       2
   D     10      1       2
   E     12      1       2
   A     5       1       2")

cols <- names(DT)[-1]
DT[col1 == "A", (cols) := lapply(.SD, `*`, 3), .SDcols = cols][]

#    col1 col2 col3 col4
# 1:    A    3    3    6
# 2:    B    3    1    2
# 3:    A   12    3    6
# 4:    D   10    1    2
# 5:    E   12    1    2
# 6:    A   15    3    6

Answer 3

1）dplyr 我们可以跨在dplyr中使用，或用 将第一个参数替换为其中（is.numeric）：

library(dplyr)

DF %>% mutate(across(-col1, ~ ifelse(col1 %in% c("A", "B"), 3 * ., .)))

给予：

  col1 col2 col3 col4
1    A    3    3    6
2    B    9    3    6
3    A   12    3    6
4    D   10    1    2
5    E   12    1    2
6    A   15    3    6

2）Collapse 或者在倒塌软件包中使用ftransformv。

library(collapse)

ftransformv(DF, is.numeric, \(x) ifelse(DF$col1 %in% c("A", "B"), 3*x, x))

笔记

Lines <- "col1   col2   col3   col4
   A      1      1       2
   B      3      1       2
   A      4      1       2
   D     10      1       2
   E     12      1       2
   A     5       1       2"
DF <- read.table(text = Lines, header = TRUE)