UNIVERSIDAD CENTRAL DEL ECUADOR

                            Facultad de Ciencias Económicas

                        Colaborador Ing. Francisco Valverde PhD
               
                      

R y R STUDIO

R es un software que fue diseñado para hacer análisis estadísticos y gráficas y es un software de libre acceso. RStudio es un entorno de desarrollo integrado para el lenguaje de programación R, dedicado a la computación estadística y gráficos. Incluye una consola, editor de sintaxis que apoya la ejecución de código, así como herramientas para el trazado, la depuración y la gestión del espacio de trabajo. está disponible para Windows, Mac y Linux o para navegadores conectados a RStudio Server o RStudio Server Pro (Debian / Ubuntu, RedHat / CentOS, y SUSE Linux).


EJERCICIOS EN R

Ejercicio 1: Se tiene la siguiente información relacionada a los datos de una empresa comercial: Con la información indicada crear una lista que contenga toda la información de la empresaColocar nombres a cada uno de los onjetos de la lista.
Listado de productos con su stock y precios:

Marcas de Productos con las que trabaja la empresa:

Ventas por mes de la empresa:


Solución y ejecución de ejercicios

Se asigna un vector para cada uno de los componentes del ejercicio de la empresa comercial, primero el vector productos con sus componentes y de la misma forma con los demás elementos listados como el STOCK, PVP, IVA, Marcas y las ventas por mes.
Comandos
La función list (), especificando los objetos que deseas unir dentro de tu lista.
data.frame(). Esta función nos pedirá un número de vectores igual al número de columnas que deseemos.Todos los vectores que proporcionemos deben tener el mismo largo.
Se utiliza el data.frame para realizar una compilación en forma de tabla con los datos de la empresa comercial como, la lista de productos, las marcas y las ventas por mes.
Ejecución
# Listado de productos con su stock y precios: 

Productos<-c("Televisor 32","Televisor LED 55 ","Impresora Matricial",
             "Parlantes","Ipresoras Inyeccion" )
Stock<-c(4,5,8,3,10)  
PVP<-c(250,680,210,89,280)
IVA<-c(TRUE,TRUE,FALSE,FALSE,TRUE)

Lista_Productos<-data.frame(Productos,Stock,PVP,IVA)
Lista_Productos
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
# Marcas de Productos con las que trabaja la empresa

Marcas_Producto<-c("Sony","Logitech","Epson")
Marcas_Producto
## [1] "Sony"     "Logitech" "Epson"
# Ventas por mes de la empresa

Mes<-c("Enero","Febrero","Marzo","Abril","Mayo")
Neto<-c(23600,12340,8900,5600,9600)
IVA<-c(1780,1350,970,450,990)
TOTAL<-c(25380,13690,9870,6050,10590)

Ventas_por_mes<-data.frame(Mes,Neto,IVA,TOTAL)
Ventas_por_mes
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
Empresa_Comercial<-list(Lista_Productos,Marcas_Producto,Ventas_por_mes)
Empresa_Comercial
## [[1]]
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## [[2]]
## [1] "Sony"     "Logitech" "Epson"   
## 
## [[3]]
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
names(Empresa_Comercial)<-c("Listado de productos con su stock y precios:",
                            "Marcas de Productos con las que trabaja la empresa",
                            "Ventas por mes de la empresa")
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con las que trabaja la empresa`
## [1] "Sony"     "Logitech" "Epson"   
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
Ejercicio 2: Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa:

La función print() se emplea para imprimir la salida de datos del programa en R.
Los corchetes [] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar o presentar.
Ejecución
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con las que trabaja la empresa`
## [1] "Sony"     "Logitech" "Epson"   
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
print("LISTADO DE MARCAS")
## [1] "LISTADO DE MARCAS"
print(Empresa_Comercial[[2]])
## [1] "Sony"     "Logitech" "Epson"
Ejercicio 3: Escribir un comando que muestre los datos de las ventas de Abril de la empresa:

La función print() se emplea para imprimir la salida de datos del programa en R.
Los corchetes [[]] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar, demás del dato especificado en la búsqueda.
Ejecución
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con las que trabaja la empresa`
## [1] "Sony"     "Logitech" "Epson"   
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
print("Ventas de Abril de la empresa")
## [1] "Ventas de Abril de la empresa"
print(Empresa_Comercial[[3]][[4,4]])
## [1] 6050
Ejercicio 4: A la lista anterior agregar la siguiente información de proveedores de la empresa:
Proveedores:

___

data.frame(). Esta función nos pedirá un número de vectores igual al número de columnas que deseemos.Todos los vectores que proporcionemos deben tener el mismo largo.
Ejecución
Proveedor<-c("Importador del Austro","Comercializador del Sur","ABC & Asociados")
Ciudad<-c("Cuenca","Loja","Quito")
Telefono<-c(2222222,7777777,8888888)

Proveedores<-data.frame(Proveedor,Ciudad,Telefono)
Proveedores
##                 Proveedor Ciudad Telefono
## 1   Importador del Austro Cuenca  2222222
## 2 Comercializador del Sur   Loja  7777777
## 3         ABC & Asociados  Quito  8888888
Empresa_Comercial$Proveedores<-Proveedores
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con las que trabaja la empresa`
## [1] "Sony"     "Logitech" "Epson"   
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
## 
## $Proveedores
##                 Proveedor Ciudad Telefono
## 1   Importador del Austro Cuenca  2222222
## 2 Comercializador del Sur   Loja  7777777
## 3         ABC & Asociados  Quito  8888888
Ejercicio 5: Eliminar de la lista el objeto que contiene las marcas de los productos:

Los corchetes [[]] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar, demás del dato especificado en la búsqueda.
Como conocemos la ubicación del objeto dentro de la lista que queremos eliminar procedemos a usar NULL
Ejecución
Empresa_Comercial[[2]] <- NULL
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
##             Productos Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2   Televisor LED 55      5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Ipresoras Inyeccion    10 280  TRUE
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA TOTAL
## 1   Enero 23600 1780 25380
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
## 
## $Proveedores
##                 Proveedor Ciudad Telefono
## 1   Importador del Austro Cuenca  2222222
## 2 Comercializador del Sur   Loja  7777777
## 3         ABC & Asociados  Quito  8888888