Hola,
Esta es otra alternativa:
> Lines <- "
+ Numero_vuelo Nacionalidad Pax
+ 1240 Argentina 2341
+ 1240 Uruguaya 4432
+ 1240 Paraguaya 67000
+ 1240 Brasilera 1234
+ 1241 Argentina 7344
+ 1241 Uruguaya 543000
+ 1241 Paraguaya 3000
+ 1241 Brasilera 23400
+ "
>
> DF <- read.table(textConnection(Lines), header = TRUE, as.is = TRUE)
>
> library(data.table)
> DT <- as.data.table(DF)
> dcast(DT, Numero_vuelo ~ Nacionalidad, value.var =c('Pax') )
Numero_vuelo Argentina Brasilera Paraguaya Uruguaya
1: 1240 2341 1234 67000 4432
2: 1241 7344 23400 3000 543000
Saludos,
Carlos Ortega
www.qualityexcellence.es
El jue., 11 oct. 2018 a las 17:33, juan manuel dias (<juamad...@gmail.com>)
escribió:
> Hola,
> Tengo la siguiente base de datos
>
> Numero de vuelo Nacionalidad Pax
> 1240 Argentina 2341
> 1240 Uruguaya 4432
> 1240 Paraguaya 67000
> 1240 Brasilera 1234
> 1241 Argentina 7344
> 1241 Uruguaya 543000
> 1241 Paraguaya 3000
> 1241 Brasilera 234000
> y quiero que quede del siguiente modo:
>
> Numero de vuelo Nacionalidad_argentina Nacionalidad_uruguaya
> Nacionalidad_paraguaya Nacionalidad_brasilera
> 1240 2341 4432 67000 1234
> 1241 7344 543000 3000 234000
>
> intenté con *vuelos_f<-t(vuelos) *pero no logro lo que quiero, queda así:
>
> [image: image.png]
>
> Muchas gracias! Saludos, Juan.
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
