преобразовать ось y в проценты ggplot

Question

Я использовал сложную гистограмму (с координатором), чтобы попытаться сравнить распределения (это один из нескольких методов, с которыми я играю) для группы контроля и лечения для предварительного и пост-теста. Вот сюжет:

и вот код (К сожалению, это не воспроизводимое без какого-либо набора данных Если это проблема, которую я буду составлять воспроизводимый набор данных, так как я не могу поделиться. реальные данные):

m4 <- ggplot(data=v, aes(x=trt, fill=value)) 
m5 <- m4 + geom_bar() + coord_flip() + 
     facet_grid(time~type) + scale_fill_grey() 

Как изменить ось у (которая на самом деле на дне сборов в coord_flip) в процентах поэтому каждый бар равен по длине? Поэтому я хочу, чтобы счета стали процентами. Мне нужно какое-то преобразование, которое я ставлю, ggplot имеет или может быть легко создан и применен каким-то образом.

Answer 1

Вы, вероятно, просто хотите position_fill, установив,

+ geom_bar(position = "fill")