estoy trabajando con los siguientes datos:
data <- data.frame(id=c(1811,1811,1522,7121),
pregunta=c("17", "17", "20", "21"),
valor=c("13","2","12","15"))
id pregunta valor
1811 17 13
1811 17 2
1522 20 12
7121 21 15
Y quisiera hacer una transformación para obtener:
id p17.1 p17.2 p20 p21
1: 1811 13 2 NA NA
2: 1522 NA NA 12 NA
3: 7121 NA NA NA 21
También, si el ejemplo fuera este:
data <- data.frame(id = c(1811, 1811, 1522,1366, 7121),
pregunta = c("17", "17","20","21", "21"),
valor = c("13", "2", "12","21", "15"))
La solución deseada sería:
id p17.1 p17.2 p20 p21
1811 13 2 NA NA
1522 NA NA 12 NA
1366 NA NA NA 21
7121 NA NA NA 15
Utilizo:
library(tidyverse)
data %>%
gather(valor, -`id`, -pregunta) %>%
spread(pregunta, valor)
Pero al tener valores duplicados obtengo el siguiente error:
Error: Duplicate identifiers for rows (1, 2)
In addition: Warning message:
attributes are not identical across measure variables;
they will be dropped
Me interesa crear tantas variables como valores tiene la variable Pregunta, el problema es que al repetirse valores de Pregunta, da ese error.
He probado de otras maneras pero al final siempre llego al problema de los valores duplicados.