Ejercicios

setwd("C:/Users/soporte/Desktop/EAP2 - Datas")
library(rio)
BD=import("Broadband.csv")
CD=import("Carbon dioxide.csv")
DE=import("Debt - external.csv")
Elec=import("Electricity.csv")
Energy=import("Energy per capita.csv")
IR=import("Inflation rate.csv")
Public=import("Public debt.csv")
Petroleo=import("Refined petroleum - production.csv")
Celular=import("Telephones - cellular.csv")
Lineas=import("telephones - lines.csv")
Desempleo=import("Youth unemployment rate (ages 15-24).csv")

# Separar ciertas columnas usando la función subset()
BD <- subset(BD, select = c(name, value))

CD <- subset(CD, select = c(name, `metric tonnes of CO2`))

Celular <- subset(Celular, select = c(name, value))

DE <- subset(DE, select = c(name, value))

Desempleo <- subset(Desempleo, select = c(name, `%`))

Energy <- subset(Energy, select = c(name, `Btu/person`))

Elec <- subset(Elec, select = c(name, kW))

IR <- subset(IR, select = c(name, `%`))

Lineas <- subset(Lineas, select = c(name, value))

Public <- subset(Public, select = c(name, `% of GDP`))

Petroleo <- subset(Petroleo, select = c(name, `bbl/day`))

# Cambiar el nombre de las columnas mediante asignación directa
colnames(Celular) <- c("Paises", "Suscriptores")

colnames(BD) <- c("Paises", "BandaAncha")
colnames(CD) <- c("Paises", "CO2Tonelada")
colnames(Lineas) <- c("Paises", "LineasTele")

colnames(Petroleo) <- c("Paises", "ProducxDia")

colnames(Desempleo) <- c("Paises", "FuerzaLaboral%")

colnames(Energy) <- c("Paises", "Btu/person")
colnames(DE) <- c("Paises", "DEComparada")

colnames(Public) <- c("Paises", "DPComparada")

colnames(Elec) <- c("Paises", "kW")
colnames(IR) <- c("Paises", "Consumido/año")

data1 <- merge(BD, CD)
data2 <- merge(DE, Desempleo)
data3 <- merge(Elec, Energy)
data4 <- merge(IR, Lineas)
data5 <- merge(Petroleo, Public)

Data1 <- merge(data1, data2)
Data2 <- merge(data3, data4)
Data3 <- merge(data5, Celular)
 
DATA1 <- merge(Data1, Data2)
DataFinal <- merge(DATA1, Data3)

contador <- sum(DataFinal$ProducxDia != 0 & !is.na(DataFinal$ProducxDia))
contador <- sum(DataFinal$Suscriptores != 0 & !is.na(DataFinal$Suscriptores))
contador <- sum(DataFinal$BandaAncha != 0 & !is.na(DataFinal$BandaAncha))
contador <- sum(DataFinal$CO2Tonelada != 0 & !is.na(DataFinal$CO2Tonelada))
contador <- sum(DataFinal$LineasTele != 0 & !is.na(DataFinal$LineasTele))
contador <- sum(DataFinal$`FuerzaLaboral%` != 0 & !is.na(DataFinal$`FuerzaLaboral%`))

contador <- sum(DataFinal$`Btu/person` != 0 & !is.na(DataFinal$`Btu/person`))
contador <- sum(DataFinal$DEComparada != 0 & !is.na(DataFinal$DEComparada))
contador <- sum(DataFinal$DPComparada != 0 & !is.na(DataFinal$DPComparada))
contador <- sum(DataFinal$kW != 0 & !is.na(DataFinal$kW))
contador <- sum(DataFinal$`Consumido/año` != 0 & !is.na(DataFinal$`Consumido/año`))

library(polycor)

## Warning: package 'polycor' was built under R version 4.3.3

library(magrittr)
head(DataFinal,10)%>%
    rmarkdown::paged_table()

DataFinal[!complete.cases(DataFinal),]%>%
    rmarkdown::paged_table()