在dplyr中基于分组条件将阈值之上的Max列值替换为Mean列值

Hey there, I’ve got you covered with a clean dplyr-based solution that directly addresses your requirement. No need to split your dataframe into separate pieces—we can handle the conditional replacement in one step using case_when(), which is far more readable than nested ifelse statements.

Step-by-Step Code #

First, load the dplyr package (if you haven’t already), then use mutate() with case_when() to modify the Max column:

library(dplyr)

# Apply the conditional replacement
df_modified <- df %>%
  mutate(Max = case_when(
    # Condition: Code is "A" AND Max > Limit → replace with Mean
    Code == "A" & Max > Limit ~ Mean,
    # Catch-all: keep original Max value for all other cases
    TRUE ~ Max
  ))

How This Works #

Let’s break down the logic:

• case_when() evaluates conditions in order. The first condition checks two things at once: whether the row’s Code is "A", and whether its Max value exceeds the corresponding Limit. When both are true, we replace Max with the row’s Mean value.
• The TRUE ~ Max line acts as a default: for every row that doesn’t meet the first condition (either Code is "B", or Code is "A" but Max ≤ Limit), we leave the original Max value untouched.

Verify the Result #

If you print df_modified, you’ll see the 4th row (Code "A", Date 2018-01-04) now has Max = 5.3 instead of the original 10.6, exactly as you wanted:

print(df_modified)
#   Code       Date  Max Mean Limit
# 1    A 2018-01-01  2.4  2.2   6.5
# 2    A 2018-01-02  4.2  3.9   6.5
# 3    A 2018-01-03  3.7  3.1   6.5
# 4    A 2018-01-04  5.3  5.3   6.5  # Updated value here
# 5    A 2018-01-05  5.2  4.3   6.5
# 6    B 2018-01-01  8.7  4.8  10.5
# 7    B 2018-01-02  3.9  3.6  10.5
# 8    B 2018-01-03  4.8  4.2  10.5
# 9    B 2018-01-04 14.5  6.0  10.5  # Unchanged (Code is B)
# 10   B 2018-01-05  3.2  2.8  10.5

Alternative (Simpler ifelse Version) #

If you prefer a more concise approach (though less scalable for additional conditions), you could use a single ifelse statement instead:

df_modified <- df %>%
  mutate(Max = ifelse(Code == "A" & Max > Limit, Mean, Max))

This achieves the exact same result, but case_when() is better if you ever need to add more conditional rules down the line.

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