Легендарные надписи с нижним индексом - внутри функции разделенного круга - PullRequest
Новая
       20

Легендарные надписи с нижним индексом - внутри функции разделенного круга

0 голосов
/ 26 сентября 2019

Я строю несколько переменных, используя функцию разделенного круга (причина, по которой я использую это вместо facet_grid, заключается в том, что я хочу конкретные легенды для каждого графика).Я вызываю ярлыки легенды из справочной таблицы.

Проблема в том, что подписки не будут печататься на ярлыках легенды.

Я попытался изменить код в таблице поиска, а также в функции plot.Я обнаружил много похожих проблем, но ни одна из них не использует функцию разделения на лапы

Я сделал воспроизводимый пример: 

time <- seq(2000, 2099, by= 1)
value <- runif(100, 5.0, 7.5)
method <- sample(x = 1:3, 100, replace = T)
data <-data.frame(time, value, method)


legend_labeller <- function(method){
  labels <- c(  as.expression(bquote('kg m'^'-3')),
                as.expression(bquote('kg m'^'-4')),
                as.expression(bquote('kg m'^'-2')))
  return(paste(labels[method]))
}

ggList <- lapply(split(data, data$method), function(i) {
 ggplot(i)+
    geom_line(aes(x= time, y = -as.numeric(value), colour = as.factor(method)), size=0.7)+
    labs(colour =  legend_labeller(as.character(i$method[1])))
})
plot_grid(plotlist = ggList, ncol = 1,align = 'v')
...