如何操作facet_grid图的条带文本？

Question

我想知道如何操纵分面图中条带文本的大小。我的问题 类似于 关于情节标题的问题，但我特别关心 操作的不是绘图标题，而是出现在分面标题 (strip_h) 中的文本。

例如，考虑 mpg 数据集。

    library(ggplot2) 
    qplot(hwy, cty, data = mpg) + facet_grid( . ~ manufacturer)

生成的输出会生成一些不适合条带的分面标题。

我想一定有一种方法可以使用grid来处理条带文本。但我是 还是个新手，从 Hadley 的 grid 附录中不确定预订如何， 准确地说，就是去做。

Answer 1

您可以使用theme_text()修改strip.text.x（或strip.text.y），例如

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      opts(strip.text.x = theme_text(size = 8, colour = "red", angle = 90))

更新：< /strong> ggplot2 版本 > 0.9.1

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      theme(strip.text.x = element_text(size = 8, colour = "red", angle = 90))

Answer 2

如今，opts 和 theme_text 的使用似乎已被弃用。 R 建议使用 theme 和 element_text。可以在这里找到答案的解决方案： http:// /wiki.stdout.org/rcookbook/Graphs/Facets%20%28ggplot2%29/#modifying-facet-label-text

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      theme(strip.text.x = element_text(size = 8, colour = "red", angle = 90))

Answer 3

我想在 mpg 的示例中，更改旋转角度和字体大小很好，但在许多情况下，您可能会发现自己的变量具有相当长的标签，这可能会成为一个令人头疼的问题（从字面上看）尝试读取旋转的冗长标签。

因此，除了（或补充）改变角度和大小之外，我通常会重新格式化定义facet_grid的因素的标签，只要它们可以以有意义的方式分割。

通常，如果我有一个带有字符串的 dataset$variable ，看起来就像

c("median_something", "aggregated_average_x","error","something_else")

我所做的那样：

reformat <– function(x,lab="\n"){ sapply(x, function(c){ paste(unlist(strsplit(as.character(c) , split="_")),collapse=lab) }) }

[也许有更好的 reformat 定义，但至少这个可以正常工作。

dataset$variable <- factor(dataset$variable, labels=reformat(dataset$variable, lab='\n')

]分面，所有标签都将非常可读：

ggplot(data=dataset, aes(x,y)) + geom_point() + facet_grid(. ~ variable)