ggplot2构面标签中的双重不等式答案

【问题标题】：Double inequality in ggplot2 facet labelggplot2构面标签中的双重不等式
【发布时间】：2016-08-24 16:27:05
【问题描述】：

如何将双重不等式放入 ggplot2 中的构面标签中？

#Fake some data
  x = seq(1,100,length.out=100)

#Relationship with beta for model y = a*x^b
  alpha = 0.5
  beta1 = -0.1
  beta2 = 0.01
  beta3 = 3

#Fitted values
  y1 = alpha*x^beta1
  y2 = alpha*x^beta2
  y3 = alpha*x^beta3

#Create a data frame
  df = data.frame(x=rep(x,3),y=c(y1,y2,y3),type=rep(c('beta < 0','0 < beta < 1','beta > 1'),each=100))

#Ggplot it up
  ggplot(data=df,aes(x=x,y=y)) + geom_line() + facet_wrap(~type,labeller=label_parsed,scales='free_y')

但是，这失败了，我收到以下错误

Error in parse(text = as.character(values)) : 
  <text>:1:9: unexpected input
1: 0 < beta

如何解决这个问题？

【问题讨论】：

你可以使用labeller=label_value

标签： r ggplot2

【解决方案1】：

您可以在第一部分用双引号将标签拆分为星号，就像在this answer 中一样。

有问题的标签看起来像：

'"0 < "*beta < 1'

为确保所有大于/小于符号看起来相同，请在制作标签时为所有非希腊符号使用引号和星号。

如果您希望结果按特定顺序排列，您可能需要订购因子type。

df = data.frame(x=rep(x,3),y=c(y1,y2,y3), 
             type=rep(c('beta*" < 0"','"0 < "*beta*" < 1"','beta*" > 1"'), each=100))

df$type = factor(df$type, levels = unique(df$type))

ggplot(data = df, aes(x = x,y = y)) + geom_line() + 
    facet_wrap(~type, labeller = label_parsed, scales = 'free_y')

【讨论】：