Я бы хотел, чтобы ось Y была масштабирована до процента.x, а не процента.y. Однако, когда я это делаю, масштаб неверен.
"PID","severity","percentage.x","sideEffectScore","n","percentage.y"
189,"moderate",40,"1",25,69.44
189,"moderate",40,"2",5,13.89
189,"moderate",40,"3",5,13.89
189,"moderate",40,"4",1,2.78
189,"severe",26.67,"1",8,33.33
189,"severe",26.67,"2",9,37.5
189,"severe",26.67,"3",7,29.17
189,"transient",33.33,"1",12,40
189,"transient",33.33,"2",8,26.67
189,"transient",33.33,"3",8,26.67
189,"transient",33.33,"4",2,6.67
library(ggplot2)
df <- read.csv("testing.csv",
header = T)
ggplot(testing, aes(severity, percentage.y)) +
geom_bar(aes(fill = sideEffectScore), stat="identity")
ось y с процентом.y суммируется до 100%. 
Тем не менее, процент.x не дает в сумме 100%, но «должен», а суммирование неверно. 
