如何修改多分组数据框中指定列各分组最后两行的取值？

你之前用case_when误改所有9月行的核心原因是没有加分组内的位置/出现次数判断，所有匹配日期值的行都会触发替换，只要先按Group分组，再给组内行做计数标记，就能实现定向修改。

方法1：按规则定向替换（适配行顺序固定、仅特定行错误的场景） #

先把日期列转为标准日期格式，分组后分别标记「组内第二个2019-09-06」和「组内最后一行」，再做替换即可，不会误改其他9月的行：

library(dplyr)

df_fixed <- df %>%
  # 若Date列已经是日期类型，可跳过这行
  mutate(Date = as.Date(Date)) %>%
  # 按分组执行后续所有计算
  group_by(Group) %>%
  mutate(
    # 标记组内第二次出现2019-09-06的行
    second_sep_flag = cumsum(Date == as.Date("2019-09-06")) == 2,
    # 标记组内最后一行
    last_row_flag = row_number() == n(),
    # 按规则替换
    Date = case_when(
      second_sep_flag ~ as.Date("2019-10-06"),
      last_row_flag ~ as.Date("2019-11-06"),
      TRUE ~ Date
    )
  ) %>%
  # 移除临时标记列、取消分组
  select(-second_sep_flag, -last_row_flag) %>%
  ungroup()

核心逻辑是cumsum(Date == as.Date("2019-09-06"))会在每个分组内单独累计9月6日的出现次数，只有计数等于2的行才会触发替换，完全不会影响第一个9月6日的行。

方法2：按行序重生成日期（适配行顺序正确、仅日期值错位的场景） #

如果你的每个分组内的行本来就是按时间先后顺序排列的，只是9月重复导致后续所有日期错位、最后缺11月值，那根本不需要判断重复值，分组后直接按行序号重新生成连续月份日期即可，代码更简洁，也不会出现误改：

df_fixed <- df %>%
  group_by(Group) %>%
  # 若分组起始月份不是1月，替换下面seq的起始日期即可，比如示例片段从7月开始就写as.Date("2019-07-06")
  mutate(Date = seq(as.Date("2019-01-06"), by = "month", length.out = n())) %>%
  ungroup()

这个方法会自动给每个组的11行依次生成对应月份的6号日期，自动规避重复值问题。

效果验证 #

用你给出的示例片段测试，组1的第4行（第二个2019-09-06）、组2的第8行（第二个2019-09-06）会被正确替换为2019-10-06，每个组的第11行自动替换为2019-11-06，其余行保持不变。

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