Buscar contenidos

jueves, 4 de junio de 2020

CURSO R STUDIO




CONTENIDO



VARIABLES


####################
#                  #
# Copiar todo esto #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# video 04 - variables

# Objetivo: estudiar qué es una variable en R.
# --------------------------------------------
# En este ejercicio vamos a:
# 1. Realizar operaciones aritméticas en la consola
# 2. Asignar variables a un script en RStudio, y
# 3. Identificar distintos tipos de datos en R

#######################################
# practica 1: operaciones aritmeticas #
#######################################

# primer acertijo de redes sociales
1+1-1*(1+1-1)/1+1*(-1)

#######################################
# practica 2: asignación de variables #
#######################################

# asigna los numeros a cada fruta
mango <- 10
manzana <- 5
aguacate <- 15

# resuelve el complejo acertijo
resultado <- 2*aguacate + 4*manzana + 1.5*mango

# imprime el resultado por pantalla
resultado

##################################
# practica 3: tipos de variables #
##################################

# observa la clase del resultado
class(resultado)

# crea una variable con algún nombre
nombre <- "Rafa"

# observa la clase del nombre
class(nombre)

# es 1 mayor que 2
1 > 2

# cual es la clase de esto
class(1 > 2)

# suma nombre con resultado
nombre + resultado

# Hecho con gusto por Rafa @GonzalezGouveia
# Suscribete para más código en R https://bit.ly/2WNDhNR



VECTORES


####################
#                  #
# Copiar todo esto #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# video 05 - vectores

# Objetivo: estudiar qué es una vector en R.
# --------------------------------------------
# En este ejercicio vamos a:
# 1. Crear vectores en un script
# 2. Realizar opraciones aritméticas con vectores
# 3. Seleccionar elementos en un vector


#####################################
# práctica 1: creando vectores en R #
#####################################

# crear vector carácter con nombre de las películas
nombre <- c("Shrek", "Shrek 2", "Shrek Tercero", "Shrek: Felices por siempre")

# crear vector numérico con puntuación de las películas
puntuacion <- c(7.9, 7.2, 6.1, 6.3)

# crear vector lógico sobre si la película es posterior a 2015
posterior_2005 <- c(FALSE, FALSE, TRUE, TRUE)

####################################################
# práctica 2: operaciones aritméticas con vectores #
####################################################

# sumar 2 a la puntuación
puntuacion + 2

# dividir la puntuación entre 2
puntuacion/2

# crea la puntuación de rafa
puntuacion_de_rafa <- c(10, 9, 6, 7)

# calcular diferencia entre puntuaciones
puntuacion_de_rafa - puntuacion

# calcular la longitud del vector
length(puntuacion)

# calcular el promedio del vector puntuacion
mean(puntuacion)

###################################################
# práctica 3: selección de elementos de un vector #
###################################################

## selección basada en posición
# seleccionar la tercera película
nombre[3]

# seleccionar la primera y la última película
nombre[c(1, 4)]

## selección basada en condición lógica
# crear condición lógica
puntuacion_baja <- puntuacion < 7

# mostrar condición para ver TRUE/FALSE
puntuacion_baja

# mostrar puntuaciones bajas
puntuacion[puntuacion_baja]

# mostrar nombres de películas con puntuaciones bajas
nombre[puntuacion_baja]

# Hecho con gusto por Rafa @GonzalezGouveia
# Suscribete para más código en R https://bit.ly/2WNDhNR

MATRICES


####################
#                  #
# Copiar todo esto #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# video 06 - matrices

# Objetivo: estudiar qué es una matriz en R.
# --------------------------------------------
# En este ejercicio vamos a:
# 1. Crear matrices en un script
# 2. Realizar opraciones aritméticas con matrices
# 3. Seleccionar elementos en una matriz


#####################################
# práctica 1: creando matrices en R #
#####################################

# crear vectores para las columnas de la matriz
warner <- c(20, 20, 16, 17, 17, 22, 17, 18, 19)
disney <- c(11, 13, 11, 8, 12, 11, 12, 8, 10)
fox <- c(18, 15, 15, 15, 16, 17, 15, 13, 11)
# fuente https://www.the-numbers.com/market/

# creando matriz a partir de vectores
peliculas <- matrix(c(warner, disney, fox),
                    nrow = 9,
                    ncol = 3)

