在下面的图表中,标记了每个单独的小平面,并且左侧有一个单独的标签用于Y轴。我想制作标签" Metrics"显示在构面标签的顶部,作为连接所有单个标签的单个标签。我知道像label_both
这样的事情,但这并没有解决这个问题。
代码:
library(ggplot2)
library(tidyr)
library(dplyr)
df <- read.csv('Lab3.csv')
df$SVO <- factor(df$SVO,
levels=c("S","V","O"))
long.df <- df %>% gather(Metric, Value, Duration:Intensity)
ggplot(long.df, aes(x=Focus, y=Value)) +
geom_boxplot(aes(color=Focus)) +
facet_grid(Metric ~ SVO, scales='free_y') +
labs(y="Metrics")