knitr::include_graphics("Oficinas.jpg")

Datos Abiertos

La información está dispuesta de modo que pueda ser utilizada para realizar visualizaciones, embebida o editada de la manera que se desee. Se plantea así como un escenario transparente donde se comparte la información entre ARSAT y la ciudadanía.

Gestion Transparente

ARSAT promueve la apertura de datos y la rendición de cuentas como ejes fundamentales de la gestión pública

A continuacion veremos graficos representativos de los Sueldos de algunos Sectores de ARSAT.

library(readr)
Suedos <- read_csv("Suedos.csv")
## Parsed with column specification:
## cols(
##   Grupo = col_character(),
##   Cargo = col_character(),
##   Categoría = col_double(),
##   `A partir 01/07/2018` = col_number(),
##   `A partir 01/09/2018` = col_number(),
##   `A partir 01/01/2019` = col_number()
## )
View(Suedos)
summary(Suedos$`A partir 01/07/2018`)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   16504   31494   44988   54419   76380  145198

En este grafico podemos apreciar el valor de los sueldos de la categoria Administracion:

Administracion<-Suedos[-c(21:87),]
barplot(height=Administracion$`A partir 01/07/2018`, names=Administracion$Categoría, 
        col=rgb(17/255, 122/255, 101/255), border="#117A65",
        xlab="Categorias", 
        ylab="Escala en Pesos", 
        main="Sueldos del Grupo de ADMINISTRACIÓN", 
        ylim=c(0,120000),)

En la Siguiente tabla veremos las distintas cagetorias representadas:

Administracion2<-Administracion[ ,-c(1,4,5,6)]
library(DT)
datatable((Administracion2))

En este siguiente grafico tambien podemos ver los sueldos de la categoria Mantenimiento:

Mantenimiento<-Suedos[-c(30:87),]
Mantenimiento<-Mantenimiento[-c(1:20),]
barplot(height=Mantenimiento$`A partir 01/07/2018`, names=Mantenimiento$Categoría, 
        col=rgb(125/255, 60/255, 152/255), border="#7D3C98",
        xlab="Categorias", 
        ylab="Escala en Pesos", 
        main="Sueldos del Grupo de Mantenimiento", 
        ylim=c(0,45000),)

En la Siguiente tabla veremos las distintas cagetorias representadas:

Mantenimiento2<-Mantenimiento[ ,-c(1,4,5,6)]
library(DT)
datatable((Mantenimiento2))

En este siguiente grafico tambien podemos ver los sueldos de la categoria Operacion Satelital y de Plataforma:

OpSatelital<-Suedos[-c(48:87),]
OpSatelital<-OpSatelital[-c(1:30),]
barplot(height=OpSatelital$`A partir 01/07/2018`, names=OpSatelital$Categoría, 
        col=rgb(189/255, 179/255, 158/255), border="#BDB39E",
        xlab="Categorias", 
        ylab="Escala en Pesos", 
        main="Sueldos del Grupo de Operacion Satelital y de Plataforma", 
        ylim=c(0,146000),)

En la Siguiente tabla veremos las distintas cagetorias representadas:

OpSatelital2<-OpSatelital[ ,-c(1,4,5,6)]
library(DT)
datatable(OpSatelital2)
knitr::include_graphics("ARSAT.jpg")