Bitácoras en estadística
Se o mundo não têm nenhum conhecimento da variação estatística dos dados, não podia interpretar o mundo em que vivemos.
jueves, 31 de diciembre de 2015
miércoles, 1 de abril de 2015
Tabla dinámicas en R como Excel
Una herramienta práctica para realizar conteos o tablas de contingencia son las tablas dinámicas. Algunos programas de hojas de calculo permiten realizar tablas dinámicas de forma interactiva.
Ahora lo interesante es que con R también se puede realizar esto. El paquete rpivotTable, permite realizar tablas dinámicas como Excel.
Ejemplo 1
Para ello utilizaremos la siguiente base como ejemplo
> genes = paste('MMP', sprintf("%04d",1:10), sep="")
> data = expand.grid(gene=genes, condition=c('copper', 'cheetos', 'beer', 'pizza'))
> data$value = rnorm(40)
> head(data)
gene condition value
1 MMP0001 copper 1.6562436
2 MMP0002 copper 0.1809676
3 MMP0003 copper -1.1397017
4 MMP0004 copper 0.7807000
5 MMP0005 copper -0.9886788
6 MMP0006 copper -0.8915092
Ahora, mediante las siguientes lineas, construimos y utilizamos el paquete en mención
install.packages("devtools")
library(devtools)
install_github("ramnathv/htmlwidgets")
install_github("smartinsightsfromdata/rpivotTable")
## Load rpivotTable
library(rpivotTable)
Ahora construimos la tabla dinámica de la siguiente manera
rpivotTable(data, rows="gene", col="condition", aggregatorName="Average", vals="value")
El resultado
Ejemplo 2
Utilizando la base de mtcars, miremos cual es el promedio de millas por galón (mpg) según el número de cambios (gear) y el número de cilindros (cyl)
data(mtcars)
## One line to create pivot table
rpivotTable(mtcars, rows="gear", col="cyl", aggregatorName="Average", vals="mpg")
El resultado
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7bNFhkgF0khyphenhyphen-fJVSYVvKeYZ8pO8_RZUeWp6y2PfQnux1vcqQnOoUXPEKDtu0xiTwtZHqPmDChAV8zsJh-ZnNVoA-O0jWkfU_ReFRX5m39JTx-B9qtpcnx00pTtHJ6bvH41OtWz_yPIbe/s1600/Tabla2.png)
Ahora utilizando la tabla contemos cuantos carros según le número de cambios y el número de cilindros tiene la base
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEt6oV4TCrsF705TS0zRC4wDPwGKJ2WHzshzjFCzxCGQ_zM299NAO5CTfA9ftKPTxtEsTcoA7PLyQuSqKlGLvTFaEx8pWsoyYBmGRsSYJO-Z6QrTBsY_hfiThAPuCMGUVBz5ZFCLA6BIlf/s1600/Tabla3.png)
Miremos el resultado anterior gráficamente
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_kVkoEEX68qqyzVfJfUuklPzZ5aOk0aN0z1jJ2Xa7lHNKlrOyDb-ddY8uhCSj_-tYCVGyTTnwX8cAaYiBcgrNfd7qWhJ7M4I15ifg3mAQ38cER122cjG71NnbrcYOaItxrVPTkv7pthjO/s1600/Tabla4.png)
Por último, un ejemplo de las diferentes aplicaciones al estilo Nicolas Kruchten
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_uic52g_Us02ArfZOf8i4N51K8JTLXyXZSGQFcHkZRPeN3AE9l2yx23nOaZSuHPklmu4RrCjMmB36rLBFRGQ15YWZ6KpCoESXZ1kihBrUrDj0cEA2FKZMWGE-cq1GYF=s0-d)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7bNFhkgF0khyphenhyphen-fJVSYVvKeYZ8pO8_RZUeWp6y2PfQnux1vcqQnOoUXPEKDtu0xiTwtZHqPmDChAV8zsJh-ZnNVoA-O0jWkfU_ReFRX5m39JTx-B9qtpcnx00pTtHJ6bvH41OtWz_yPIbe/s1600/Tabla2.png)
Ahora utilizando la tabla contemos cuantos carros según le número de cambios y el número de cilindros tiene la base
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEt6oV4TCrsF705TS0zRC4wDPwGKJ2WHzshzjFCzxCGQ_zM299NAO5CTfA9ftKPTxtEsTcoA7PLyQuSqKlGLvTFaEx8pWsoyYBmGRsSYJO-Z6QrTBsY_hfiThAPuCMGUVBz5ZFCLA6BIlf/s1600/Tabla3.png)
Miremos el resultado anterior gráficamente
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_kVkoEEX68qqyzVfJfUuklPzZ5aOk0aN0z1jJ2Xa7lHNKlrOyDb-ddY8uhCSj_-tYCVGyTTnwX8cAaYiBcgrNfd7qWhJ7M4I15ifg3mAQ38cER122cjG71NnbrcYOaItxrVPTkv7pthjO/s1600/Tabla4.png)
Por último, un ejemplo de las diferentes aplicaciones al estilo Nicolas Kruchten
jueves, 28 de agosto de 2014
Suscribirse a:
Entradas (Atom)