У меня есть датафреймd:

> head(d,20)
   groupchange Symscore3
1            4         1
2            4         2
3            4         1
4            4         2
5            5         0
6            5         0
7            5         0
8            4         0
9            2         2
10           5         0
11           5         0
12           5         1
13           5         0
14           4         1
15           5         1
16           1         0
17           4         0
18           1         1
19           5         0
20           4         0

Что я замышляю с:

ggplot(d, aes(groupchange, y=..count../sum(..count..),  fill=Symscore3)) +
  geom_bar(position = "dodge") 

Таким образом, каждый столбец представляет свой процент от всех данных.

Вместо этого я хотел бы, чтобы каждый столбец представлял относительный процент; то есть сумма бара в полученном сgroupchange = k должно быть1.