相关疑难解决方法(0)

我的数据框是

 df = read.table(text = "
id   year  type amount
1  1991  HIIT     22
2  1991 inter    144
3  1991  VIIT     98
4  1992  HIIT     20
5  1992 inter    136
6  1992  VIIT    108
7  1993  HIIT     20
8  1993 inter    120
9  1993  VIIT    124
10 1994  HIIT     26
11 1994 inter    118
12 1994  VIIT    120
13 1995  HIIT     23
14 1995 inter    101
15 1995  VIIT    140
16 1996  HIIT     27
17 1996 inter    103
18 1996 …

如何使用geom_text在每个栏顶部添加百分比标签ggplot2？我知道有几个类似的问题已经得到解答.但他们要么只使用1个分类变量,要么在绘图之前计算百分比.
我有以下情节:

ggplot(data = mtcars)+
  geom_bar(aes(x = factor(cyl), 
               y = (..count..)/sum(..count..)*100,
               fill = factor(gear)),
           position = "dodge")  

现在我想在顶部添加百分比标签.如果我使用y = (..count..)/sum(..count..)*100的geom_text,它说Error in eval(expr, envir, enclos) : object 'count' not found.