R ggplot2：仅为一组镶嵌面栅格缩放y反转（）？

下面是一个使用内置R数据的示例：

data(mpg, package = "ggplot2")  # load data
g <- ggplot(mpg, aes(x = displ, y = hwy)) + geom_point()
     + labs(title = "hwy vs displ", caption = "Source: mpg")
     + geom_smooth(method = "lm", se = FALSE)
g2 <- g + facet_grid(cyl ~ class)
g2

数据（mpg，package=“ggplot2”）#加载数据
g不太好。也许如果你做了代码> Stase= FulySyy ，尽管我仍然怀疑它是简单的。GGPGOT哲学会认为这是一个误导性的可视化，因为刻面被设计成使得值可以跨组进行比较。最好是生成单独的绘图，如果必须合并，则使用类似于
gridExtra:：grid.arrange
。在我的真实示例中，我有3组水平x 2组垂直，为了可视化，我希望在较低的组上反转y轴。我目前的解决方案是将这些值乘以-1，并使用scales='free_y'，但这在尝试映射文本、注释等时很烦人。