2017-05-31 68 views
0

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

enter image description here

数据(熔化):

enter image description here

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") 
+1

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

回答

1

我想你会想用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")