问题描述
我正在尝试将expression()应用于列表的一部分,以便以ug / m3的形式为3加上上标,以便更改图上的标签:
new_labels <- c("CO" = "Carbon Monoxide (ppb)","NO" = "Nitric Oxide (ppb)","NO2" = "nitrogen dioxide (ppb)","NOX" = "nitrogen Oxides (ppb)","O3" = "Ground-Level Ozone (ppb)","SO2" = "Sulphur dioxide (ppb)","PM" = expression("Fine Particulate Matter(ug/"~m^3~")"))
但是它会自动将expression()应用于整个列表,而不仅仅是括号内的脚本,并为我提供:
> new_labels
expression(CO = "Carbon Monoxide (ppb)",NO = "Nitric Oxide (ppb)",NO2 = "nitrogen dioxide (ppb)",NOX = "nitrogen Oxides (ppb)",O3 = "Ground-Level Ozone (ppb)",SO2 = "Sulphur dioxide (ppb)",PM = "Fine Particulate Matter(ug/" ~ m^3 ~ ")"))
我想要的输出是:
> print(as.data.frame(new_labels))
new_labels
CO Carbon Monoxide (ppb)
NO Nitric Oxide (ppb)
NO2 nitrogen dioxide (ppb)
NOX nitrogen Oxides (ppb)
O3 Ground-Level Ozone (ppb)
SO2 Sulphur dioxide (ppb)
PM Fine Particulate Matter(ug/m^3)
以3作为上标。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)