Clase 1: Ejemplos Prácticos

Carga de Librerías

library(dplyr)
library(ggplot2)

# Númerico (numeric) 

Precio <- 22.99
class(Precio)

## [1] "numeric"

# Entero (integer)

Cantidad <- 12L
class(Cantidad)

## [1] "integer"

# Cadena de Texto (character)

Zapatos <- "Payless"
class(Zapatos)

## [1] "character"

# Lógico (logical)

Consumidor_final <- TRUE
class(Consumidor_final)

## [1] "logical"

# Número guardado como texto
Salario_text <- "900"
class(Salario_text)

## [1] "character"

# Texto convertido a número real
Salario_num <- as.numeric(Salario_text)
class(Salario_num)

## [1] "numeric"

# Número 
# 0 = False y 1 = True

# Conversión
as.logical(0)

## [1] FALSE

as.logical(1)

## [1] TRUE

Total_pago <- Precio*Cantidad
print(Total_pago)

## [1] 275.88

Precio_sin_iva <- Total_pago/1.13
round(Precio_sin_iva,2)

## [1] 244.14

Monto_iva <- Total_pago - Precio_sin_iva
round(Monto_iva,2)

## [1] 31.74

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

# Comparación de igualdad y diferencia

Precio == 20 # ¿Es el precio igual a 30?

## [1] FALSE

Precio != 20 # ¿Es el precio diferente de 30?

## [1] TRUE

# Comparación de magnitud

Total_pago > 300 # ¿Es el total a pagar mayor a 50?

## [1] FALSE

Cantidad <= 12 # ¿Son las unidades vendidas menores o iguales a 12?

## [1] TRUE