#############                    ###############
############# MIS PRIMEROS PASOS ###############
#############                    ###############

# Lenguaje Orientado Hacia Objetos.
# Input <- Output <- Lenguaje No Inteligente: Paradoja.
# Paneles de RStudio.
# Estructuras Basica General de la Sintaxis.
# Gestión de Expectativas
# Prompt.




#############                               #############
#############   Cambiamos Idioma de Salida  #############
#############                               #############


Sys.setenv(LANG = "sp")



# Recomendacion:


##########################                        ##########################      
##########################    I Diccionario R     ##########################      
##########################                        ##########################      


# Recomendaciones de Crear



##########################                      ##########################      
##########################    II Optimizacion   ##########################    
##########################     de Hardware      ##########################    
##########################                      ##########################  



# Sesion 1

# Optimización de Hardware

memory.limit(size=1470000) #Para trabajar más rápido con R aumentando el uso Ram en Mb

# 1 GB = 1.000 MB

# https://www.rdocumentation.org/packages/utils/versions/3.6.2/topics/memory.size




##########################                        ##########################      
##########################    Trabajo en Disco    ##########################    
##########################         Externo        ##########################    
##########################                        ########################## 

# Para que los Paquetes que en un futuro descarguemos vayan a instalarse en disco externo
# debemos instalar primero, en nuestro ordenador, lo siguiente: 
# especificando la carpeta del disco duro externo, en donde querremos guardar las librerías.

#install.packages("zoo", lib="I:/Paquetes/R 4.0.3") # lo instalamos

library("zoo", lib.loc="I:/Paquetes/R 4.0.3") # Lo hacemos correr para que funcione


.libPaths("I:/Paquetes/R 4.0.3")






##########################                        ##########################      
##########################   Fijamos Directorio   ##########################    
##########################       de Trabajo       ##########################    
##########################                        ########################## 

# Imprime la ruta del directorio de trabajo actual

getwd()




# Imprime los elementos contenidos al interior de una carpeta determinada

dir()



# Cambiar el Directorio

setwd("D:/ESTUDIOS") # Ejemplo 1

getwd()




# Ejemplo 2
setwd("D:/PROYECTOS/DOCENCIA_/INAP/Adrian_Modulos_/Intro_RSTudio_")

getwd()




#############                    ###############
############# MIS PRIMEROS PASOS ###############
#############                    ###############

a=35 #le digo que a es lo mismo que 35

a

print(a)

View(a) # 

str(a) # Entrega la clase, naturaleza o tipo de observación.


b=7  #Le digo que b es lo mismo que 7

str(7)

View(a+b)

print(a+b) #le digo que sume a y b



c="7"

str(c)

View(c)





Prueba="HOLA MUNDO" # Asigne una cadena de texto como elemento u objeto de Prueba

str(Prueba)

print(Prueba) 





#############                      ###############
############# IMPORTAMOS DATAFRAME ###############
#############                      ###############



# Importamos el archivo Excel "Juguete"
# Para realizar esta operación siempre debemos indicarle a R en qué carpeta o directorio vamos a trabajar

ruta <- 'D:/PROYECTOS/DOCENCIA_/INAP/Adrian_Modulos_/Intro_RSTudio_'   #Ubicamos el directorio donde está el archivo

# Luego de fijar nuestra ruta de trabajo importaremos un archivo excel a nuestra consola R
# En este ejercicio trabajaremos con el archivo ""aporte_Fiscal_15_04_2021_"
# Generalmente los archivos Excel se encuentran en 2 tipos de formatos:
# xlsx o bien en csv (los cuales generalmente dirán archivo de valores separados por comas de Microsoft Excel)
# xlsx (se verá como hoja de cálculo de Microsoft Excel)

# Para esto lo primero será descargar e instalar el paquete que nos permite importar y exportar archivos Excel tipo xlsx  y posteriormente correr la librería 
# Instalamos paquetes y corremos librería

install.packages("readxl") # Instalamos paquete

# una vez instalados los drives correspondiente podremos hacer correr la librería:
library(readxl) # Corremos librería

# Después de este paso recién podremos importar nuestro archivo



# Dataframe a Trabajar

# https://www.lun.com/Pages/NewsDetail.aspx?dt=2021-02-23&PaginaId=16&BodyId=0

dir("D:/PROYECTOS/DOCENCIA_/INAP/Adrian_Modulos_/Intro_RSTudio_/") # Apertura todo lo que hay dentro de esta carpeta


#Cargamos
Juguete1 <- read_excel("D:/PROYECTOS/DOCENCIA_/INAP/Adrian_Modulos_/Intro_RSTudio_/aporte_Fiscal_15_04_2021_.xlsx", sheet = 1) # (Sheet=la hoja de calculo de excel, por cuanto si tenemos 3 hojas, tendremos que escribir en nuestro código tres sheet) 
# Ahora, cargamos
# Ahora, visualizamos
View(Juguete1)

Juguetw2 <- read.csv("")

variable.names(Juguete1)

str(Juguete1)

table(Juguete1$Gobernadores_Regionales) # Revisamos las observaciones del vector. Si no es NA es también asignado o contado como 1.