# imprimir matriz en consola
peliculas

# agregar nombres de columnas
colnames(peliculas) <- c('warner', 'disney', 'fox')

# agregar nombres de filas/renglones
rownames(peliculas) <- c('2010', '2011', '2012', '2013', '2014', '2015', '2016', '2017', '2018')

# imprimir matriz por segunda vez
peliculas

####################################################
# práctica 2: operaciones aritméticas con matrices #
####################################################

# resta 5 a la matriz
peliculas - 5

# sumar matriz consigo misma
peliculas + peliculas

# multiplicar la matriz consigo mismo
peliculas * peliculas

###################################################
# práctica 3: selección de elementos de un matriz #
###################################################

# seleccionar un elemento de la matriz
peliculas[3, 2]
peliculas['2012', 'disney']

# seleccionar más de un elemento de la matriz
peliculas[c(3,4), c(2,3)]
peliculas[c(3,4), c('disney', 'fox')]

# seleccionar una fila o renglón
peliculas[3,]
peliculas['2012',]

# seleccionar una columna
peliculas[, 2]
peliculas[, 'disney']

# Hecho con gusto por Rafa @GonzalezGouveia
# Suscribete para más código en R https://bit.ly/2WNDhNR

FACTORES


####################
#                  #
# Copiar todo esto #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# video 07 - factores

# Objetivo: estudiar qué son factores en R.
# --------------------------------------------
# En este ejercicio vamos a:
# 1. Crear factores en R
# 2. Recodificar niveles de un factor
# 3. Ordenar niveles de un factor


#####################################
# correr esto antes de empezar...   #
#####################################

# crear vector de ventas
tallas <- c('m', 'g', 'S', 'S','m', 'M')

# intentar graficar
plot(tallas)

###################################
# práctica 1: crear factores en R #
###################################

# crear factor de un vector
tallas_factor <- factor(tallas)

# graficar factor
plot(tallas_factor)

# mirar niveles de factor
levels(tallas_factor)

######################################
# práctica 2: recodificando factores #
######################################

# creando factor recodificado
tallas_recodificado <- factor(tallas,
                              levels = c("g", "m", "M", "S"),
                              labels = c("G", "M", "M", "S"))

# graficando ventas_recodificado
plot(tallas_recodificado)

#############################################
# práctica 3: ordenando niveles de factores #
#############################################

# ordenando niveles (copiar factor anterior)
tallas_ordenado <- factor(tallas,
                          ordered = TRUE,
                          levels = c("S", "m", "M", "g"),
                          labels = c("S", "M", "M", "G"))

# viendo el orden en los niveles
tallas_ordenado

# graficando el factor ordenado
plot(tallas_ordenado)

# Hecho con gusto por Rafa @GonzalezGouveia
# Suscribete para más código en R https://bit.ly/2WNDhNR

DATAFRAME


####################
#                  #
# Copia todo esto! #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# video 08 - dataframes

# Objetivo: estudiar qué son dataframes en R.
# --------------------------------------------
# En este ejercicio vamos a:
# 1. Crear dataframes en R
# 2. Ordenar dataframes por columnas
# 3. Seleccionar elementos de un dataframe

#####################################
# correr esto antes de empezar...   #
#####################################

# vectores sobre peliculas de Shrek
nombre <- c("Shrek", "Shrek 2", "Shrek Tercero", "Shrek: Felices por siempre")
puntuacion <- c(7.9, 7.2, 6.1, 6.3)
posterior_2005 <- c(FALSE, FALSE, TRUE, TRUE)

#######################################
# práctica 1: crear un dataframe en R #
#######################################

# crear dataframe de vectores
peliculas_df <- data.frame(nombre,
                           puntuacion,
                           posterior_2005)

# mostrar dataframe
head(peliculas_df)

# cambiar nombre de dataframe
names(peliculas_df) <- c('NOMBRE',
                         'PUNTUACION',
                         'POSTERIOR_2005')

# mostrar dataframe (sí, otra vez)
peliculas_df

#####################################################
# práctica 2: Seleccionar elementos de un dataframe #
#####################################################

# seleccionar un elemento del dataframe
peliculas_df[3, 2]
peliculas_df[3, 'PUNTUACION']

