R - ¿Cómo agregar filas para valores perdidos para secuencias de grupo únicas?
Mi problema es similar a esta pregunta anterior¿La forma más rápida de agregar filas para valores perdidos en un data.frame?
No puedo entender cómo agregar filas rellenadas con "NA" cuando el mínimo / máximo es diferente por grupo.
> red<-data.frame(project = c(6, 6, 6, 6, 6, 9, 9, 9), period =c(1, 2, 5:7, 2, 4, 5), v3=letters[1:8], v4=c("red", "yellow", recursive = T))
> red
project period v3 v4
1 6 1 a red
2 6 2 b yellow
3 6 5 c red
4 6 6 d yellow
5 6 7 e red
6 9 2 f yellow
7 9 4 g red
8 9 5 h yellow
Quiero que se vea así:
project period v3 v4
6 1 a red
6 2 b yellow
6 3 NA NA
6 4 NA NA
6 5 c red
6 6 d yellow
6 7 e red
9 2 f yellow
9 3 NA NA
9 4 g red
9 5 h yellow
Cuando solia
library(data.table)
DT=as.data.table(red)
setkey(DT, project, period)
DT[CJ(unique(project), seq(min(period), max(period)))]
hizo que cada grupo de proyecto tuviera 7 períodos; El Proyecto 6 debería tener períodos 1-7, pero el Proyecto 9 debería tener períodos 2-5.
He intentado jugar con.SD[ which.max(period)], by=project]
Pero sin cigarro.
Pensé que debería ser algo simple en el seq (), pero intentéseq(min(period, by=project))
sin suerte
¡Gracias!