R ggplot 当图中有多个图时反转图的一个轴而不影响其他图

Question

我使用 ggplot2 绘制了一个降雨数据集。我必须在同一张图中绘制降雨量和溪流下降数据，这是我使用它完成的

p <- ggplot(data=raw_data, aes(x=Hr, y=RF)) +
  geom_bar(stat="identity") 

p <- p + geom_line(aes(x= Hr, y=SF))

我的问题是如何使条形图倒置。我已经尝试使用 ylim(60,0) 和 scale_y_reverse，这使得两个图都颠倒了。任何帮助。

Answer 1

试试这个

require(ggplot2)

df1 <- data.frame(x=c(1,2), y=c(3,4))
dfdummy <- data.frame(xx=c(1,2), yy=c(5,5))

 # here the arbitrary hang height is 5, see yy.

ggplot() +
  geom_bar(data=dfdummy, aes(x=xx, y=yy), stat="identity") + # dummy bars
  geom_bar(data=df1, aes(x=x, y=y), stat="identity", fill="white") + # overwriting dummy
  theme_classic() # theme w/o grid lines and background matching fill means invisible data