尽管列在数据框中，但不能对列进行子集化

Question

我有这个代码：

    drugs_from_samples = read_excel("/Downloads/drugs from samples.xlsx") %>% 
       dplyr::select("drug", "Indication reviewed", "Action reviewed", "frequency")

导致：

然后，当我尝试时

df = drugs_from_samples %>% 
  dplyr::select(-drug) %>% 
  group_by(`Indication reviewed`, `Action reviewed`) %>% 
  summarise(n = sum(frequency))


PieDonut(df,
         aes(df$`Indication reviewed`, df$`Action reviewed`, count = n))

当我尝试绘制 PieDonut 时，它给了我以下错误：

"不能对不存在的列进行子集化。x 列 df$`Indicationreviewed` 和 df$`Actionreviewed` 不 存在”

我已经在寻找这个特定问题的答案，有人可以提供任何帮助吗？

Answer 1

列名可能有问题。在执行操作之前，请尝试以下操作：

colnames(drugs_from_sample) <- gsub(" ", "_", colnames(drugs_from_sample))

这会将列名中的空格替换为下划线。然后将您的代码替换为：

df = drugs_from_samples %>% 
  dplyr::select(-drug) %>% 
  group_by(Indication_reviewed, Action_reviewed) %>% 
  summarise(n = sum(frequency))


PieDonut(df,
         aes(df$Indication_reviewed, df$Action_reviewed, count = n))