R ggplot2上具有特定颜色的渐变

我正在尝试制作一个条形图，其中条形图的渐变颜色为“dodgerblue4”。 我试着使用比例、颜色、梯度，但没用。我希望最高值为“dodgerblue4”，并使颜色褪色，是否可能？非常感谢。 我现在的代码是：

Fields<-c("Oceanography","Meteorology \n atmospheric \n Science",
          "Physical sciences \n other topics","Environmental \n sciences \n ecology",
          "Geography","Marine \n freshwater \n biology","Mathematics","Geology",
          "Zoology", "Geochemestry \n and Geophysics")
n_art<-c(3178,3166,2919,1975,1963,1900,1027,1015,892,840)
n_field<-c(1,2,3,4,5,6,7,8,9,10)
df_wos<- data.frame(n_art,Fields,n_field)
df_wos$Fields<-factor(df_wos$Fields,
                      levels = df_wos$Fields[order(df_wos$n_art,decreasing = TRUE)])

ggplot(df_wos) +
   aes(x = Fields, weight = n_art) +
   geom_bar(fill = "dodgerblue4")+
   scale_fill_hue() +
   labs(x=NULL, y = "Number of papers") +
   theme_bw()+
   theme(panel.border = element_blank(), panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

---

字段在这种情况下，有多种方法可以解释“梯度”

因为你说的是“淡入淡出”，所以你可以将一个条的y值映射到
alpha
alpha

库（ggplot2）
字段翻转数据、翻转名称、gg dep、已翻转aes、删除缺失、，
#>你应该停止，放弃吗
ggplot（df_wos）+
aes（x=字段，y=n_艺术）+
几何图形(
颜色=NA，
fill=“dodgerblue4”，
pattern=“gradient”，
图案填充=“透明”
)+
比例\填充\色调（）+
实验室（x=NULL，y=论文数量）+
主题_bw（）+
主题（panel.border=element_blank（），
panel.grid.major=元素_blank（），
panel.grid.minor=元素_blank（），
轴线=元素线（颜色=“黑色”））


由（v1.0.0）于2021-03-01创建
非常感谢！