R generate label with whitespaces

user_5578293 0
Viewed 36

I try to generate a label with superscript and therefore using parse. I seem to cannot use whitespaces, this works:

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

but this is not working:

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

giving me the following error:

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

Change the space character by adding ~

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

-output

enter image description here

Or use gsub for dynamic replacement

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

plotmath doesn't need parse, the rigth ways are with expression (below) or bquote.

library(ggplot2)


ggplot(dat, aes(GTVol, measuredVol)) + 
  geom_point() + 
  geom_abline(slope = 1) +
  xlab(expression(Harvested ~ Volume ~ (m^3))) + 
  ylab(expression(QSM ~ Volume ~ (m^3)))

enter image description here

user_82454060
Related