R生成带有空格的标签

Question

我尝试使用上标生成标签，因此使用 解析 .我似乎不能使用空格，这是有效的:

GTVol <- 1:10
measuredVol <- 1:10
dat <- data.frame(GTVol, measuredVol)
ggplot(dat, aes(GTVol, measuredVol)) + 
  geom_point() + 
  geom_abline(slope=1) +
  xlab(parse(text='HarvestedVolume(m^3)')) + 
  ylab("QSM Volume (m^3)")

但这不起作用:

GTVol <- 1:10
measuredVol <- 1:10
dat <- data.frame(GTVol, measuredVol)
ggplot(dat, aes(GTVol, measuredVol)) + 
  geom_point() + 
  geom_abline(slope=1) +
  xlab(parse(text='Harvested Volume (m^3)')) + 
  ylab("QSM Volume (m^3)")

给我以下错误:

Error in parse(text = "Harvested Volume (m^3)") : 
  <text>:1:11: unexpected symbol
1: Harvested Volume

Answer 1

通过添加 ~ 更改空格字符

library(ggplot2)
ggplot(dat, aes(GTVol, measuredVol)) + 
  geom_point() + 
   geom_abline(slope=1) +
   xlab(parse(text='Harvested~Volume~(m^3)')) + 
   ylab("QSM Volume (m^3)")

-输出


或使用 gsub用于动态替换

  ...
   xlab(parse(text=gsub("\\s+", "~", 'Harvested Volume (m^3)'))) + 
   ...