# seleccionar más de un elemento del dataframe
peliculas_df[c(3,4), c(2,3)]
peliculas_df[c(3,4), c('PUNTUACION', 'POSTERIOR_2005')]

# seleccionar una fila o renglón del dataframe
peliculas_df[3,]

# seleccionar una columna del dataframe
peliculas_df[, 2]
peliculas_df[, 'PUNTUACION']
peliculas_df$PUNTUACION

#################################
# práctica 3: ordenar dataframe #
#################################

# mostrar el dataframe
peliculas_df

# mostrar el indice de la columna de puntuacion con order
order(peliculas_df$PUNTUACION)

# funcion order (menor a mayor)
orden_menor_mayor <- order(peliculas_df$PUNTUACION,
                           decreasing = FALSE)


# mostrar el dataframe ordenado
peliculas_df[orden_menor_mayor, ]

# funcion order (mayor a menor)
orden_mayor_menor <- order(peliculas_df$PUNTUACION,
                           decreasing = TRUE)

# mostrar el dataframe ordenado
peliculas_df[orden_mayor_menor, ]

# guardar el dataframe ordenado
df_ordenado <- peliculas_df[orden_mayor_menor, ]

# Hecho con gusto por Rafa @GonzalezGouveia
# Para aprender más sobre R
# Suscribete en YouTube  https://bit.ly/2WNDhNR

LISTAS


####################
#                  #
# Copia todo esto! #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia
# Para aprender más sobre R
# Suscribete en YouTube  https://bit.ly/2WNDhNR

# video 09 - listas

# Objetivo: estudiar qué son las listas en R
# -------------------------------------------
# En este ejercicio vamos a:
# 1. Crear listas en R
# 2. Seleccionar elementos de una lista
# 3. Identificar listas en R

#####################################
# correr esto antes de empezar...   #
#####################################

# Cargando datos de videos anteriores
# informacion peliculas shrek. Ver video --> https://bit.ly/2LaUWbo
nombre <- c("Shrek", "Shrek 2", "Shrek Tercero", "Shrek: Felices por siempre")
puntuacion <- c(7.9, 7.2, 6.1, 6.3)
posterior_2005 <- c(FALSE, FALSE, TRUE, TRUE)
# informacion estrenos de peliculas. Ver video --> https://bit.ly/2KDKCJE
warner <- c(20, 20, 16, 17, 17, 22, 17, 18, 19)
disney <- c(11, 13, 11, 8, 12, 11, 12, 8, 10)
fox <- c(18, 15, 15, 15, 16, 17, 15, 13, 11)

# crear diferentes estructuras de datos en R
vector_titulos <- nombre
matriz_peliculas <- matrix(c(warner, disney, fox),
                           nrow = 9,
                           ncol = 3)
peliculas_df <- data.frame(nombre,
                           puntuacion,
                           posterior_2005)

####################################
# práctica 1: crear una lista en R #
####################################

# crear lista en R
lista_curso <- list(vector_titulos,
                    matriz_peliculas)

# mostrar lista
lista_curso

# cambiar nombre de dataframe
names(lista_curso) <- c('vector',
                        'matriz')

# mostrar lista (sí, otra vez)
lista_curso

##################################################
# práctica 2: Seleccionar elementos de una lista #
##################################################

# Seleccionar vector de la lista
lista_curso[['vector']] # recomiendo usar este
lista_curso$vector # no recomiendo usar este porque confunde con df

# Seleccionar el tercer elemento del vector de la lista
lista_curso[['vector']][3]

# Seleccionar fila 5 y columna 3 de la matriz de la lista
lista_curso[['matriz']][5,3]

######################################################
# práctica 3: agregar/eliminar elementos a una lista #
######################################################

# agregar dataframe a lista
lista_curso[['dataframe']] <- peliculas_df

# revisar que está el dataframe
lista_curso

# eliminar un elemento de lista
lista_curso[['vector']] <- NULL

# revisar que no está el vector
lista_curso
# Hecho con gusto por Rafa @GonzalezGouveia
# Para aprender más sobre R
# Suscribete en YouTube  https://bit.ly/2WNDhNR

IMPORTAR EXCEL


####################
#                  #
# Copia todo esto! #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# T2V2 - importar datos de excel a R

