计数图的geom_bar：为没有值的列添加x轴标签并自定义剩余条的顺序

Question

我需要为以下数据中的空值计数添加标签：

library(ggplot2)
myData <- data.frame(
  x = c("A", "A", "B", "B", "B", "C", "C", "C", "", "", "", ""),
  y = c(1, 4, 1, 5, 1, 5, 6, 7, 3, 6, 6, 3)
)

ggplot(myData, aes(x=x)) + 
  geom_bar(width = 0.5)+
  geom_text(stat='count', aes(label = ..count..), vjust = -1)

我的情节目前是这样的：

如何为第一列添加自定义标签？说“不可用”

第二个问题，我需要自定义其余小节的顺序，因此第一个小节始终是带有空值的小节，但是随后，我希望小节按此顺序B, C, A（而不是降序或升序） ）。其他StackOverflow答案似乎可以解决基于计数的钢筋重新排序问题。

Answer 1

您可以使用scale_x_discrete完成此操作，限制更改顺序，标签将决定您要保留的文本

p = ggplot(myData, aes(x=x)) + 
  geom_bar(width = 0.5)+
  geom_text(stat='count', aes(label = ..count..), vjust = -1)

p+scale_x_discrete(limits=c("","B","C","A"),
label=c("Not Available","B","C","A"))