Estou tentando criar um número índice a partir de um data frame. Gostaria de dividir cada coluna pelo primeiro número sem precisar fazer a divisão coluna a coluna.
Apenas como exemplo, o df seria:
DF1 <- data.frame(Name = c("Aaron", "Blake"), Jan = c(2, 5), Feb = c(4, 6), Mar = c(3, 4))
Fazendo coluna a coluna, por exemplo:
library(tidyverse)
DF1$Fev/first(DF1$Fev)*100
o resultado é o esperado:
[1] 100 150
Porém fazendo
DF1[,-1]/first(DF1[,-1])*100
obtenho
Jan Fev Mar
1 100 200 150
2 100 120 80
O adequado seria
Name Jan Fev Mar
1 Aaron 100 100 100.0000
2 Blake 250 150 133.3333
Alguém pode me ajudar? Vou trabalhar com um data frame com muitas colunas em breve.