ggplot在轴标签上的度数符号之前插入空格

Question

我想在x轴上放一个度数符号,但结果有一个额外的空间,我似乎无法摆脱它.文本应为"温度(*C)",而不是"温度(*C)".我尝试了两种不同的解决方案,但似乎无法摆脱空间.

ggdat<-data.frame(x=rnorm(100),y=rnorm(100))

#neither of these approaches work
xlab <- expression(paste('Temperature (',~degree,'C)',sep=''))
xlab <- expression('Temperature ('*~degree*C*')')

ggplot(data=ggdat,aes(x=x,y=y)) +
  geom_point() +
  labs(x=xlab)

任何帮助表示赞赏!

本

Answer 1

使用expression()~ 符号时会产生一个空格，而 * 符号将东西粘在一起。见下面的代码：

ggdat<-data.frame(x=rnorm(100),y=rnorm(100))

ylab <- expression('stuck'*'together'*'eg:'*mu*'liter')
xlab <- expression('sep'~'par'~'at'~'ed'~'eg:'~mu~'liter')

ggplot(data=ggdat,aes(x=x,y=y)) +
  geom_point() +
  labs(x=xlab,
       y=ylab)

Answer 2

你需要你的xlabel作为表达吗？您可以尝试直接粘贴它.像这样的东西有效:

set.seed(1)
ggdat<-data.frame(x=rnorm(100),y=rnorm(100))

xlab <- "Temperature (°C)"

ggplot(data=ggdat,aes(x=x,y=y)) +
  geom_point() +
  labs(x=xlab)