# Objetivo: aprender a importar datos de excel a R
# ------------------------------------------------
# En este ejercicio vamos a aprender:
# 1. Que necesitas antes de empezar
# 2. Cómo importar datos utilizando código de R
# 3. Cómo importar datos con la interfaz de RStudio


#####################################
# 1. Que necesitas antes de empezar #
#####################################

# instalar paquete readxl
install.packages("readxl")

# cargar paquete readxl
library(readxl)

# buscar la ruta del archivo de excel


# Copiar ruta de la consola y guardar en variable
path_excel <- "D:\\gapminder_importar_a_r.xlsx"

# como mirar las hojas de tu excel
excel_sheets(path_excel)

#####################################
# 2. importar excel con código de R #
#####################################

# importar caso ideal
datos_excel <- read_excel(path_excel)

# importar caso medio
> datos_excel_caso_medio <- read_excel(path_excel, sheet = "Hoja2")


# importar caso dificil
datos_excel_caso_alto <- read_excel(path_excel, sheet = "Hoja3", range = "C7:F17")



##########################################
# 3. importar excel con interfaz RStudio #
##########################################

# ir a File > Import Dataset > From Excel...



# fin




GRAFICAR EN R


####################
#                  #
# Copia todo esto! #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# T2V4 - graficar en R

# Objetivo: diferenciar formas de graficar en r
# ------------------------------------------------
# En este ejercicio vamos a:
# 1. graficar con base graphics
# 2. graficar con ggplot2

# datos de la primera parte
year <- c('2010', '2011', '2012', '2013', '2014', '2015', '2016', '2017', '2018')
disney <- c(11, 13, 11, 8, 12, 11, 12, 8, 10)

# graficando con codigo
plot( x = year, y = disney)


# editando la grafica
plot(x = year,
     y = disney,
     main = 'Disney',
     xlab = '',
     ylab = '',
     col = 'cornflowerblue',
     pch = 16,
     panel.first = grid()
     )




# Graficas con ggplot2
# install.package(ggplot2) # para instalar ggplot2
library(ggplot2)

# hacer dataframe
peliculas <- data.frame(year,
                        disney)

# graficar utilizando ggplot
ggplot(data = peliculas,
       mapping = aes(x = year,
                     y = disney))+
        geom_point()+
  labs(title = 'disney')
      






# fin

#https://www.r-graph-gallery.com/
#https://github.com/holtzy


#Otros paquetes:
#→flexdashboard
#→rgl (gráficos 3D)
#→plotly (gráficos interactivos)
#→Leaflet (para mapas)
#→RColorBrewer (todo lo relacionado a manejo de color avanzado)
#→Shiny (Dashboard o aplicaciones Web)


HISTOGRAMAS



####################
#                  #
# Copia todo esto! #
#                  #
####################
# Hecho con gusto por Rafa @GonzalezGouveia

# T2V5 - histogramas en R

# Objetivo: graficar histogramas en r
# ------------------------------------------------
# En este ejercicio vamos a:
# 1. histogramas con base graphics
# 2. histogramas con ggplot2

# cargando los datos
data("mtcars")

# haciendo histograma básico
hist(mtcars$hp)

# editando histograma
hist(mtcars$hp,
     #breaks = 50,
     breaks = seq(50,350,50),
     col = 'darkgray',
     border = 'gray10',
     main = 'titulo',
     xlab = 'variable x',
     ylab = 'conteo'
     )



# cargar ggplot2
# install.packages("ggplot2")
library(ggplot2)

# hacer un histograma en ggplot2
ggplot(data = mtcars,
       mapping = aes(x = hp)) +
  geom_histogram(bins = 9)
      
# haciendo más cosas interesantes
ggplot(data = mtcars,
       mapping = aes(x = hp,
                     fill = factor(vs))) +
  geom_histogram(bins = 9,
                 position = 'identity',
                 alpha = 0.8) +
  labs(title = 'titulo',
       fill = 'vs motor',
       x = 'caballos de fuerza',
       y = 'conteos',
       subtitle = 'subtitulo',
       caption = 'fuente de datos R'
       )







# fin



REFERENCIAS

https://www.rpubs.com/ousuga/graph_interactive_rday

https://es.r4ds.hadley.nz/visualizaci%C3%B3n-de-datos.html


No hay comentarios:

Publicar un comentario