R 如何在geom_col中反转条

发布于03月25日

我想用与斯特拉瓦类似的方式绘制一次 run 的结果.我使用geom_ol绘制数据，但我希望从底部而不是从顶部绘制条形图，同时保持y轴的反转(因为速度值越高，速度就越低).

library(ggplot2)
df <- data.frame(km = 1:20, avePace = c(321, 301, 319, 312, 312, 313, 305, 309, 313, 341,
                                       352, 352, 355, 355, 372, 362, 372, 363, 340, 316))


ggplot(data = df, aes(x=km, y = avePace, fill = avePace)) +
 geom_col(show.legend = FALSE, orientation="x") +
 scale_fill_distiller() +
 scale_y_reverse(labels = function(t) strftime(t, "%M:%S")) +
 coord_cartesian(ylim = c(7*60, 3*60 )) +
 ylab("Pace (min/km)")

我知道这是阿尔瓦罗·莫拉莱斯问的similar question分，但我不能重复建议的解决方案.

The desired image looks something like this:

推荐答案

您可以使用scales包中的reciprocal转换来接近您需要的内容:

library(scales)
ggplot(data = df, aes(x=km, y = avePace, fill = avePace)) +
  geom_col(show.legend = FALSE, orientation="x") +
  scale_y_continuous(
    trans = "reciprocal"
    labels = function(t) strftime(as.POSIXlt(t, origin = as.Date("1970-01-01")), "%M:%S"))) +
  coord_cartesian(ylim = c(7*60, 3*60 )) +
  ylab("Pace (min/km)")

但是，正如@teunbrand在他的 comments 中指出的那样，对于这种类型的数据来说，这是错误的可视化.这些条的起源是无意义的(无限速度？)，因此它们的大小是不可比较的.例如:15公里的横杆(372 S/公里)大约是1公里(321 S/公里)横杆的一半.但你的速度没有减半:在1公里时，你的速度是3.12米/S，在15公里时，你的速度是2.69米/S.