如何给瀑布图添加渐变？

Question

刚开始使用R，按照一个教程创建了一个瀑布图。当使用二分值时，它的工作非常好。

col <- ifelse(tumor_tidy_wp$zr == "YES", "#1B9E77", "#D95F02")

barplot(tumor_tidy_wp$maxchange, col=col, border="Black", space=0.5, ylim=c(-75,75),
      main = "Waterfall plot", ylab="Change from baseline (%)",
      cex.axis=1.2, cex.lab=1.4, legend.text=c("Yes","No"),
      args.legend=list(title="Uptake 89Zr on any time-point", fill=c("#1B9E77","#D95F02"), border=NA, cex=0.9)) +
      theme(axis.line.x = element_blank(), axis.text.x = element_blank(), axis.ticks.x = element_blank(),
      axis.title.y = element_text(face="bold",angle=90))

我也有一个持续的刻度，我想用梯度代替YESNO，但我不能让它工作。我尝试使用scale_fill()的版本，但都失败了。有其他方法吗？

Answer 1

我自己把使用barplot改成ggplot+geom_bar+scale_fill_gradient2的方式来解决，就像这样。

ggplot(data=tumor_tidy_wp, aes(x=x, y=maxchange, fill=IA)) + geom_bar(stat="identity") + scale_fill_gradient() + theme_classic2() + expand_limits(y=c(-60, 60)) + ylab("Change from baseline(%)")

瀑布图与梯度