如何在R的dplyr管道中将threshold列前7行替换为manufacturer列值

你可以直接在mutate步骤里结合行号判断函数实现需求，以下是两种可行的方案：

方案一：使用if_else #

library(tidyverse)

mpg %>% 
  arrange(cty) %>% 
  mutate(threshold = if_else(row_number() <= 7, manufacturer, NA_character_)) %>% 
  select(manufacturer, cty, threshold)

• row_number()生成当前行的序号，用来精准筛选前7行
• if_else做条件替换：行号≤7时取对应行的manufacturer值，其余行用NA_character_（必须用字符型NA，和manufacturer的类型匹配，避免类型转换警告）

方案二：使用case_when（适合多条件扩展场景） #

如果之后需要添加更多条件判断，用case_when会更灵活：

library(tidyverse)

mpg %>% 
  arrange(cty) %>% 
  mutate(threshold = case_when(
    row_number() <= 7 ~ manufacturer,
    TRUE ~ NA_character_
  )) %>% 
  select(manufacturer, cty, threshold)

这里TRUE ~ NA_character_表示所有不满足前面条件的行都返回字符型NA，逻辑和if_else一致，但后续添加新条件时只需追加新的判断行即可。

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