我有这个 Dataframe ：

species.kreport <- read.csv(text = 'readsRooted, taxRank, sciName, percentage
9216, S, Fusarium falciforme, 23.05
1248, S,Fusarium fujikuroi, 10.56
1109, S, Botrytis cinerea, 12.69')

species.kreport
#>   readsRooted taxRank              sciName percentage
#> 1        9216       S  Fusarium falciforme      23.05
#> 2        1248       S   Fusarium fujikuroi      10.56
#> 3        1109       S     Botrytis cinerea      12.69

我尝试创建一个由sciName填充的条形图，显示每个sciName的百分比。
我试了这个代码：

library(ggplot2)
ggplot(species.kreport, aes(x = taxRank, y = percentage, fill = sciName)) +  
  geom_bar(position="stack", stat = 'identity')

我想有这样的情节：

我拥有的：

PS：我正在使用Rstudio！
提前感谢祝您有美好的一天！