[@youtubevideo]

1. Carga de Librerías

# Carga de librerías escenciales
library(dplyr)
## 
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)

2. Tipos de Datos en R

# Numerico (numeric)
precio <- 34.7
class(precio)
## [1] "numeric"
# Entero (integer) - Se usa la letra 'L' al final

cantidad <- 2026L
class(cantidad)
## [1] "integer"
# Cadena de texto (character)

universidad <- "Universidad de El Salvador"
class(universidad)
## [1] "character"
# Lógico (logical)

es_estudiante <- TRUE
class(es_estudiante)
## [1] "logical"

3. Comandos de Coerción

# Tenemos un número guardado como texto

salario_texto <- "300"
class(salario_texto)
## [1] "character"
# Lo convertimos a número real

salario_num <- as.numeric(salario_texto)
class(salario_num)
## [1] "numeric"
# Convertimos un número a lógico (0 es FALSE, cualquier otro es TRUE)
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

4. Operadores Artiméticos

# Variables iniciales

precio_producto <- 77
unidades_vendidas <- 21

# Multiplicación (*)

ingreso_total <- precio_producto * unidades_vendidas
print(ingreso_total)
## [1] 1617
# Divisiòn (/) y Resta (-)

impuesto <- ingreso_total / 10 # Calculamos un 10%
ingreso_neto <- ingreso_total - impuesto
print(ingreso_neto)
## [1] 1455.3
# Exponente (^) y Raíz cuadrada (sqrt)

area_cuadrada <- 7^2
raiz_area <- sqrt(area_cuadrada)

5. Operadores Racionales

# Comparaciones de igualdad y diferencia

precio_producto == 70 # ¿Es el precio igual a 70?
## [1] FALSE
precio_producto != 70 # ¿Es el precio distinto de 70?
## [1] TRUE
# Comparaciones de magnitud

ingreso_total > 300 # ¿Es el ingreso mayor a 300?
## [1] TRUE
unidades_vendidas <= 21 # ¿ Son las unidades vendidas menores o iguales a 21?
## [1] TRUE