如何显示y轴上的个人百分比,而不是按直方图按组计数?

我有一个像这样的数据框:

> head(a)
         FID   IID FLASER PLASER DIABDUR HBA1C ESRD   pheno
1 fam1000-03 G1000      1      1      38  10.2    1 control
2 fam1001-03 G1001      1      1      15   7.3    1 control
3 fam1003-03 G1003      1      2      17   7.0    1    case
4 fam1005-03 G1005      1      1      36   7.7    1 control
5 fam1009-03 G1009      1      1      23   7.6    1 control
6 fam1052-03 G1052      1      1      32   7.3    1 control

> dim(a)
 [1] 1698    8

我正在通过以下方式进行直方图绘制:

library(ggplot2)
ggplot(a, aes(x=HBA1C, fill=pheno)) + 
  geom_histogram(binwidth=.5,[![enter image description here][1]] [1]position="dodge")

在“现象”栏中有828位用户有“案例”,在836位用户中有 pheno列中的“ control”。

我想在y轴上显示的是 在现象中使用“ case”或“ control”而不是count。因此,将为y轴上的每个组(“案例”或“控件”)计算百分比,我的图也显示了NA,因此最好将其排除在图中。

> table(a$pheno, exclude = NULL)

   case control    <NA> 
    828     836      34 

我想我可以用以下方法从现象中删除NA:

ggplot(data=subset(a, !is.na(pheno)), aes(x=HBA1C, fill=pheno)) + geom_histogram(binwidth=.5, position="dodge")

enter image description here