R语言按Category和Type分组生成Text列失效，请求技术帮助

咱们先来捋清楚你代码里的几个核心问题：

1. 分组变量缺失：你的Test数据框里根本没包含Category和Type列！group_by(Category, Type)找不到这两个变量，分组操作自然完全不生效；
2. 空值判断错误：你的原始数据里的空值是空字符串""，但R里的is.na()只识别官方的缺失值NA，所以!is.na()对这些空字符串完全不起作用；
3. 逻辑不符合需求：你想要的是同组内所有行共用一个Text值（取该组里按Col6→Col1优先级的第一个非空值），但原代码是逐行单独判断，没有实现分组统一赋值的逻辑。

修正后的完整代码 #

下面是能实现你需求的代码，我会一步步解释：

首先，先把Category和Type正确加入到Test数据框里（这是分组的前提）：

Category=c("A","A","A","B","B","B")
Type=c("P","P","R","S","S","S")
Col1=c("ABCD","","","","wxyz","")
Col2=c("","","MTNL","","","")
Col3=c("","PQRS","","","","")
Col4=c("","","","","","")
Col5=c("","","","","","")
Col6=c("","","","","","EFGH")

# 必须把Category和Type加入Test，不然group_by找不到分组依据
Test=data.frame(Category, Type, Col1, Col2, Col3, Col4, Col5, Col6, stringsAsFactors = FALSE)

接下来咱们处理空值、分组、赋值：

library(dplyr)
library(tidyr)

Test1 <- Test %>%
  # 先把所有空字符串转成R认可的NA，这样is.na相关判断才能正常工作
  mutate(across(Col1:Col6, ~ifelse(.x == "", NA_character_, .x))) %>%
  # 按你要的Category和Type分组
  group_by(Category, Type) %>%
  # 核心逻辑：对每组，按Col6→Col5→...→Col1的顺序，取第一个非NA的值作为整个组的Text
  mutate(Text = coalesce(!!!syms(paste0("Col", 6:1)))) %>%
  # 取消分组（可选，后续如果不需要分组操作的话建议加上）
  ungroup()

代码细节解释 #

• across(Col1:Col6, ~ifelse(.x == "", NA_character_, .x))：批量处理Col1到Col6这6列，把所有空字符串换成R的标准缺失值NA；
• coalesce(!!!syms(paste0("Col", 6:1)))：coalesce()函数的作用是返回传入参数里的第一个非NA值，paste0("Col",6:1)生成Col6,Col5,...,Col1的变量名，syms()把这些字符串转成R能识别的变量符号，!!!是解包符号，把这些变量挨个传给coalesce()，完美实现你要的优先级逻辑；
• 因为是在group_by之后执行mutate，所以这个Text值会自动填充到当前组的所有行里，完全符合你想要的效果。

最终效果 #

运行后Test1的Text列会和你预期的完全一致：

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