ggplot在facet_wrap中重命名facet标签

我写了一个ggplot函数时遇到了绊脚石.我正在尝试更改ggplot facet_wrap图中的facet标签....但它证明比我更棘手但是它会......

我可以在这里访问我正在使用的数据

str(ggdata)
'data.frame':   72 obs. of  8 variables:
 $ Season : Factor w/ 3 levels "Autumn","Spring",..: 2 2 2 2 2 2 2 2 2 2 ...
 $ Site   : Factor w/ 27 levels "Afon Cadnant",..: 13 13 13 13 13 13 13 13 13 13 ...
 $ Isotope: Factor w/ 4 levels "14CAA","14CGlu",..: 1 1 1 1 1 1 2 2 2 2 ...
 $ Time   : int  0 2 5 24 48 72 0 2 5 24 ...
 $ n      : int  3 3 3 3 3 3 3 3 3 3 ...
 $ mean   : num  100 88.4 80.7 40.5 27.6 ...
 $ sd     : num  0 1.74 2.85 2.58 2.55 ...
 $ se     : num  0 1 1.65 1.49 1.47 ...

我编写了以下函数来创建ggplot,它使用Isotope因子级别来标注facet:

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) 
  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)}

导致这个可爱的图表:

哪个好,但我想现在改变facet标签...做了一些pogle周围谷歌我认为我可能能够使用该labeller函数作为参数传递给facet_wrap.经过一个令人沮丧的一小时后,我发现这只适用于facet_grid!!! ??? 所以,另一种方法是更改​​因子级别名称,所以给我我想要的构面标签::

 gdata$Isotope <- revalue(x = ggdata$Isotope, 
c("14CAA" = " 14C Amino Acids", "14CGlu" = "14C Glucose", 
  "14cGlu6P" = "14C Glucose-6-phosphate", "33P" = "33P Phosphate"))

这有效,但我现在遇到的问题是我希望标签中的数字是超级脚本的.谁能建议最好的方法来达到这个目的？谢谢

1> eipi10..：

---

将构面标签设置为适当的表达式,然后使用该labeller函数label_parsed确保它们正确显示.这是一个使用内置iris数据框的示例:

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)

您需要添加NULL之前^14*C或因为具有^初始字符而得到错误.*并~标记表达式每个部分的边界,具体取决于您是否需要或希望每个部分之间有空格.

在撰写本文时(2015年12月12日),您需要使用开发版本来ggplot2实现此目的facet_wrap.但是,这个功能可能会很快被纳入包的常规版本中.

---

使用"NULL"的巧妙技巧启用初始上标.但OP的问题是关于`facet_wrap`,而不是`facet_grid`.

---

我已更新使用`facet_wrap`,这也有效.我正在使用ggplot的开发版本(`ggplot2_1.0.1.9003`).也许它在最新的CRAN版本中不起作用？

---

如果您没有`devtools`软件包,请安装并加载它.然后`install_github("hadley/ggplot2")`.