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))

相对条形图与r中的ggplot

1 个答案: