r中带有ggplot的相对条形图

Question

我正在尝试获取一个数据框并使用ggplot对其进行绘制，如下所示：

library(ggplot2)
success<-sample(1:10,30,replace=TRUE)
animal<-rep(c("cat","dog","bird"),each=10)
trick<-sample(letters[1:10],30,replace=TRUE)

data.plot<-data.frame(success,animal,trick)

ggplot(data.plot,aes(y=success,x=trick,fill=animal))+geom_bar(stat="identity") + theme(axis.text.x = element_text(angle=90))

尽管每个小节（0-100％），我都试图使缩放比例相对。这意味着每个条形图的高度相同（100％），但是颜色被划分为它们的权重在图形上每个条形图所有观测值的总和中的相对比例。

任何想法如何做到这一点？

Answer 1

喜欢吗？

library(dplyr)
data.plot2 <- data.plot %.% 
  group_by(trick) %.%
  mutate(success_rel = success / sum(success) * 100)
ggplot(data.plot2,aes(y=success_rel,x=trick,fill=animal))+geom_bar(stat="identity") + theme(axis.text.x = element_text(angle=90))