我有一张温度图:
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 做到这一点?
最佳答案
你只需要破解刻度标签。
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))
编辑:交换颜色,低=蓝色和高=红色(!)
关于r - 如何使用ggplot2让x轴在非零位置截取y?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30793502/