#Librerias

#cargar librerias
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.5.3
## 
## 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)

#Tipos de datos en R

#Numeric0 (numeric)
precio <- 16.9
class(precio)
## [1] "numeric"
#entero (integer) se usa la letra "L" al final del numero
cantidad <- 10L
class(cantidad)
## [1] "integer"
#cadena de texto (character)
nombre <- "Giselle"
class(nombre)
## [1] "character"
#logico (logical)
verdadero <- TRUE
falso <- FALSE
class(verdadero)
## [1] "logical"

#Comandos de Coerción

#tenemos un numero guardado como texto
salario_texto <- "2000"
#convertimos el texto a numero
salario_numero <- as.numeric(salario_texto)

#lo convertimos a numero real
salario_num <- as.numeric(salario_texto)
class(salario_num)
## [1] "numeric"
#convertimos un numero logico (0 es FALSE y 1 es TRUE)
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

#Operadores aritmeticos

#Variables iniciales
precio_a <- 10
precio_b <- 5
unidades_vendidas <- 8

#multipicacion (*)
total_ventas <- precio_a * unidades_vendidas
print(total_ventas)
## [1] 80
#Division (/) y resta (-)
impuesto <- total_ventas/13
ingreso_neto <- total_ventas - impuesto
print(ingreso_neto)
## [1] 73.84615
#exponenciacion (^) y raiz cuadrada (sqrt())
precio_final <- precio_a^2
raiz_precio <- sqrt(precio_a)

#Operadores racionales

#comparacion de igualdad y diferencia
precio_a == precio_b
## [1] FALSE
precio_a != precio_b
## [1] TRUE
ingreso_neto > 100
## [1] FALSE
unidades_vendidas <= 10
## [1] TRUE

#bibiliografia

Aprende lo basico de R pubs