如何在ggplot2中使用斜体字来标记facet标签？

Question

我正在尝试在ggplot2中使用斜体来表示分面名称。我首先对分面进行排序和重命名。我遇到了一个潜在的解决方案，但这需要labeller=label_parsed，而我正在使用labeller=name_labeller来重命名我的分面。

在下面的示例中，我希望将分面名称“one”“two”“three”“four”和“five”设置为斜体。以下是一个示例数据框：

structure(list(Names = c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 
5L, 6L, 6L, 7L, 7L, 8L, 8L, 9L, 9L, 10L, 10L), Other = c(5L, 
3L, 2L, 6L, 5L, 4L, 5L, 4L, 5L, 3L, 2L, 6L, 5L, 4L, 5L, 4L, 4L, 
5L, 3L, 2L), X = c(0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 
0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L), Y = c(0L, 10L, 
0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 0L, 10L, 
0L, 10L, 0L, 10L)), .Names = c("Names", "Other", "X", "Y"), class = "data.frame", row.names = c(NA, 
-20L))

生成该图表的代码如下：

library(ggplot2)
library(grid)
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)



facets <- c("1", "2", "3", "4", "5")

names <- list(
  '1'="one",
  '2'="two",
  '3'="three",
  '4'="four",
  '5'="five"
)

name_labeller <- function(variable,value){
  return(names[value])
}

ggplot(FacetTestData[FacetTestData$Names %in% facets,], aes(y = Y, x = X, group = Names)) + 
  geom_point(shape = 21, size=3) + 
  scale_fill_manual(values=c("gray90","gray40")) + 
  geom_smooth(method="lm", se= FALSE, size = 1) +
  scale_color_manual(values=c("black","black")) +
  geom_smooth(method = 'lm', size = 1, colour = 'red', se = FALSE)  +
  facet_grid(Names ~ ., labeller=name_labeller)

以下代码似乎给列表names添加了斜体属性。

levels(names) <- c("italic('one')", "italic('two')", "italic('three')", "italic('four')",    "italic('five')")

但是我不太确定如何与 facet_grid() 配合使用。有人知道我该怎么做吗？

- Thomas

Answer 1

以下类似的东西应该可行:

... + theme(strip.text = element_text(face = "italic"))

请参阅文档了解更多关于theme()的详细信息。

- krlmlr

---

有没有办法只给一个方面添加斜体，而不是所有的方面都添加斜体？ - Alcemir Santos

theme()适用于所有方面。我可以想到一个使用{tikzDevice}的复杂解决方案。 - krlmlr

Answer 2

你可以使用 krlmlr 的代码并进行修改，来分离轴图形。

... + theme(strip.text = ...   

to

... + theme(strip.text.x = ...    

或者

... + theme(strip.text.y = ...

- mcclur51e