複数の変数を使用するggplot2 facet_wrapの独立したストリップテーマ

Question

ggplot2で使用される各変数に独立したストリップテーマを設定できますかfacet_wrap？

は、一例として、このコードの塊を取る：

p1 <- ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), labeller = "label_both") 
plot(p1) 

を私は別のテーマで上位ストリップ（ 'CYL'）を持っているしたいと思う - 太字で、言います。さらに、私は、 'drv'をイタリックで、異なるフォントタイプとサイズにしたいと思うかもしれません。どうすればいい？

p1 <- p1 + theme(strip.text.variable1 = element_text(face = 'bold'), 
        strip.text.variable2 = element_text(face = 'italic', size = 8) 
       ) 

残念ながら、私はドキュメントまたは前の質問では、このようなものを見つけることができませんでした：

私はのラインで何かを考えていました。

乾杯

編集：私は地域社会へのさらなる助けになるために、一般的な、もう少し質問をしました。

Answer 1

太字のラベルを返すために、label_bothに基づいて新しい関数を作成する必要があるはずですが、これまでのところ私の試みは恐ろしいError in variable[[i]] : subscript out of boundsで終了しました。

これに代わる方法は、必要なラベルを作成する関数を作成することです。これはthis answerによく似ています。この関数では、接頭辞を変数の値に追加して太字にします。

make_labels = function(string, prefix = "cyl: ") { 
    x = paste0(prefix, as.character(string)) 
    do.call(expression, lapply(x, function(y) bquote(bold(.(y))))) 
} 

今facet_wrapに "CYL" 変数に対してas_labeller以内に、この関数を使用します。 as_labellerからlabel_parsedまでのデフォルトラベラーを変更して、式が正しく解析されるようにしたいとします。他の変数にはlabel_bothを使用してください。

ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), 
       labeller = labeller(cyl = as_labeller(make_labels, default = label_parsed), 
            drv = label_both))