索引による手動の棒グラフの作成

Question

4つのグループ（小節1 + 2、小節3 + 4など）があるプロットがありますが、データセットにこれが表示されていません。手動でスペースを追加したり、共有グループラベル（x軸）を追加したり、4つのグループを再分類するにはどうすればよいですか？

データ（溶融した）：

海流Ggplotコード：私はあなたがどんなで、グループを追加するmutate()を使用したいと思います

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

Answer 1

wayはあなたのデータに適しており、次に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")