UseMethod（“select”）中的错误：没有适用于“select”的方法应用于类“c（'integer'，'numeric'）”的对象答案

【问题标题】：Error in UseMethod("select") : no applicable method for 'select' applied to an object of class "c('integer', 'numeric')"UseMethod（“select”）中的错误：没有适用于“select”的方法应用于类“c（'integer'，'numeric'）”的对象
【发布时间】：2021-11-29 07:11:37
【问题描述】：

当我输入以下语法时收到上述错误消息：

y <- mydata_final_distinct %>%
  select(Case_ID,starts_with (Effect_)) %>% 
   pivot_longer(-Case_ID, names_to='symptoms', values_to=adr) %>% 
   distinct(Case_ID,'symptoms',adr,.keep_all = TRUE) %>%
   count(adr) %>% 
   arrange(desc(n))

【问题讨论】：

请提供带有dput(head(mydata_final_distinct))或类似名称的示例数据，足以证明错误和您想要的输出。
str(mydata_final_distinct) 的输出是什么？此外，select(Case_ID,starts_with (Effect_)) 在我看来也不合适。如果您将该行替换为select(Case_ID,starts_with("Effect_"))，您是否仍会收到相同的错误？
(mydata_final_distinct) 的输出是：mydata_final_distinct% mutate(across(.cols = c(Primary_Suspect_Drugs,Secondary_Suspect_Drugs,Other_Administered_Drugs,Adverse_Events, Effect_1:Effect_367), .fns = tolower) ) %>% distinct(Case_ID,FDA_Date,Age,Gender,.keep_all = TRUE) 我希望这可以提供线索。我尝试了上面的其他建议，但没有奏效。谢谢

标签： r

【解决方案1】：

虽然没有您的一些数据很难进行故障排除，但我会首先在函数调用中明确说明库，因为它可能会尝试使用来自另一个库的select。

library(dplyr)
library(tidyr)

y <- mydata_final_distinct %>%
  dplyr::select(Case_ID, starts_with (Effect_)) %>%
  tidyr::pivot_longer(-Case_ID, names_to = 'symptoms', values_to = adr) %>%
  dplyr::distinct(Case_ID, 'symptoms', adr, .keep_all = TRUE) %>%
  dplyr::count(adr) %>%
  dplyr::arrange(desc(n))

【讨论】：

非常感谢。这很有帮助，但是，我现在遇到了另一个错误：错误：compact_rep() 中的内部错误：compact_rep() 中的负 n。我该如何解决这个问题？
@tichawonachinzowu 如果没有一些数据进行故障排除，很难知道。你能提供一些my_data吗？你可以做dput(head(my_data))，它只会是6行数据。如果您有任何敏感数据，那么您可以随时将它们更改为其他内容。老实说，它不一定是您的确切数据。只需要相同结构的数据即可进行故障排除。
我很抱歉我对 R 还很陌生。我创建了一个包含六行 mydata 的 csv 文件，但我不知道如何在这个平台上上传它。感谢所有帮助的人。非常感谢您的耐心等待。
@tichawonachinzowu 您可以继续将 .csv 加载到 R 中，例如 my_data <- read.csv("my_data.csv")，然后在控制台中执行 dput(my_data)。然后，您可以从中复制结果，并将其粘贴到您的原始问题中（格式化为代码）。然后，我将能够重新创建 my_data 并进行故障排除。