# 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)
# 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"
# 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
# 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)
# 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
Video de referencia Materia de apoyo https://www.youtubeeducation.com/watch?v=6Qj8yBFgT9Q