Как я могу добавить градиент к своему участку водопада? - PullRequest
Новая
       89

Как я могу добавить градиент к своему участку водопада?

0 голосов
/ 02 мая 2020

Только начал работать с 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))

Waterfallplot_dichotomous

У меня также есть непрерывная шкала этого значения, и вместо ДА / НЕТ я хотел бы иметь вместо этого градиент, но я не могу заставить это работать. Я пытался использовать версии scale_fill (), но потерпел неудачу. Есть ли другой способ?

1 Ответ

0 голосов
/ 02 мая 2020

Исправил это сам, переключившись с использования 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(%)")

Водопад с градиентом

...