Как создать индексированные значения для каждой цены акций в R?

Question

поэтому я пытался создать индексированную биржевую диаграмму как часть проекта, изучая R. Теперь я хотел бы сделать то же самое с индексированными значениями, поэтому я хочу создать вектор индексированных значений для каждого из моих акций. Я попробовал следующее:

indeksih <- apply(kombo, huhtamaki, FUN = huhtamaki/huhtamaki[1])

однако это дает мне Ошибка в Ops.data.frame (huhtamaki, huhtamaki [1]): '/' определено только для фреймов данных одинакового размера

Вот так выглядят мои данные:

 head(kombo)

Date             Huhtamaki Sampo  Kone
1 2019-12-30     41.38     38.91  58.28
2 2019-12-27     41.84     39.07  59.14
3 2019-12-23     41.66     39.13  59.02
4 2019-12-20     41.57     39.22  59.06
5 2019-12-19     40.69     38.99  58.32
6 2019-12-18     40.74     38.41  57.68

Answer 1

Мы можем использовать

indexksi <- kombo$Huhtamaki/kombo$Huhtamaki[1]

Answer 2

Простое деление столбца на первый элемент столбца:

kombo[,"Huhtamaki"]/kombo[1, "Huhtamaki"]

Если вы хотите сделать это для многих столбцов, может пригодиться подход data.table

library(data.table)
setDT(kombo)
kombo[,lapply(.SD, function(x) x/x[1]), .SDcols = names(kombo[, -"date"])]