R运行select函数报错：无适用于integer/numeric类对象的方法

• 核心触发逻辑：dplyr::select() 仅支持对数据框、tibble类的结构化表格对象执行列选择操作，该报错的直接原因是管道符传入select()的mydata_final_distinct对象为整数/数值型向量，不存在适配的select处理方法。
• 常见场景：
  1. 你此前生成mydata_final_distinct的代码逻辑错误，比如误赋值为某列的取值向量、聚合计算的数值结果，导致原本应该是表格的对象被覆盖为数值向量
  2. 工作环境存在重名冲突，有另一个同名的mydata_final_distinct数值向量被优先调用

• 首先执行class(mydata_final_distinct)验证对象类型，确认输出为integer/numeric后按如下步骤处理：
• 回溯mydata_final_distinct的赋值代码，修正错误的赋值逻辑，确保最终输出为表格类对象。比如之前误写了mydata_final_distinct <- 原始表 %>% pull(列名)这类提取单列的代码，要改回保留全表结构的写法。
• 清理重名冲突：执行rm(mydata_final_distinct)清空当前环境的同名变量后，重新运行该对象的生成代码即可。
• 如果你确实需要对该向量做后续处理，可以先将其转换为单列表格，示例修正写法：

y <- as.data.frame(mydata_final_distinct) %>%
  # 注意starts_with的匹配字符串需要加引号
  select(Case_ID,starts_with("Effect_")) %>% 
  pivot_longer(-Case_ID, names_to='symptoms', values_to=adr) %>% 
  # 注意symptoms不要加引号，否则会被识别为固定字符串而非列名
  distinct(Case_ID,symptoms,adr,.keep_all = TRUE) %>%
  count(adr) %>% 
  arrange(desc(n))

你原有代码还存在两处可预判的语法错误，修改后可避免后续报错：

• starts_with()的匹配参数为字符串类型，需要给Effect_加引号，改为starts_with("Effect_")
• distinct()中引用列名不需要加引号，去掉symptoms外层的单引号即可

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