r - 如何显示与所用变量不同的标签

Question

您好，我想表示条形图，以便与同一功能系统相关的疾病以相同的方式着色。由于通过代码对类似疾病进行分组更容易，因此我这样做了。但是，我要显示的是疾病标签。但是我不能按标签对相似的疾病进行分组，因为标签没有任何共同点(在我的真实数据框中)，而且我无法手动完成，因为我在大型数据库上工作。这就是我的数据库的样子。

ID=1:20
Hospital<-sample(c(rep("A",10),rep("B",10)))
Disease<-c("D1000",rep("D2001",2),rep("D2000",3),rep("D3000",4),
           rep("D3001",2),rep("D3003",4),rep("D4001",3),"D4002")
labels<-c("Infection",rep("Cancer.type1",2),rep("Cancer.type0",3),
          rep("Trauma.type0",4),rep("Trauma.type1",2),
          rep("Trauma.type3",4),rep("Heart.type1",3),"Heary.type2"  )
data<-data.frame(ID,Hospital,Disease,labels)
data$Disease<-as.factor(data$Disease)

下面是我如何绘制条形图。所有以 D4 开头的疾病都有相同的颜色。所有以 D3 开头的疾病也有相同的颜色。等等。现在我希望疾病标 checkout 现在图表上而不是它们的代码上。

data%>%count(Disease)%>%
ggplot(aes(x=Disease,y=n))+
geom_col(aes(fill=substr(Disease,1,2)),show.legend = F)+
coord_flip()

Answer 1

您只需将 labels 添加到您的 count 函数，并以此为基础绘制:

data %>% 
  count(labels, Disease) %>%
  ggplot(aes(x = labels, y = n)) +
    geom_col(aes(fill = substr(Disease,1,2)), show.legend = FALSE) +
    coord_flip()