我使用了以下ggplot命令:
ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10)
+ scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2))
+ facet_grid(hospital ~ .)
+ theme(panel.background = theme_blank())
生产
然而，我想将facet标签更改为更短的内容(如Hosp 1, Hosp 2…)，因为它们现在太长了，看起来很局促(增加图形的高度不是一个选项，它将占用文档中的太多空间)。我查看了facet_grid帮助页面，但不知道如何操作。
当前回答
这对我很有用。
定义一个因素:
hospitals.factor<- factor( c("H0","H1","H2") )
在ggplot()中使用:
facet_grid( hospitals.factor[hospital] ~ . )
其他回答
下面是我如何使用2.2.1版本的ggplot2使用facet_grid(yfacet~xfacet):
facet_grid(
yfacet~xfacet,
labeller = labeller(
yfacet = c(`0` = "an y label", `1` = "another y label"),
xfacet = c(`10` = "an x label", `20` = "another x label")
)
)
请注意，这里不包含对as_labeller()的调用——这一点我曾纠结过一段时间。
这种方法的灵感来自帮助页面上的最后一个示例强制到标签器函数。
由于我还不被允许评论帖子，所以我单独发布了这篇文章，作为Vince和son520804的答案的补充。功劳归于他们。
Son520804: 使用虹膜数据: 我认为: 您已经安装了dplyr包，其中有方便的mutate命令 您的数据集名为survey。 调查%>%突变(Hosp1 = Hospital1, Hosp2 = Hospital2，........) 此命令帮助您重命名列，但保留所有其他列。 然后执行同样的facet_wrap，现在就没问题了。
使用Vince的虹膜示例和son520804的部分代码，我使用mutate函数做到了这一点，并在不接触原始数据集的情况下实现了一个简单的解决方案。 诀窍是创建一个替代名称向量，并在管道中使用mutate()临时更正facet名称:
i <- iris
levels(i$Species)
[1] "setosa" "versicolor" "virginica"
new_names <- c(
rep("Bristle-pointed iris", 50),
rep("Poison flag iris",50),
rep("Virginia iris", 50))
i %>% mutate(Species=new_names) %>%
ggplot(aes(Petal.Length))+
stat_bin()+
facet_grid(Species ~ .)
在这个例子中，你可以看到i$Species的级别被临时更改为包含在new_names向量中的对应的公共名称。包含
mutate(Species=new_names) %>%
可以很容易地去掉，露出原来的命名。
警告:如果new_name向量没有正确设置，这可能很容易在名称中引入错误。使用一个单独的函数来替换变量字符串可能会更简洁。请记住，new_name向量可能需要以不同的方式重复，以匹配原始数据集的顺序。请再三检查这是否正确实现。
我现在解决这个问题的方法是使用dplyr::case_when在facet_grid或facet_wrap函数中生成一个标签器。这是@lillemets提出的解决方案的扩展
ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10)
+ scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2))
+ facet_grid(case_when(hospital == "Hospital #1" ~ "Hosp1",
hospital == "Hospital #2" ~ "Hosp2") ~ .)
+ theme(panel.background = theme_blank())
如果您有第二个facet标签要更改，那么只需在facet_grid中的~的另一侧使用相同的方法即可
从米沙巴利亚辛来的一条航线 ：
facet_grid(。~vs, labeller = purrr::partial(label_both, sep = " #"))
看看它的实际应用
library(reprex)
library(tidyverse)
mtcars %>%
ggplot(aes(x="", y=gear,fill=factor(gear), group=am)) +
geom_bar(stat="identity", width=1) +
coord_polar("y", start=0) +
facet_grid(.~vs, labeller = purrr::partial(label_both, sep = " #"))
由reprex包于2021-07-09创建(v2.0.0)
用变量，值作为参数的标签函数定义不适合我。另外，如果你想使用表达式，你需要使用lapply，而不能简单地使用arr[val]，因为函数的参数是data.frame。
这段代码确实有效:
libary(latex2exp)
library(ggplot2)
arr <- list('virginica'=TeX("x_1"), "versicolor"=TeX("x_2"), "setosa"=TeX("x_3"))
mylabel <- function(val) { return(lapply(val, function(x) arr[x])) }
ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) + geom_line() + facet_wrap(~Species, labeller=mylabel)
