UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERÍA EN ESTADÍSTICA

GRUPO 1

Autores: Alexander Cueva, Alexander Jiménez, Ismael Montesdeoca, Saúl Quishpe

Docente: Ing. Francisco Valverde

Ejercicios con Listas en R

Listas en RStudio:

Se tiene la siguiente información relacionada a los datos de una empresa comercial:

Listado de productos con su stock y precios:

Producto <- list(Producto = c("Televisor 32", "Televisor LED 55", "Impresora Matricial", "Parlantes", "Impresora de Inyección"),
                 Stock = c(4,5,8,3,10),
                 PVP = c(250, 680, 210, 89, 280),
                 IVA = c(TRUE,TRUE, FALSE, FALSE, TRUE))
Producto
## $Producto
## [1] "Televisor 32"           "Televisor LED 55"       "Impresora Matricial"   
## [4] "Parlantes"              "Impresora de Inyección"
## 
## $Stock
## [1]  4  5  8  3 10
## 
## $PVP
## [1] 250 680 210  89 280
## 
## $IVA
## [1]  TRUE  TRUE FALSE FALSE  TRUE
Producto<-data.frame(Producto)
Producto
##                 Producto 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 Impresora de Inyección    10 280  TRUE

Marcas de Productos con los que trabaja la empresa

Marcas = list(c("Sony", "Logitech", "Epson"))
Marcas
## [[1]]
## [1] "Sony"     "Logitech" "Epson"

Ventas por mes de la empresa

Ventas <- list(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
## $Mes
## [1] "Enero"   "Febrero" "Marzo"   "Abril"   "Mayo"   
## 
## $Neto
## [1] 23600 12340  8900  5600  9600
## 
## $IVA
## [1] 1780 1350  970  450  990
## 
## $Total
## [1] 25380 13690  9870  6050 10590
Ventas<-data.frame(Ventas)
Ventas
##       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

Con la informacion indicada crear una lista que contenga toda la informacion de la empresa.

1.- Colocar nombres a cada uno de los objetos de la lista

EmpresaComercial <- list("Listado de productos con su stock y precios" = Producto,
                         "Marcas de Productos con los que trabaja la empresa" = Marcas,
                         "Ventas por mes de la empresa" = Ventas)
EmpresaComercial
## $`Listado de productos con su stock y precios`
##                 Producto 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 Impresora de Inyección    10 280  TRUE
## 
## $`Marcas de Productos con los que trabaja la empresa`
## $`Marcas de Productos con los que trabaja la empresa`[[1]]
## [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

2.- Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa

EmpresaComercial[[2]]
## [[1]]
## [1] "Sony"     "Logitech" "Epson"

3.- Escribir un comando que muestre los datos de las ventas de Abril de la empresa

EmpresaComercial[[3]][[4,4]]
## [1] 6050

4.- A la lista anterior agregar la siguiente informacion de proveedores de la empresa:

Proveedor <- list(Proveedor = c("Importadora del Austro", "Comercializadora del Sur",
                                "ABC & Asociados"),
                  Ciudad = c("Cuenca", "Loja", "Quito"),
                  Telefono = c(2222222, 7777777, 8888888))
Proveedor
## $Proveedor
## [1] "Importadora del Austro"   "Comercializadora del Sur"
## [3] "ABC & Asociados"         
## 
## $Ciudad
## [1] "Cuenca" "Loja"   "Quito" 
## 
## $Telefono
## [1] 2222222 7777777 8888888
Proveedor <- data.frame(Proveedor)
Proveedor
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
EmpresaComercial <- list("Listado de productos con su stock y precios" = Producto,
                         "Marcas de Productos con los que trabaja la empresa" = Marcas,
                         "Ventas por mes de la empresa" = Ventas, "Proveedores"= Proveedor)
EmpresaComercial
## $`Listado de productos con su stock y precios`
##                 Producto 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 Impresora de Inyección    10 280  TRUE
## 
## $`Marcas de Productos con los que trabaja la empresa`
## $`Marcas de Productos con los que trabaja la empresa`[[1]]
## [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   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

5.- Eliminar de la lista el objeto que contiene las marcas de los productos

EmpresaComercial[[2]] <- NULL
EmpresaComercial
## $`Listado de productos con su stock y precios`
##                 Producto 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 Impresora de Inyección    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   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888