R Can'；t在aes_字符串中使用y变量

我目前正在处理来自秘鲁的新冠病毒-19数据，我想使用Rmisc:：multiplot来显示该国每个地区阳性病例的发展情况。所以我尝试编写一个循环代码来生成25个图。仅作为示例，我仅使用4个变量：

     Fecha    Lima     La Libertad  Madre de Dios
1 2020-04-24   10           2             1
2 2020-04-25   15           4             3
3 2020-04-26   20           8             3

我生成了一个带有区域名称的向量：

nombre_regiones <- c("Lima", "La Libertad", "Madre de Dios")

---

正因为如此，我无法创建第二个绘图，第三个区域发生了同样的事情

“Madre de Dios”

。我尝试了不同的方法，寻找相似的案例，但我没有运气。另外，

regiones[[w]]最好启动完整长度的
列表

regiones <- vector('list', length(nombre_regiones))

-输出r2


-输出r3


数据
df最好启动全长的
列表

regiones <- vector('list', length(nombre_regiones))

-输出r2


-输出r3


数据
df带有变量“Fecha”、“Lima”、“La Libertad”和“Madre de Dios”的数据帧以对象名“df”存储。请检查我下面的解决方案。它正在处理这些更改。@akruni在控制台中得到了这一点
错误：无效输入：date\u trans仅在我尝试调用r1、r2或r3时处理date类对象。如果您检查我的数据，您可能需要运行
df$Fecha@ErnestoRiverosBarrientos，
Fecha
是
Date
类。带有变量“Fecha”、“Lima”、“La Libertad”和“Madre de Dios”的数据框以对象名“df”存储。请检查下面的解决方案。它正在处理这些更改。@akruni在控制台中得到了这一点
错误：无效输入：date\u trans仅在我尝试调用r1、r2或r3时处理date类对象。如果您检查我的数据，您可能需要运行
df$Fecha@ErnestoRiverosBarrientos，
Fecha
是
Date
类。我忘了更改
粘贴
功能。它按照我的要求运行，非常感谢。我忘了更改
粘贴功能。它按照我的要求运行，非常感谢。
Error in parse(text = x) : <text>:1:4: unexpected symbol
1: La Libertad
       ^

regiones <- vector('list', length(nombre_regiones))

library(ggplot2)
for (w in seq_along(nombre_regiones)) { 
      nombre <- paste0("r", w)
      assign(nombre, ggplot(data = df,
          aes(x = Fecha, y = !! rlang::sym(nombre_regiones[w]))) +   
              geom_line() + 
              geom_point() + 
              scale_x_date(date_labels = "%d, %m", date_breaks  ="1 day") +
              geom_text(aes(label = !! rlang::sym(nombre_regiones[w]))))
      regiones[[w]] <- nombre
 }

df <- structure(list(Fecha = structure(c(18376, 18377, 18378), class = "Date"), 
    Lima = c(10L, 15L, 20L), `La Libertad` = c(2L, 4L, 8L), `Madre de Dios` = c(1L, 
    3L, 3L)), row.names = c("1", "2", "3"), class = "data.frame")