R 如何在ggplot2中设置轴标签的格式

我正在尝试在ggplot2中格式化轴标签，使其包含两条线和上标。我想要这样的标签：“线性延伸（g cm2 day-1）+/-SEM”，第二行是“（g cm2day-1）+/-SEM”，上标“2”和“-1”。我的图形代码如下所示：

    ggplot(data = MGrowth03,
       aes(x = T03,
           y = LE03,
           group = FragSite.x,
           color = FragSite.x)) +
  geom_point() +
  geom_smooth(method = "lm",
              formula = y ~ x,
              se = FALSE,
              fullrange = TRUE) +
  scale_color_manual(values = c("Inner Bay" = "coral2",
                                "Outer Bay" = "skyblue4")) +
  theme(
    aspect.ratio = 1,
    axis.text = element_text(size = 8),
    axis.title = element_text(size = 10),
    plot.title = element_text(hjust = 0.5, size = 9, face = "italic"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_blank(),
    panel.border = element_blank(),
    axis.line = element_line(colour ="black"),
    legend.position = "none") +
  labs(y = expression(atop("Linear Extension", paste((cm/day^-1)))),
       x = expression(atop("Calcification", paste((g / cm ^ 2 / day ^ -1)))),
       title = "Montipora capitata")

数据子集如下所示：

structure(
  list(
    FragID = c("1402", "201", "230", "233", "261",
               "273", "3201", "3205", "390"),
    LE03 = c(
      0.00218446601941748,
      0.0044,
      0.00306741573033708,
      0.00397752808988764,
      0.00927659574468085,
      0.00304166666666666,
      0.00859375,
      0.00174468085106383,
      0.00596808510638298),
    LE36 = c(NA, NA, 0.007, NA, NA, NA, NA, NA, NA),
    LE06 = c(NA, NA, 0.00497687861271676, NA, NA, NA, NA, NA, NA),
    ParentID.x = c("51", "169", "169", "169", "169", "169", "72", "72", "167"),
    ParentSite.x = c(
      "Outer Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay",
      "Inner Bay"),
    FragSite.x = c(
      "Inner Bay",
      "Inner Bay",
      "Outer Bay",
      "Outer Bay",
      "Inner Bay",
      "Outer Bay",
      "Outer Bay",
      "Inner Bay",
      "Inner Bay"),
    T03 = c(
      0.001539535,
      0.007990118,
      0.008881521,
      0.006396816,
      0.00878437,
      0.009986988,
      0.008023749,
      0.002895614,
      0.009830193),
    T36 = c(NA, NA, 0.016912401, 0, NA, 0, 0, NA, NA),
    T06 = c(NA, NA, 0.012780908, 0, NA, 0, 0, NA, NA)),
  .Names = c(
    "FragID",
    "LE03",
    "LE36",
    "LE06",
    "ParentID.x",
    "ParentSite.x",
    "FragSite.x",
    "T03",
    "T36",
    "T06"),
  class = "data.frame",
  row.names = c(101L, 241L, 315L, 322L, 385L, 415L, 544L,
                545L, 606L))

---

如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易为您提供帮助。如果您只想用空格替换斜杠，请尝试将

/

替换为

~

。上面已编辑为绘图的数据子集和我的代码。~无法解决该问题。希望这有帮助！似乎是很容易的解决办法。你做的一切都对。要打印±必须写入

%+-%

。只需更改您的

labs（…）

即可：

labs（y=bquote（顶部（“线性延伸”，“厘米/天”^-1%+-%SEM）），x=bquote（顶部（“钙化”，“g/cm”^2~“/天”^-1%+-%SEM）），title=“Montipora Capita”）

如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易为您提供帮助。如果您只想用空格替换斜杠，请尝试将

/

替换为

~

。上面已编辑为绘图的数据子集和我的代码。~无法解决该问题。希望这有帮助！似乎是很容易的解决办法。你做的一切都对。要打印±必须写入

%+-%

。只需更改您的

labs（…）

即可：

labs（y=bquote（顶部（“线性延伸”，“厘米/天”^-1%+-%SEM）），x=bquote（顶部（“钙化”，“g/cm”^2~“/天”^-1%+-%SEM）），title=“Montipora Capita”）