解析并包装 R ggplot2 图中的离散 x 轴值标签

Question

我想解析和包装离散的 x 轴标签。如果我尝试包装解析后的标签，则输出是包装后的原始标签。

library(tidyverse)
data<-data.frame(term=rep(c("Silt~('%')", 
                            "Saturated~soil~water~content~(m^3/m^3)",
                            "Extreme~minimum~`30-year`~temperature~(degree*C)"),
                          each=100),
                 value=rnorm(300))

ggplot(data,aes(x=term,y=value))+
  geom_boxplot()+coord_flip()+
  xlab("Variable")+
  scale_x_discrete(labels = function(x) parse(text = x))+ 
  ylab("% Decrease MSE")+
  theme_classic()

ggplot(data,aes(x=term,y=value))+
  geom_boxplot()+coord_flip()+
  xlab("Variable")+
  scale_x_discrete(labels = function(x) parse(text = x)%>%str_wrap(width=20))+ 
  ylab("% Decrease MSE")+
  theme_classic()

Answer 1

这并非在所有情况下都有效，但在这种情况下，一种选择是用 Unicode 替换您需要的任何内容

plotmath

格式。然后您可以只使用

strwrap

，不需要

parse

。

data2 <- data.frame(
  term=rep(c("Silt (%)", 
             "Saturated soil water content (m³/m³)",
             "Extreme minimum 30-year temperature (°C)"),
           each=100),
  value=rnorm(300))