I am trying to use italics for facet names in ggplot2.
(我正在尝试对ggplot2中的方面名称使用斜体。)
I am first ordering and renaming the facets. (我首先要订购和重命名构面。)
I have come across a potential solution , but this requires labeller=label_parsed
and I am using labeller=name_labeller
to rename my facets. (我遇到了一个潜在的解决方案 ,但这需要labeller=label_parsed
并且我正在使用labeller=label_parsed
labeller=name_labeller
重命名我的构面。)
In the following example, I would like the facet names "one" "two" "three" "four" and "five" to be italicized.
(在下面的示例中,我希望将构面名称“一个”,“两个”,“三个”,“四个”和“五个”斜体化。)
Here is an example dataframe: (这是一个示例数据框:)
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))
and the code to produce the plot is
(产生剧情的代码是)
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)
The following code appears to give italics attributes to the list names
(以下代码似乎为列表names
赋予了斜体属性)
levels(names) <- c("italic('one')", "italic('two')", "italic('three')", "italic('four')", "italic('five')")
but I can't quite figure out how to make this work with facet_grid()
.
(但是我不太想知道如何使用facet_grid()
来完成这项工作。)
Does anyone know how I can do this? (有人知道我该怎么做吗?)
ask by Thomas translate from so