r - 如何使用ggplot2让x轴在非零位置截取y？

Question

我有一张温度图:

qplot( TS, TEMPERATURE, data=dataInput(), geom="bar", stat="identity", fill=TEMPERATURE) + 
    labs(x="Measurement date", y="Temperature (degrees C)") +
    ggtitle("temperature")

但是，我想做的是让 x 轴在 50 摄氏度处与 y 轴相交，以便向下绘制 50 度以下的值。理想情况下使用渐变填充比例，以便高值是红色，低值是蓝色。

如何用 ggplot 做到这一点？

Answer 1

你只需要破解刻度标签。

library(ggplot2)

# fake data
my_dat <- data.frame(x=1:(24*3), temp=sample(0:100, 24*3))

# the initial plot 
ggplot(my_dat, aes(x=x, y=temp, fill=temp)) +
  geom_bar(stat='identity')

# make a copy
my_dat2 <- my_dat

# pretend that 50 is zero
my_dat2$temp  <- my_dat2$temp-50

ggplot(my_dat2, aes(x=x, y=temp, fill=temp)) +
  geom_bar(stat='identity') +
  scale_fill_gradient2(low = 'blue', mid = 'white', high='red',
                       labels=seq(0,100,25)) +
  scale_y_continuous(breaks=seq(-50,50,25), labels=seq(0,100,25))

编辑:交换颜色，低=蓝色和高=红色(!)