Как я могу добавить верхние индексы к меткам ggplot без функции выражения? - PullRequest
Новая
       16

Как я могу добавить верхние индексы к меткам ggplot без функции выражения?

0 голосов
/ 05 ноября 2019

Пожалуйста, смотрите код ниже.

Я хотел бы добавить надстрочные индексы к моей оси y, чтобы мой "y.units.vec.time" добавил верхний индекс к любому выбору, выбранному пользователем из менюопций.

Из того, что я понимаю, я не могу правильно использовать expression () вне ggplot (). Есть ли способ добавить верхние индексы в меню выбора в "y.units.vec.time"?

Если я использую выражение () в ylab (), мой ввод (plot.y.label)будет читаться буквально и размещаться на оси Y. 

  y.units.vec.conc <- c("M","mM","μM", "nM")
      y.units.vec.time <- c("sec","min","hr", "day")

      y.index.units.1 <- menu(y.units.vec.conc, graphics = FALSE, title = "y-axis: What are the units of concentration?")
      y.index.units.2 <- menu(y.units.vec.time, graphics = FALSE, title = "y-axis: What are the units of time?")

      plot.y.label <- paste("Reaction Rate", y.units.vec.conc[y.index.units.1], y.units.vec.time[y.index.units.2], sep = " ")



      p_sat_curve_1 <- ggplot(data = d_sat_2, mapping = aes(x = sub.conc, y = slope.m)) +
        geom_point(size = 1.5) +
        theme_bw() +
        xlab(plot.x.label) +
        ylab(plot.y.label)
...