R 在同一图形上使用环境中的数据绘制多个时间序列

我正在与以下角色合作：

myTixsectors <- c("APD", "ALB", "AVY", "BLL", "CF", "DWDP", "EMN", "ECL", "FMC", 
"FCX", "IP", "IFF", "LYB", "MLM", "MOS", "NEM", "NUE", "PKG", 
"PPG", "PX", "SEE", "SHW", "VMC", "WRK")

然而，这不起作用。是否有方法调用环境中的所有数据帧并绘制它们

注：这是一个与我先前发布的问题相关的后续问题。目标是相似的，但我觉得这是解决问题的更正确的方法

编辑：我也在尝试

eapply

，但运气不好

eapply(data, function(x) add_TA(normalise_series(Cl(x))))

---

为了回答我自己的问题，我使用了以下方法：

mytheme <- chart_theme()
mytheme$col$line.col <- "blue"
chart_Series(ROC(Cl(SPY))[window], theme = mytheme, col = "blue")
eapply(data, function(x) add_TA(ROC(Cl(x))[window], on = 1, col = "grey", lty = 3))

mytheme
for(tick in myTixsectors){
  add_TA(normalise_series(Cl(data[[tick]])[window]) - 1, on = 1, col = "yellow", lty = 3)
}

eapply(data, function(x) add_TA(normalise_series(Cl(x))))

mytheme <- chart_theme()
mytheme$col$line.col <- "blue"
chart_Series(ROC(Cl(SPY))[window], theme = mytheme, col = "blue")
eapply(data, function(x) add_TA(ROC(Cl(x))[window], on = 1, col = "grey", lty = 3))