Last active
December 21, 2015 17:29
-
-
Save fontanon/6341178 to your computer and use it in GitHub Desktop.
Testing r-openspending package: Income comparision between Universities: Pablo de Olavide vs. Universidad de Granada.
https://github.com/mihi-tr/r-openspending
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library("ropenspending") | |
| # Retrieving Universidad Pablo de Olavide data at openspending (upo-income-budget dataset) | |
| upodata <- openspending.aggregate("upo-income-budget",drilldown=c("articulo")) | |
| upodata.df <- openspending.as.data.frame(upodata) | |
| # Retrieving Universidad de Granada data at openspending (ugr-income dataset) | |
| ugrdata <- openspending.aggregate("ugr-income",drilldown=c("articulo")) | |
| ugrdata.df <- openspending.as.data.frame(ugrdata) | |
| # Coercing values "tolower" for improving merging | |
| upodata.df$articulo.label <- sapply(upodata.df$articulo.label, tolower) | |
| ugrdata.df$articulo.label <- sapply(ugrdata.df$articulo.label, tolower) | |
| # Merge by "articulo" column | |
| articulo.df <- merge(upodata.df, ugrdata.df, by.x="articulo.label", by.y="articulo.label", all=TRUE) | |
| articulo.sub <- subset(articulo.df, select = c("articulo.label", "amount.x", "amount.y")) | |
| names(articulo.sub) <- c("Articulo", "UPO", "UGR") | |
| # Result | |
| # Articulo UPO UGR | |
| # 1 de comunidades autónomas 55556053 30465000 | |
| # 2 de comunidades autónomas 55556053 259498608 | |
| # 3 de corporaciones locales 604585 90000 | |
| # 4 de corporaciones locales 604585 30000 | |
| # 5 de empresas privadas 1944825 1400000 | |
| # 6 de empresas privadas 1944825 1275000 | |
| # 7 de empresas públicas y otros entes públicos NA 400000 | |
| # 8 de familias e instituciones sin fines de lucro NA 200000 | |
| # 9 de familias e i.s.f.l. 50000 NA | |
| # 10 de la administracion del estado 5729768 NA | |
| # 11 de la administración general del estado NA 10600000 | |
| # 12 de la administración general del estado NA 22245000 | |
| # 13 de la junta de andalucia 239292345 NA | |
| # 14 de la seguridad social NA 3000000 | |
| # 15 del exterior NA 4000000 | |
| # 16 del exterior NA 3500000 | |
| # 17 de organismos autónomos administrativos NA 70000 | |
| # 18 de organismos autónomos administrativos NA 693000 | |
| # 19 ingresos por prestación de servicios NA 8850000 | |
| # 20 intereses de depositos 748397 NA | |
| # 21 intereses de depósitos NA 500000 | |
| # 22 otros ingresos 3685574 75000 | |
| # 23 otros ingresos patrimoniales NA 406000 | |
| # 24 otros ingresos procedentes prestaciones servicios 8621000 NA | |
| # 25 precios públicos 46393636 44740000 | |
| # 26 prestamos recibidos 4334926 NA | |
| # 27 productos de concesiones y aprov. especiales 844072 NA | |
| # 28 reintegro de préstamos concedidos NA 650000 | |
| # 29 reintegros de operaciones corrientes 116797 NA | |
| # 30 reintegros de préstamos concedidos 300000 NA | |
| # 31 rentas de bienes inmuebles 133837 600000 | |
| # 32 tasas 1991510 1900000 | |
| # 33 venta de bienes 87658 250000 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment