1. Carga de librerias

# Cargar librerías esenciales
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

# Numérico (numeric)
precio_cafe <- 3.75
class(precio_cafe)
## [1] "numeric"
# Entero (integer)
tazas_stock <- 50L
class(tazas_stock)
## [1] "integer"
# Cadena de texto (character)
cafeteria <- "Café El Volcán"
class(cafeteria)
## [1] "character"
# Lógico (logical)
local_abierto <- TRUE
class(local_abierto)
## [1] "logical"

3. comandos de coercion

# Convertir texto a número
mesa_texto <- "12"
class(mesa_texto)
## [1] "character"
mesa_num <- as.numeric(mesa_texto)
class(mesa_num)
## [1] "numeric"
# Convertir a lógico
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

4. Operadores Aritmeticos

# Variables iniciales
precio_producto <- 25
unidades_vendidas <- 4

# Multiplicación (*)
ingreso_total <- precio_producto * unidades_vendidas
print(ingreso_total)
## [1] 100
# División (/) y Resta (-)
impuesto <- ingreso_total / 10
ingreso_neto <- ingreso_total - impuesto
print(ingreso_neto)
## [1] 90
# Exponente (^) y Raíz cuadrada (sqrt)
area_cuadrada <- 5^2
raiz_area <- sqrt(area_cuadrada)

5. Operadores Relacionales

# Comparaciones de igualdad y diferencia
precio_producto == 30   # ¿Es el precio igual a 30?
## [1] FALSE
precio_producto != 30   # ¿Es el precio diferente de 30?
## [1] TRUE
# Comparaciones de magnitud
ingreso_total > 50      # ¿Es el ingreso mayor a 50?
## [1] TRUE
unidades_vendidas <= 4  # ¿Son las unidades vendidas menores o iguales a 4?
## [1] TRUE

6. Referencia

Video de referencia Materia de apoyo https://www.youtubeeducation.com/watch?v=6Qj8yBFgT9Q