для цикла для акций и цен

Question

Я создал график с различными запасами вместе с данными о цене лосося за один год. Я хотел бы сделать точно такой же график, используя цикл for, который запускает каждый столбец из файла excel с именами «salmon_prices» и «stock» (см. Рисунки в приложении). Я также пытаюсь создать переменную или вектор с разными цветами, чтобы при запуске цикла каждой из акций и цены назначался цвет из переменной / вектора.

Кто-нибудь знает, как я мог это сделать?

Загрузка библиотек

library(magrittr)
library(dplyr)
library(stargazer)
library(readxl)
library(tidyr)
library(data.table)
library(quantmod)

Чтение данных из файлов Excel

laksepris  <- read_excel("laksepris2017.xlsx")
aksjer2017 <- read_excel("Lakse-aksjer.xlsx")
lusedata   <- read_excel("luse_data.xlsx")

Извлечение месяцев, СалМар, Лерой и Эквинор

stock <- select(aksjer2017, "Måned / Aksjer", "SalMar", "Lerøy", 
"Equinor")%>%
  rename(Month = "Måned / Aksjer")

Отразить фрейм данных "lusedata", чтобы получить "totalalsum" в качестве столбца, и переименовать столбец

snudd.lusedata <- t(lusedata[10,])

Объединение наборов данных

Aksjer.laks <- right_join(Aksjer, laksepris, by = "Month")

Попробуйте создать сюжет

ncolor <- c("blue", "green", "red", "black")

plot(Aksjer.laks$Pris,
     col=ncolor[1],
     type = "l",
     ylab = "NOK",
     xlab = "Måned",
     ylim = c(0,300))
lines(Aksjer.laks$SalMar,
     type="l",
     col=ncolor[2],
     ylab = "NOK",
     xlab = "Måned",
     ylim=c(0,300))
lines(Aksjer.laks$Lerøy,
      type="l",
      col=ncolor[3],
      ylab = "NOK",
      xlab = "Måned",
      ylim=c(0,300))
lines(Aksjer.laks$Equinor,
      type="l",
      col=ncolor[4],
      ylab = "NOK",
      xlab = "Måned",
      ylim=c(0,300))

legend("topleft", colnames(Aksjer.laks[-1]),
       lty=1, col = ncolor[1:4])

salmon_prices сток