Calculo de indicadores simples y tranformcion de la informacion

Carga de librerias

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)

2. Tipos de datos en R

# Numérico (numeric)
litros_agua_dia <- 2.5
class(litros_agua_dia)
## [1] "numeric"
# Entero (integer): se usa la letra L al final
Alumnos_aprobados<-12L
class(Alumnos_aprobados)
## [1] "integer"
Docetes<-35L
class(Docetes)
## [1] "integer"
# Cadena de texto: Caracter
Explicacion<-"Salario real vc Salario Nominal"
class(Explicacion)
## [1] "character"
# Logico o Logical en ingles
Hombre<-T
class(T)
## [1] "logical"
Mujer<-F
class(Mujer)
## [1] "logical"

3. Comandos de coercion

# Tenemos un numero guardado como texto
porcentajeIVA<-"0.13"
class(porcentajeIVA)
## [1] "character"
# Convertir porcentajeIVA a numero real
porcentajeIVA_numerico<-as.numeric(porcentajeIVA)
class(porcentajeIVA_numerico)
## [1] "numeric"
# Convertimos un número a lógico (0 es FALSE, cualquier otro es TRUE)
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

4. Operadores Aricmeticos

salario<-400
numero_de_empleados<-75

Pago_total_salario<-salario*numero_de_empleados
Pago_total_salario
## [1] 30000
# Division y resta
# Si en una fabrica de zapatos se producen 2300 pares y se recibe un ingreso de 4000 dolares por el total vendido, ?cual es el precio unitario de cada par de zapato?, Si el costo verticalmente integrado de cada par de zapatos como lo plante shaik es de 1.25 dolares, ?cual es la ganancia por unidad 
Produccion_zapatos<-2300
Ingreso_zapatos<-4000
Precio_unitario<-4000/2300
print(Precio_unitario)
## [1] 1.73913
costo_unitario<-1.25
Ganancia_unitaria<-Precio_unitario-costo_unitario
Ganancia_unitaria
## [1] 0.4891304

** El precio Unitario es de 1.74 dolares La ganancia por cada par de zapatos es de 0.49 centavos de dolar.**

# Exponente (^) y Raíz cuadrada (sqrt)
# Si en un terreno es de 600 metros de ancho y 600 metros de largo, cual es el area cuadrada del terreno?
area_terreno<-600**2
print(area_terreno)
## [1] 360000

El terreno tiene un area de 360000 metros cuadrados

5. Operadores Relacionales

# Comparacion de igualdad y diferencia
area_terreno==360000 #?Es el area igual a 360000
## [1] TRUE
area_terreno!=100000
## [1] TRUE
# Comparacion de magnitud
Precio_unitario>0
## [1] TRUE
Precio_unitario<0
## [1] FALSE
# Comparativo
Ganancia_unitaria>=0.48
## [1] TRUE
costo_unitario<=1.2
## [1] FALSE