Это очень странная проблема, другие пользователи получили этот код для бесперебойной работы. Но это не работает для меня. Я не понимаю, возможно, проблема с версией пакетов. Я бегу R 3.4.4, Tidyverse 1.2.1 и Rlang 0.2.0
Код следующий:
library(tidyverse)
Q <- as_tibble(data.frame(series = rep(c("diax","diay"),3),
value = c(3.25,3.30,3.31,3.36,3.38,3.42),
year = c(2018,2018,2019,2019,2020,2020))) %>%
select(year, series, value) %>% spread(key = "series", value = "value") %>%
rename(`2018-01-01` = diax, `2017-01-01` = diay)
nomes <- c("2018-01-01","2017-01-01")
ggplot(Q, aes(x = year)) +
geom_line(aes(y = !!as.name(nomes[1])), col = "red", size = 2, linetype = "dotdash") +
geom_line(aes(y = !!as.name(nomes[2])), col = "orange", size = 2, linetype = "dashed")
Кроме того, он также должен работать следующим образом:
library(rlang)
library(tidyverse)
Q <- as_tibble(data.frame(series = rep(c("diax","diay"),3),
value = c(3.25,3.30,3.31,3.36,3.38,3.42),
year = c(2018,2018,2019,2019,2020,2020))) %>%
select(year, series, value) %>% spread(key = "series", value = "value") %>%
rename(`2018-01-01` = diax, `2017-01-01` = diay)
nomes <- c("2018-01-01","2017-01-01")
ggplot(Q, aes(x = year)) +
geom_line(aes(y = !!as.name(nomes[1])), col = "red", size = 2, linetype = "dotdash") +
geom_line(aes(y = !!as.name(nomes[2])), col = "orange", size = 2, linetype = "dashed")
ggplot(Q, aes(x = year)) +
geom_line(aes(y = !!rlang::sym(nomes[1])), col = "red", size = 2, linetype = "dotdash") +
geom_line(aes(y = !!rlang::sym(nomes[2])), col = "orange", size = 2, linetype = "dashed")
Проблема в том, что я получаю следующее сообщение об ошибке:
Error in !as.name(nomes[1]) : invalid argument type
Error in !rlang::sym(nomes[1]) : invalid argument type