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