为什么我的 ggplot2 条形图不显示大于 0 的 ylim 最小值？

Question

我试图在 1 到 5 的范围内绘制答案，我希望我在 ggplot2 中的绘图范围从 1 到 5。但是，当我更改 scale_y_continuous(limits = c(1, 5)) 时，数据消失了。任何想法如何解决这个问题（除了从我的值中减去 1 并重新标记的 hack-y 方式）？

可重现的例子：

dat <- structure(list(year = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 
4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 
4L, 1L, 2L, 3L, 4L), .Label = c("2011", "2012", "2013", "2015"
), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 
6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L), .Label = c("instructor.knowledge", 
"instructor.enthusiastic", "instructor.clear", "instructor.prepared", 
"instructor.feedback", "instructor.out.of.class", "class.dynamic"
), class = "factor"), value = c(5, 4.75, 5, 4.75, 5, 5, 4.85714285714286, 
4.75, 4.75, 4.75, 4.71428571428571, 3.75, 5, 4.75, 5, 4.5, 5, 
4.75, NA, 5, 5, 5, NA, 4.5, 5, 5, NA, 4.5)), row.names = c(NA, 
-28L), .Names = c("year", "variable", "value"), class = "data.frame")

library(ggplot2)
ggplot(dat, aes(x = variable, y = value, fill = year)) + 
  geom_bar(position = "dodge", stat = "identity") +
  scale_y_continuous(name = "Average score across all respondents",
                     limits = c(1, 5),  # fails
                     # limits = c(0, 5),  # succeeds
                     breaks = 1:5)

Answer 1

您只需要设置oob = rescale_none 参数就可以了：

library(scales)
library(ggplot2)
ggplot(dat, aes(x = variable, y = value, fill = year)) + 
  geom_bar(position = "dodge", stat = "identity") +
  scale_y_continuous(name = "Average score across all respondents",
                     limits = c(1, 5),
                     oob = rescale_none) 

确保附上scales 包以使oob = rescale_none 工作。

Answer 2

作为另一种选择，您的数据可能更容易理解为多面线图：

ggplot(dat, aes(x = year, y = value, group=1)) + 
  geom_point() +
  geom_line() +
  scale_y_continuous(name = "Average score across all respondents",
                     limits = c(1, 5),  # fails
                     # limits = c(0, 5),  # succeeds
                     breaks = 1:5) +
  facet_grid(. ~ variable)