inefi_mod_departamento

library(rio)
library(ggplot2)
library(ggcorrplot)
library(reticulate)

## 
## Attaching package: 'reticulate'

## The following object is masked from 'package:rio':
## 
##     import

use_python("C:/Users/Charles/anaconda3")

rm(list = ls())

linkobras="https://github.com/bocchienjoyer/MaGODllanes/raw/main/ProyectoMagaDeidad/datita/worst_dep_mod_ult_2.csv"

pd<-import("pandas")

obrasdf=pd$read_csv(linkobras)

str(obrasdf)

## 'data.frame':    48 obs. of  4 variables:
##  $ Unnamed: 0         : num  0 1 2 3 4 5 6 7 8 9 ...
##  $ departamento       : chr  "AMAZONAS" "AMAZONAS" "AMAZONAS" "ANCASH" ...
##  $ modalidad_ejecucion: chr  "Administración directa" "Contrata" "Por núcleo ejecutor" "Administración directa" ...
##  $ casesum            : num  1 14 1 1 17 13 3 7 9 14 ...
##  - attr(*, "pandas.index")=RangeIndex(start=0, stop=48, step=1)

obrasdf[obrasdf$departamento=="LORETO",]

##    Unnamed: 0 departamento    modalidad_ejecucion casesum
## 29         28       LORETO Administración directa       1
## 30         29       LORETO               Contrata      16

obrasdf[order(-obrasdf$casesum),]

##    Unnamed: 0   departamento    modalidad_ejecucion casesum
## 14         13          CUSCO Administración directa      18
## 5           4         ANCASH               Contrata      17
## 33         32       MOQUEGUA Administración directa      17
## 30         29         LORETO               Contrata      16
## 46         45         TUMBES               Contrata      16
## 13         12      CAJAMARCA               Contrata      15
## 20         19            ICA               Contrata      15
## 22         21          JUNIN               Contrata      15
## 24         23    LA LIBERTAD               Contrata      15
## 40         39           PUNO Administración directa      15
## 2           1       AMAZONAS               Contrata      14
## 10          9       AYACUCHO Administración directa      14
## 26         25     LAMBAYEQUE               Contrata      14
## 28         27           LIMA               Contrata      14
## 39         38          PIURA               Contrata      14
## 43         42     SAN MARTIN               Contrata      14
## 48         47        UCAYALI               Contrata      14
## 6           5       APURIMAC Administración directa      13
## 19         18        HUANUCO               Contrata      13
## 37         36          PASCO               Contrata      12
## 31         30  MADRE DE DIOS Administración directa      11
## 35         34 P C DEL CALLAO               Contrata      11
## 44         43          TACNA Administración directa      10
## 9           8       AREQUIPA               Contrata       9
## 17         16   HUANCAVELICA               Contrata       9
## 8           7       AREQUIPA Administración directa       7
## 16         15   HUANCAVELICA Administración directa       6
## 36         35          PASCO Administración directa       5
## 45         44          TACNA               Contrata       5
## 27         26           LIMA Administración directa       4
## 7           6       APURIMAC               Contrata       3
## 12         11      CAJAMARCA Administración directa       3
## 25         24     LAMBAYEQUE Administración directa       3
## 32         31  MADRE DE DIOS               Contrata       3
## 11         10       AYACUCHO               Contrata       2
## 21         20          JUNIN Administración directa       2
## 34         33 P C DEL CALLAO Administración directa       2
## 1           0       AMAZONAS Administración directa       1
## 3           2       AMAZONAS    Por núcleo ejecutor       1
## 4           3         ANCASH Administración directa       1
## 15         14          CUSCO               Contrata       1
## 18         17        HUANUCO Administración directa       1
## 23         22    LA LIBERTAD Administración directa       1
## 29         28         LORETO Administración directa       1
## 38         37          PIURA Administración directa       1
## 41         40           PUNO               Contrata       1
## 42         41     SAN MARTIN Administración directa       1
## 47         46        UCAYALI Administración directa       1

baseHeat  = ggplot(obrasdf, aes(x = reorder(departamento,casesum), y = reorder(modalidad_ejecucion,casesum), fill=casesum)) + theme_classic()
heatDefault = baseHeat +  geom_tile() #here

heatBetter=heatDefault +scale_fill_gradient(low = 'yellow',high = 'orange')
heatBetter + theme(axis.text.x = element_text(angle = 60,vjust = 1,hjust = 1),
                   axis.text.y = element_text(size=4)) +
                   geom_text(aes(label=ifelse(casesum>=10,casesum,"")),
                             size=6,fontface='bold', color='white')