格子中具有反向 y 刻度的条形图

Question

我想要一个格子条形图，看起来像 ggplot 条形图，从这里开始有反向 y 轴 http://www.sthda.com/english/wiki/ggplot2-rotate-a-graph-reverse-and-flip-the-plot

换句话说，我想将格子中的条形图倒置，条形图的原点在顶部。我寻找了很长一段时间的解决方案，认为它应该很容易，但未能找到一个...

require(lattice)
data <- data.frame(y = c(0.1, 0.4, 0.3, 0.23, 0.17, 0.27), x = c(1,2,3,4,5,6))
histogram <- barchart(data$y ~ data$x, horizontal = FALSE)
histogram

上面的代码生成常规条形图。我想要做的是让条形从顶部开始，而不是从底部开始，y 刻度相反。换句话说，我想要这个精确的图表，但颠倒了。

Answer 1

这里有一个技巧可以做到这一点：

绘制 -y 而不是 y，并指定原点为 0，然后您可以根据需要更改 y 轴上的标签

mydata <- data.frame(y = c(0.1, 0.4, 0.3, 0.23, 0.17, 0.27), x = c(1,2,3,4,5,6))

# fix where you want the ticks to be 
ticks_at <- seq(-0.5, 0, 0.1)
barchart(-y ~ x, 
         mydata, 
         horizontal = FALSE, 
         origin=0, 
         # set the position of the ticks and their labels 
         scales = list(y=list(at = ticks_at, 
                              labels = -1 * (ticks_at))),
         xlab = "x-Axis",
         ylab ="y-Axis")

你会得到这样的东西：

格子中具有反向 y 刻度的条形图

Barchart with reverse y-scale in lattice

r

lattice