如何按大小制作ggplot2条形图颜色并按方向排序

Question

我的数据条形图如下所示：

 Difference  Name
-120.007482  gene1
 43.901222   gene2
 66.206057   gene3
-277.303125  gene4
 69.487904   gene5

我使用 ggplot2 制作了一个条形图，代码如下：

ggplot(readcount_differences, aes(x=gene, y= differences)) +
            geom_bar(stat = "identity")+
             theme(axis.text.x = element_text(angle=45, vjust =1))

我现在要做的是按数量级对条形图进行着色和排序。因此，最正面的条形图从深蓝色变为浅蓝色（最短的正面），而最负面的条形图从深红色变为浅红色（从最负面到最不负面）。

我想我可以用构面来做到这一点，但我不知道怎么做。任何帮助将不胜感激。谢谢！

编辑：使用修复：

颜色变浅...

Answer 1

读取数据：

df <- read.table(header=TRUE, text=" difference  name
-120.007482  gene1
 43.901222   gene2
 66.206057   gene3
-277.303125  gene4
 69.487904   gene5")

创建情节：

ggplot(df, aes(x=reorder(name, difference), y=difference, fill=difference)) +
  geom_bar(stat="identity") +
  scale_fill_gradient2(low="red", high="darkblue", midpoint=-50) +
  labs(x="\nGene", y="Difference\n") +
  theme_bw() +
  theme(axis.text.x=element_text(angle=45, vjust=0.5))

给出：