Estoy intentando rellenar los valores de una variable fila por fila para lo cual recorro el dataframe y cuando tengo el valor que quiero rellenar hago esto:
listadoProyectosPlanificados<-function(df){
variables<-names(df)
variablesAIgnorar<-c('Total','JefeProyecto','Ranking','Proyectos')
variablesATenerEncuenta<-subset(variables,!(variables %in% variablesAIgnorar))
for (indiceFila in 1:nrow(df)) {
proyectos<-vector()
for (indiceColumna in 1:length(variablesATenerEncuenta)) {
if (df[indiceFila,variablesATenerEncuenta[indiceColumna]]!=0) {
proyectos<-append(proyectos,variablesATenerEncuenta[indiceColumna])
}
}
print(indiceFila)
print(ncol(df))
print(paste(proyectos,collapse = ', '))
df[indiceFila,ncol(df)]<-paste(proyectos,collapse = ', ')
}
}
En los prints que tengo para ver como va la cosa todo va bien
Pero la instrucción
df[indiceFila,ncol(df)]<-paste(proyectos,collapse = ', ')
No me está añadiendo los valores sin embargo si yo hago en consola esto
df[1,49]<-paste(c('hola','adios'),collapse = ', ')
> df[1,49]
[1] "hola, adios"
Si que actualiza
Alguna idea por favor?
Un saludo
df<- read.table(text=" col1 col2 col3 10 20 30 ", fill=TRUE, header=TRUE)
ya que viendo la estructura de datos se te puede ayudar mejor con las consultas a la misma (el 10 20 y 30 son en una nueva línea)