r - R-plot 轴标签中的向下箭头

Question

我在 Latex 中有一个名为 \LW$_\downarrow$ 的变量。可以想象，我想使用与轴标签相同的短语并添加单位 [W/m²] 或 [W m^-2]

我设法做到了:

library(ggplot2)
data <- data.frame(x=c(1:5), y=c(2:6))
ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression(LW%down%. ))

但是

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression(LW%down% )) #no point behind the second %

给出“错误:

unexpected ')' in: " geom_point()+ labs(x=expression(LW%down% )"

和

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=paste(expression(LW%down%. ), "[W/m²]"))

给出这个:with %down% as word

不幸的是不是很有帮助。

我希望有人能提供帮助。我有很多情节，所以我希望有人用 inkscape 手动编辑听起来不是一个好选择。

---

tyumru 给了我一个关于正确方向的好提示

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression("LW"%down%"[W/m²]"))

当我尝试将箭头放在下标中时

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression("LW"[%down%]"[W/m²]"))

不幸的是我得到了

错误:意外的特别之处:"geom_point()+ labs(x=expression("LW"[%down%"

Answer 1

我想这就是您要找的:

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression("LW"%down%"[W/m²]"))

编辑:

好吧，这是一种 hack，但它确实有效。在 plotmath 的文档中您可以看到 %down% 的工作方式类似于运算符，因此它前后需要两个字符串。两个 empy 字符串用于此:

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression(paste(LW[""%down%""]," [W/m²]")))