ggplot在facet_wrap中重命名facet标签-ggplotrenamingfacetlabelsinfacet_wrap

6  

Set the facet labels to the appropriate expressions, then use the labeller function label_parsed to ensure that they are displayed properly. Here's an example, using the built-in iris data frame:

将构面标签设置为适当的表达式，然后使用labeller函数label_parsed确保它们正确显示。这是一个例子，使用内置的虹膜数据帧：

data(iris)
iris$Species = as.character(iris$Species)
iris$Species[iris$Species == "virginica"] = "NULL^14*C~Amino~Acids"

ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point() +
  facet_wrap(~ Species, labeller=label_parsed)

You need to add the NULL before ^14*C or you'll get an error due to having ^ as the initial character. * and ~ mark the boundaries of each part of the expression, depending on whether you don't or do want a space between each part.

你需要在^ 14 * C之前添加NULL，否则你会因为^作为初始字符而得到错误。 *和〜标记表达式每个部分的边界，具体取决于您是否需要或者确实希望每个部分之间有空格。

As of this writing (Dec. 12, 2015), you need to use the development version of ggplot2 for this to work with facet_wrap. However, this feature will presumably soon be incorporated into a regular release of the package.

在撰写本文时（2015年12月12日），您需要使用ggplot2的开发版本才能使用facet_wrap。但是，这个功能很可能会很快被纳入包的常规版本中。

3  

Manage to sort it out! Had trouble installing the development version of ggplot but after installing curl and devtools and reinstalling scalesit worked. I tried @eipi10 answer but couldn't get that to work so I changed the factor label names in a different way:

管理以解决它！在安装ggp​​lot的开发版本但安装curl和devtools并重新安装scaleit之后遇到了麻烦。我试过@ eipi10的答案，但无法让它工作，所以我以不同的方式更改了因子标签名称：

ggdata$Isotope <- factor(ggdata$Isotope, labels = c("NULL^14*C~Amino~Acids", 
"NULL^14*C~Glucose", "NULL^14*C~Glucose-6-phosphate", "NULL^33*P~Phosphate"))

I then adjusted the ggplot function to pass labeller = label_parsed to the facet_wrap function:

然后我调整了ggplot函数，将labeller = label_parsed传递给facet_wrap函数：

plot_func <- function(T) {site_plots <- ggplot(data = T) + geom_point(aes(Time, mean, colour = Season, shape = Season)) + 
  geom_line(aes(Time, mean, colour = Season, linetype = Season)) +
  geom_errorbar(aes(Time, mean, ymax = (mean + se), ymin = (mean - se)), width = 2) +
  labs(title = T$Site[1], y = "Percentage of isotope remaining in solution", x = "Time (h)") +
  scale_x_continuous(breaks=c(0, 24, 48, 72)) +
  scale_y_continuous(limits=c(0,115), breaks = c(0,25,50,75,100)) +  
  theme(axis.title.y = element_text(vjust = 5)) +
  theme(axis.title.x = element_text(vjust = -5)) + theme(plot.title = element_text(vjust = -10)) +
  theme_bw() + facet_wrap(~Isotope, ncol =2, labeller = label_parsed) 
  print(site_plots)
  ggsave(plot = site_plots, filename = paste(T$Site[1], ".pdf"), 
     path = "C:/Users/afs61d/Dropbox/Academic/R/Practice datasets/Helens_data/Site_Isotope_Season_plots/", 
     width = 9, height = 7, dpi = 300)}

Passing the ggdata to the plot_func gives me the below graphs with the correct facet labels.

将ggdata传递给plot_func会给出下面带有正确facet标签的图表。