R 保留没有数据geom_直方图的标高

我有一些调查数据，我想在R（ggplot2）中可视化。该调查以五分制（1-5分）收集数据，但许多问题没有得到各级的答复。我在这里创建了一个示例：

set.seed(50)
data <- data.frame("person" = c(rep("A", 3), rep("B", 3), rep("C", 3)), 
                   "question" = rep(c("speed", "accuracy", "cost"), 3), 
                   "score" = round(runif(n = 9, min = 3, max = 5 )))

data$score <- factor(data$score, levels = 1:5)

ggplot(data, aes(x = score)) + 
  geom_histogram(stat="count", aes(fill = score)) +
  facet_wrap(~question)

set.seed（50）
数据您所需要的是
scale\ux\udiscrete（drop=FALSE）

您只需要
scale\ux\udiscrete（drop=FALSE）


ggplot(data, aes(x = score)) + 
    geom_histogram(stat="count", aes(fill = score)) +
    facet_wrap(~question) + scale_x_discrete(drop = FALSE)