R绘图坐标轴标签中的向下箭头

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 %

提供的错误提示是："Error：在“ 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²]"))

很抱歉，我遇到了一个错误：

错误：在以下位置出现意外的SPECIAL字符：

geom_point() + labs(x=expression("LW"[%down%]

请检查代码并修复此错误。

- Birte

Answer 1

我想这就是您在寻找的内容：

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

编辑：

好的，这有点像一个技巧，但是它有效。在plotmath文档中，可以看到% down%像运算符一样工作，因此需要在之前和之后使用两个字符串。这两个空字符串用于此：

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

- tyumru

---

嘿tyumuru，是的，那差不多就是了。我希望箭头成为下标。不幸的是，使用labs（x = expression（“LW” [％down％]“[W / m²]”）时，我会收到错误消息：“在中出现意外的SPECIAL：” geom_point（）+ labs（x = expression（“LW” [％down％]“ - Birte

Answer 2

从help('plotmath')中，您可以使用group('[',w / m^2, ']')将单位放入分隔符中。

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression(LW %down% group("[", w/m^2, "]")))

如果您需要可缩放的定界符，则使用bgroup

ggplot(data = data, aes(x=x, y=y))+
  geom_point()+
  labs(x=expression(LW %down% bgroup("[", over(w, m^2), "]")))

- mnel