R 用glue：：glue粘贴改变构面中值的顺序

发布于04月06日

基于这个回复How to add greek letters to Facet_Grid strip labels?，我成功地创建了一个在刻面标签中使用希腊字母的ggplot.

然而，glue库改变了我的标签FacetX的顺序，我该如何处理它？

这是我问题的一个例子，我想要500-1000-5000，而不是1000-500-5000.

library(ggplot2)
library(glue)

df <- expand.grid(1:3, 1:3)
df$FacetX <- c(500,1000,5000)[df$Var1]
df$FacetY <- c(0.1, 1, 10)[df$Var2]

ggplot(df, aes(Var1, Var2)) +
  geom_point() +
  facet_grid(glue('sigma[E]^2*" = {FacetY}"') ~ glue("'p = {FacetX}'"), 
             labeller = label_parsed)

最好的

推荐答案

这与希腊字母无关，但glue::glue的使用会扰乱你的水平.(它根据增加的值分配级别顺序，此处为1<；5)

为了防止这种情况，可以使用forcats::fct_

library(ggplot2)
library(glue)

df <- expand.grid(1:3, 1:3)
df$FacetX <- c(500,1000,5000)[df$Var1]
df$FacetY <- c(0.1, 1, 10)[df$Var2]

ggplot(df, aes(Var1, Var2)) +
  geom_point() +
  facet_grid(glue('sigma[E]^2*" = {FacetY}"') ~ forcats::fct_inorder(glue("'p = {FacetX}'")), 
             labeller = label_parsed)