百分比条形图

Question

样本数据：

a <- data.frame()
a <- cbind(sample(1:4, 100,replace = T))
a <- cbind(a,sample(0:1, 100,replace = T))
colnames(a) <- c("Group","Event")

我想显示一个条形图，其中 X 轴是组，Y 轴是每个组中事件的百分比，组的 N 在 plot 本身的某处。 我也希望它按高度排序。

我似乎无法解决这个问题，有什么想法吗？

谢谢！

Answer 1

只是为了让你开始

a %>% 
    dplyr::as_tibble() %>%
    dplyr::group_by(Group) %>%
    dplyr::summarise(PCT=sum(Event)/dplyr::n(),
                     N=dplyr::n(),
                     LABEL=paste("N=",N)) %>%
    ggplot2::ggplot(ggplot2::aes(x=Group,y=PCT,label=LABEL)) + 
    ggplot2::geom_col() +
    ggplot2::geom_label()

a %>% 
    dplyr::as_tibble() %>%
    dplyr::mutate(Event=as.factor(Event)) %>%
    ggplot2::ggplot(ggplot2::aes(x=Group,fill=Event)) + 
    ggplot2::geom_bar(position="fill")