手动分组Barplot索引

问题描述：

我有一个有4个组（条1 + 2，条3 + 4等）的情节，但在数据集中没有任何迹象表明。如何手动添加空间，添加共享组标签（x轴）并重新着色4组？手动分组Barplot索引

数据（熔化）：

CURENT Ggplot代码：

xdr<-melt(result) 

ggplot(
    aes(x = variable, y = value), data = xdr) + 
    stat_summary(fun.y = "mean", geom = "bar") + 
    coord_cartesian(ylim=c(0.6,0.85)) + 
    stat_summary(fun.y = mean, geom = "bar") + 
    stat_summary(fun.data = mean_se, geom = "errorbar")

“有一个在数据集中没有的这个指示”：你能添加一个？你知道这些组是什么。一旦将数据记录在数据中，则可以更容易地在一个阴谋中表示该分组。 – Marius

答

我想你会想用mutate()添加的基团中的任何方式适合你的数据，然后facet_wrap()使你所谈论的那种子图g左右。

library(tidyverse) 

df <- tribble(
    ~variable, ~value, 
    "baseline1", 0.730, 
    "baseline2", 0.521, 
    "baseline3", 0.762, 
    "baseline4", 0.655, 
    "baseline5", 0.604, 
    "baseline6", 0.710, 
    "baseline7", 0.528, 
    "baseline8", 0.172 
) 

df %>% 
    mutate(group = (row_number() + 1) %/% 2, 
     group = paste("Group", group)) %>% 
    ggplot(aes(variable, value, fill = group)) + 
    geom_col(show.legend = FALSE) + 
    facet_wrap(~group, nrow = 1, scales = "free_x")

手动分组Barplot索引

相关推荐