使用facet_wrap
,是否可以只删除一些刻面标签?在以下示例中,我希望Species标签仅出现在每行的第一列中。我知道我可以使用labeller
函数,但不能使用如何更改单个标签。
data(iris)
library(tidyr)
library(ggplot2)
dat <- iris %>%
gather(var, val, Sepal.Length:Petal.Width)
ggplot(dat) +
geom_point(aes(x = 1, y = val)) +
facet_wrap(Species~var)
它并不完美,但我会发布这个希望仍然比没有好。
使用as_labeller()
和labeller()
可以满足您的需求。
更新
最简单的解决方案是将Species
和var
分成两个labellers
函数。
facet_labeller_top <- function(variable, value) {
c(
"Setosa",
"",
"",
"",
"Versicolor",
"",
"",
"",
"Virginica",
"",
"",
""
)
}
facet_labeller_bottom <- function(variable, value) {
c(
"Petal.Length",
"Petal.Width",
"Sepal.Length",
"Sepal.Width",
"Petal.Length",
"Petal.Width",
"Sepal.Length",
"Sepal.Width",
"Petal.Length",
"Petal.Width",
"Sepal.Length",
"Sepal.Width"
)
}
结果:
ggplot(dat) +
geom_point(aes(x = 1, y = val)) +
facet_wrap(Species~var, labeller = labeller(Species=as_labeller(facet_labeller_top),
var = as_labeller(facet_labeller_bottom)))