・お題：先日、ggplotで棒グラフを作成した。X軸のラベルを二層にしたい場合があったので、やり方をメモしたい。基本的にはfacetを使う。 ・ライブラリを読み込み、データを作る。 > library(tidyverse)> set.seed(1) > TestComp. <- rep(c("Vehicle", "Comp…