1. Carga de librerias

library(dplyr)
## 
## Attaching package: '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 de R

# Numerico
precio <- 10.5
class(precio)
## [1] "numeric"
# Entero
cantidad <- 200L
class(cantidad)
## [1] "integer"
# Cadena de texto
universidad <- "Universidad de El Salvador"
class(universidad)
## [1] "character"
# Logico
es_estudiante <- TRUE
class(es_estudiante)
## [1] "logical"

3. Comando de coercion

# Tenemos un número guardado como texto
salario_texto <- "1200"
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
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

4. Operadores artmeticos

# Variables iniciales
precio_producto <- 20
unidades_vendidas <- 5

# Multiplicación 
ingreso_total <- precio_producto * unidades_vendidas
print(ingreso_total)
## [1] 100
# División y Resta 
impuesto <- ingreso_total / 13 
# Calculamos un 13%
ingreso_neto <- ingreso_total - impuesto
print(ingreso_neto)
## [1] 92.30769
# Exponente y Raíz cuadrada 
area_cuadrada <- 4**2
raiz_area <- sqrt(area_cuadrada)

5. Operadores Relacionales

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