サブプロット内のポイントに基づいてfacet_wrapプロットを再配置

Question

より良い方法でfacet_wrapプロットを再配置したいと思います。

library(ggplot2) 

set.seed(123) 
freq <- sample(1:10, 20, replace = T) 
labels <- sample(LETTERS, 20) 
value <- paste("i",1:13,sep='') 

lab <- rep(unlist(lapply(1:length(freq), function(x) rep(labels[x],freq[x]))),2) 
ival <- rep(unlist(lapply(1:length(freq), function(x) value[1:freq[x]])),2) 

df <- data.frame(lab, ival, type=c(rep('Type1',119),rep('Type2',119)),val=runif(238,0,1)) 


ggplot(df, aes(x=ival, y=val, col = type, group = type)) + 
    geom_line() + 
    geom_point(aes(x=ival, y=val)) + 
    facet_wrap(~lab, ncol=3) + 
    theme(axis.text.x=element_text(angle=45, vjust=0.3)) + 
    scale_x_discrete(limits=paste('i',1:13,sep='')) 

それは下記のプロットで結果：

その頻度に基づいてプロットを並べ替える方法はありますか？ labの周波数（またはタイプごとのポイント数）の中には、非常に低いものがあります（1-3）。私はfacet_wrapのプロットをレーベルオーダーではなく周波数に調整したいと思っています。 1つの利点は、プロット領域を縮小し、プロットからの直感性を高めることです。

オンザフライで計算された頻度値を使用して、facet_wrapに渡すことはできますか？または、それはdplyrアプローチを使用して個別に行われ、データを低/中/高頻度のプロットに分割する必要がありますか？

Answer 1

ここに1つのアイデアがあります。 dplyrを使用して各グループの番号をlabに、fct_reorderをforcatsに変更して要因レベルを並べ替えることができます。

library(dplyr) 
library(forcats) 

df2 <- df %>% 
    group_by(lab) %>% 
    mutate(N = n()) %>% 
    ungroup() %>% 
    mutate(lab = fct_reorder(lab, N)) 

ggplot(df2, aes(x=ival, y=val, col = type, group = type)) + 
    geom_line() + 
    geom_point(aes(x=ival, y=val)) + 
    facet_wrap(~lab, ncol=3) + 
    theme(axis.text.x=element_text(angle=45, vjust=0.3)) + 
    scale_x_discrete(limits=paste('i',1:13,sep='')) 

fct_reorderを使用しているときに因子レベルを逆にしたい場合は.desc = TRUEを設定します。