将列 % 频率添加到 R 中的堆积条形图中

Question

我想知道是否有一个简单的解决方案 - 我是 SAS 用户并且在 R 中很难解决这个问题，但是我需要使用 ZE1E1D3D40573127E9EE0480CAF123 来完成任务。

因此，我按种族创建了 PCR 测试结果（阳性或阴性）的条形图。 基本上，我想将 % 频率添加到每一列，以表明阳性与阴性 covid 病例的分布在种族方面非常相似（计数不太清楚）。 这是我的代码：

 p<-ggplot(data=Data, mapping=aes(x=race, fill=pcr))
    p+geom_bar()

这是我的图表的图像。

我只想要那里某处的％频率。 或者，理想情况下，我希望 y 轴是 % 而不是 count？ 我觉得这应该是一个非常简单的请求，但我无法在任何地方找到简单的解释。 谢谢你们！

数据摘要：record_id 站点年龄
长度：1000 图森：612 分钟。 :21.0
Class1：标记为 Phoenix：388 1st Qu.：29.0
Class2：字符中位数：37.0
模式：字符平均值：38.4
第三曲：45.0
最大限度。 :90.0

                                    race    

美洲印第安人或阿拉斯加原住民：190
亚洲人：207
黑人或非裔美国人：403
夏威夷原住民或其他太平洋岛民：0
白色：200

                                ethnicity       sex      occupation 

西班牙裔或拉丁裔或西班牙裔：477 女性：476 FR-C：175
非西班牙裔、拉丁裔或西班牙裔：523 男性：499 FR-F：132
其他：25 FR-L:130
HCP-A:154
HCP-I:148
HCP-N:129
其他：132
pcr form_1_complete 否定：792 不完整：0
正面：208 未验证：1000
完成：0

Answer 1

没有数据很难做到这一点，但试试这个：

ggplot(Data, aes(x=race, fill = pcr, group =pcr)) + geom_bar(aes(y=freq), stat="identity", position = "dodge")