Я пытаюсь создать сценарий, который будет строить по одному графику из каждого столбца моего набора данных, используя ggplot. Я хотел бы, чтобы метки y динамически извлекались из отдельного фрейма данных, поэтому я не могу создать их вручную для каждого графика вручную . Пока все просто.
В то же время (и именно здесь возникает проблема) метки оси y должны включать верхние индексы - например, «x10 ^ 9 / l », где« 9 »является единственным верхним индексом. Я попытался использовать parse (), но ничего не вышло, сказав, что «/» является неожиданным.
По сути, основной сценарий выглядит так: исходные данные находятся во фрейме данных «data» и y метки осей находятся в фрейме данных "labels", все это заключено в for () l oop итерация по столбцам "data" путем увеличения "i":
ggplot(data, aes_string(x = colnames(data)[k], y = colnames(data)[i], color = "Category", group = "Patient")) +
ggtitle(labels[which(labels$name==colnames(data)[i]),]$nice_name) +
ylab(label = parse(text=labels[which(labels$name==colnames(data)[i]),]$label))
Большое спасибо за вашу помощь!