Hello, I was using a script to transform a data table from long to wide format , but now it is not working anymore and I have not touched anything.
The code is:
rm(list= ls())
#Cargar el dataset del .csv
df.long <- read.csv("Flywheel datos fase CON.csv", #Ajustar archivo csv
header = TRUE,
sep = ";")
#Pasar de long a wide format
library(tidyr)
library(dplyr)
library(data.table)
library(reshape2)
col_names <- c(colnames(df.long, do.NULL = FALSE, prefix = "col"))
col_names <- col_names [3:19] #Ajustar el rango de columnas para pasar a formato wide
setDT(df.long)
df.wide <- dcast(df.long, Group ~ Momento_de_inercia , # Ajustar las variables que se mantienen ~ y la variable que agrupa
value.var = c(col_names))
#df.wide.variable <- df.wide %>% dplyr:: select(contains( c("CON_RAD_AVG")))
#df.wide.variable <- df.wide.variable %>% dplyr:: select(-contains( c("AVG_RAD100_90")))
#Grabar archivo .csv
write.csv2(df.wide, "Flywheel datos fase CON wide.csv")
And the error I get is:
Error in .subset2(x, i, exact = exact) :
falló indexación recursiva en nivel 2
Además: Warning message:
In if (!(value.var %in% names(data))) { :
la condición tiene longitud > 1 y sólo el primer elemento será usado
Any help will be appreciated.