如何在x和y轴GGPLOT中创建包含标题的分面图

nev*_*int 0 plot r ggplot2

我的数据看起来像这样

    df <- data.frame(c("Cell1","Cell2","NK-Cell"),c("K","L","S","L","K","S","S","L","K"),abs(log2(abs(rnorm(180)))))    
colnames(df) <- c("ctype","tissue","exp")
Run Code Online (Sandbox Code Playgroud)

我正在尝试创建一个看起来像这样的情节. 在此输入图像描述

Did*_*rts 5

在这种情况下的一般想法是使用刻面来获得这种情节.

ggplot(df,aes(exp))+geom_density()+facet_grid(tissue~ctype)
Run Code Online (Sandbox Code Playgroud)

有两个空图,因为没有Cell2tissue S和没有NK-Celltissue L.

在此输入图像描述