R中箱图中的y轴反向

Question

我已经阅读了相关主题，但仍然无法弄清楚。 我使用以下数据制作了箱线图。 如何以12出现在y轴底部的方式反转y轴？

 X <- (13,13,13,12,14,14,14,13,16,16,13,15,15,15,14,14,13,16,15,19,15,16,17,14,19,16,18,17,17,18,17,17,19,17,17)

我使用了boxplot(X,at=rev(1:nlevels(X)))，它显示了此错误：'at' must have same length as 'z$n', i.e. 1

任何评论都很棒！

Answer 1

尝试使用ylim：

X <- c(13,13,13,12,14,14,14,13,16,16,13,15,15,15,14,14,13,16,15,19,15,16,17,14,19,16,18,17,17,18,17,17,19,17,17)
boxplot(X, ylim = c(19, 12))

产生：

---

在有关将y轴向右切换的评论之后添加

执行此操作所需的代码：

boxplot(X, ylim = c(19, 12), axes=FALSE)
axis(4, pos = 1.3)

产生：

Answer 2

或者尝试整洁的方式：

library(tidyverse)
tibble(X = c(13,13,13,12,14,14,14,13,16,16,13,15,15,15,14,14,13,16,15,19,15,16,17,14,19,16,18,17,17,18,17,17,19,17,17)) %>% 
  ggplot(aes(x = '', y = X)) +
  geom_boxplot() +
  theme_minimal() +
  scale_y_reverse() +
  xlab('')