MVC entiendo el último fragmentó de código que compartes es el contenido de tu variable var1
de tu data.frame
por lo que tus datos se leerían así.
df<-read.table(text= 'var1
"[a.XXX],[b.XXX],[c.XXX]"
"[c.XXX],[h.XXX]"
"[a.XXX],[b.XXX],[d.XXX],[g.XXX]"
NA',header=T)
De igual manera asumí que el resultado que persigues es el siguiente:
# A tibble: 4 × 7
id_rep `[a.XXX]` `[b.XXX]` `[c.XXX]` `[h.XXX]` `[d.XXX]` `[g.XXX]`
<int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 1 1 1 1 0 0 0
2 2 0 0 1 1 0 0
3 3 1 1 0 0 1 1
4 4 NA NA NA NA NA NA
Nota: MVC te dejo el siguiente código tratando el problema que he entendido. Pero quizá entendí mal, si es así házmelo saber en un comentario.
Lo primero que note al atacar el problema es que los datos no tienen un identificador de respondiente, supuse que es un respondiente por fila y comencé por crear un identificador único por respondiente id_rep
. He tratado de explicar el resto de los pasos como comentarios en el siguiente código:
#Crear un id del respondiente
df$id_rep<-1:nrow(df)
#Separar var1 en distintas variables
library(dplyr)
library(tidyr)
#Separamos solo los que no tienen NA en var1
df1<-df[!is.na(df$var1),]
#Creamos un data freme con solo el id_rep de los que tienen NA en var1
df2<-df[is.na(df$var1),]%>%select(id_rep)
df1<-df1%>%
#Separamos las respuestas del respondiente por comas,
#En 6 variables auxiliares a,b,c... he tomado 6 pues entinedo
#pues entiendo que un respondiente puede tener un maximo de 6
#respuestas, cambiese si esto no es asi
separate(var1,sep=',',into=letters[1:6])%>%
#Pasamos las respuestas a formato largo
pivot_longer(!id_rep,names_to='value',values_to='name')%>%
#Sustituimos por 1 el valor de la respuesta
mutate(value=1)%>%
#Filtramos aquellas respuestas con NA
#(es decir aquellas que no selecciono el respondiente x)
filter(!is.na(name))%>%
#Pasamos a formato largo
pivot_wider()
#Remplazamos los NA por 0
df1[is.na(df1)]<-0
df1
#Agregamos los id_rep que no respondieron nada
df1<-bind_rows(df1,df2)
df1