R 如何在向堆叠条形图添加统计信息后删除额外图例？

我想为轴上的变量创建具有绝对值的堆叠条形图，但在每个条形图上添加百分比。以下是我的数据：

BAM  Mapping    Reads   fraction
bam1   Mapped 22493091 0.88940452
bam1 Unmapped  2796966 0.11059548
bam2   Mapped 27018375 0.88256156
bam3 Unmapped  3595212 0.11743844
bam3   Mapped 27238774 0.89441821
bam4 Unmapped  3215407 0.10558179
bam4   Mapped 19791746 0.82984107
bam4 Unmapped  4058298 0.17015893
bam5   Mapped 23298155 0.83144569
bam5 Unmapped  4723104 0.16855431
bam6   Mapped 22563538 0.83990722
bam6 Unmapped  4300784 0.16009278
bam7   Mapped 23940480 0.88134856
bam7 Unmapped  3222984 0.11865144

我就快到了（不用管x标签了——我在这里用的是长名字）：

---

gp这个虚假的传说之所以出现，是因为你在
aes
中放入了所有不需要的东西。试试这个：

ggplot(data=to_graph, aes(x=BAM, y=Reads, fill=Mapping)) +
     geom_bar(stat="identity",position = "stack") + 
    geom_text(aes(label=paste(round(fraction*100),"%", sep="")),size = 3,vjust=0,position="stack")

一般来说，当您将美学映射到数据中的变量时，事情会进入aes。如果您只是设置它（即
size=3
），它超出了
aes
。在
aes
中放置的任何东西通常都会导致ggplot试图为这种审美创造传奇

我想我从未见过
position
映射到
aes
中，尝试用
I（）将
标签
参数的值包装起来
ggplot(data=to_graph, aes(x=BAM, y=Reads, fill=Mapping)) +
     geom_bar(stat="identity",position = "stack") + 
    geom_text(aes(label=paste(round(fraction*100),"%", sep="")),size = 3,vjust=0,position="stack")