我有这样一份海妖报告（宏基因组学）：

df <- data.frame(readsRooted = c(9216, 1248, 1109),
                 taxRank = c("S", "S", "S"),
                 sciName = c("Fusarium falciforme", "Fusarium fujikuroi", "Botrytis cinerea"))

as_tibble(df)

# A tibble: 3 × 3
  readsRooted taxRank sciName            
        <dbl> <chr>   <chr>              
1        9216 S       Fusarium falciforme
2        1248 S       Fusarium fujikuroi 
3        1109 S       Botrytis cinerea

我想创建一个使用百分比readsRooted/all readsRooted填充sciName的条形图。有人能帮我吗？提前感谢。我尝试了以下方法：

ggplot(fam.kreport, aes(x = taxRank, fill = sciName)) + geom_bar()

但是它给出了一个result这样的图，填充了sciName，这是真的，但是条形图中每个sciName的颜色量与readsRooted的百分比无关。