Trabajo examen final

library(rio)
library(rvest)
link = "https://es.wikipedia.org/wiki/%C3%8Dndice_de_democracia"
path = '//*[@id="mw-content-text"]/div[1]/div[2]/div/table'
data1 <- read_html(link)%>%html_nodes(xpath = path)%>%html_table()%>% .[[1]]
names(data1)

## [1] "Puesto"                        "País"                         
## [3] "Puntuación"                    "Proceso electoraly pluralismo"
## [5] "Funcionamientodel gobierno"    "Participaciónpolítica"        
## [7] "Culturapolítica"               "Derechosciviles"              
## [9] "Categoría"

str(data1)

## tibble [167 × 9] (S3: tbl_df/tbl/data.frame)
##  $ Puesto                       : chr [1:167] "1" "2" "3" "4" ...
##  $ País                         : chr [1:167] "Noruega Noruega" "Nueva Zelanda Nueva Zelanda" "Islandia Islandia" "Suecia Suecia" ...
##  $ Puntuación                   : chr [1:167] "9,81" "9,61" "9,52" "9,39" ...
##  $ Proceso electoraly pluralismo: chr [1:167] "10,00" "10,00" "10,00" "9,58" ...
##  $ Funcionamientodel gobierno   : chr [1:167] "9,64" "9,29" "9,64" "9,64" ...
##  $ Participaciónpolítica        : chr [1:167] "10,00" "10,00" "8,89" "8,33" ...
##  $ Culturapolítica              : chr [1:167] "10,00" "8,75" "9,38" "10,00" ...
##  $ Derechosciviles              : chr [1:167] "9,41" "10,00" "9,71" "9,41" ...
##  $ Categoría                    : chr [1:167] "Democracia plena" "Democracia plena" "Democracia plena" "Democracia plena" ...

library(openxlsx)

df=data1[[1]]
library(openxlsx)

data1=data1
write.xlsx(data1,"Data1.xlsx")

library(writexl)
write_xlsx(data1, "data1")

library(rio)
dataf=import("https://github.com/Anagutierrezm/Trabajo-2/raw/main/Data1.xlsx")

dataf$País=trimws(dataf$País)
colnames(dataf)

## [1] "Puesto"                         "País"                          
## [3] "Puntuación"                     "Proceso electoral y pluralismo"
## [5] "Funcionamiento del gobierno"    "Participación política"        
## [7] "Cultura política"               "Derechos civiles"              
## [9] "Categoría"

sum(is.na(dataf$País))

## [1] 0

Seleccionar solo países de Europa:

paiseseuro=c("Albania", "Alemania", "Armenia", "Austria", "Azerbaiyán","Bélgica", "Bielorrusia", "Bosnia y Herzegovina", "Bulgaria", "Chipre","Croacia", "Dinamarca", "Eslovaquia", "Eslovenia", "España", "Estonia","Finlandia", "Francia", "Georgia", "Grecia", "Hungría", "Irlanda", "Islandia", "Italia", "Kazajistán", "Letonia", "Lituania", "Luxemburgo", "Malta", "Moldavia", "Montenegro",
                     "Noruega", "Países Bajos", "Polonia", "Portugal", "Reino Unido",
                     "República Checa", "Macedonia del Norte", "Rumania",
                     "Rusia", "Serbia", "Suecia", "Suiza", "Turquía",
                     "Ucrania")
paiseseuro=tolower(paiseseuro)
paiseseuro_filtered=subset(dataf,tolower(País) %in% paiseseuro)

paiseseuro=data.frame(País=paiseseuro)

Tipo de gobierno:

#library(dplyr) paiseseuro <- paiseseuro %>% rename(Categoría=Categoria) mutate(Categoría = recode(Categoría, “Democracia plena” = “1”, “Democracia deficiente” = “2”, “Régimen híbrido” = “3”, “Régimen autoritario” = “4”))

```r
str(paiseseuro)

## 'data.frame':    45 obs. of  1 variable:
##  $ País: chr  "albania" "alemania" "armenia" "austria" ...

names(paiseseuro)

## [1] "País"

paiseseuro <- paiseseuro %>% mutate(Puntuación = as.numeric(gsub(“,”, “.”, Puntuación)), Proceso electoral y pluralismo = as.numeric(gsub(“,”, “.”, Proceso electoral y pluralismo)), Funcionamiento del gobierno = as.numeric(gsub(“,”, “.”, Funcionamiento del gobierno)), Participación política = as.numeric(gsub(“,”, “.”, Participación política)), Cultura política = as.numeric(gsub(“,”, “.”, Cultura política)), Derechos civiles = as.numeric(gsub(“,”, “.”, Derechos civiles)), Categoria = as.numeric(gsub(“,”, “.”, Categoria)))

head(paiseseuro)

```r
europa_occidental <- c("Alemania", "Austria", "Bélgica", "España", "Francia", "Irlanda", "Italia", "Luxemburgo", "Países Bajos", "Portugal", "Reino Unido", "Suiza")
europa_central <- c("Eslovaquia", "República Checa", "Eslovenia", "Hungría", "Polonia")
europa_del_este <- c("Albania", "Armenia","Finlandia","Azerbaiyán", "Bielorrusia", "Bulgaria", "Bosnia y Herzegovina", "Croacia", "Chipre", "Dinamarca", "Estonia", "Georgia", "Grecia","Islandia","Kazajistán", "Letonia", "Lituania", "Macedonia del Norte", "Malta", "Moldavia", "Montenegro", "Noruega","Rumania", "Rusia", "Serbia", "Suecia", "Turquía", "Ucrania")

paiseseuro$Region <- ifelse(paiseseuro$País %in% europa_occidental, "Europa Occidental",
                       ifelse(paiseseuro$País %in% europa_central, "Europa Central",
                              ifelse(paiseseuro$País %in% europa_del_este, "Europa del Este", "Otra región")))

head(paiseseuro)

##         País      Region
## 1    albania Otra región
## 2   alemania Otra región
## 3    armenia Otra región
## 4    austria Otra región
## 5 azerbaiyán Otra región
## 6    bélgica Otra región

Regresión lineal:

modelo1<- lm(Puntuación ~ Participación política, data = paiseseuro) summary(modelo1)

plot(paiseseuro$`Participación política`, paiseseuro$Puntuación, main = "Regresión Lineal Simple", xlab = "Participación Política", ylab = "Puntuación")
abline(modelo1, col = "red")

Regresión lineal múltiple: Variables: participación política y puntuación

modelo2<- lm(Puntuación ~ Proceso electoral y pluralismo + Funcionamiento del gobierno + Participación política + Cultura política + Derechos civiles, data = paiseseuro) summary(modelo2)

plot(paiseseuro$`Participación política`, paiseseuro$Puntuación, main = "Regresión Lineal Simple", xlab = "Participación Política", ylab = "Puntuación")
abline(modelo2, col = "red")