Colaborador: Mgtr.Fransisco Valverde

TALLER 7

  • Se tiene la siguiente información relacionada a los datos de una empresa comercial:
  • 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
## [[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

Con la información indicada crear una lista que contenga toda la información de la empresa:

Paso 1: El comando list() permite crear listas con vectores para tener información y así almacenar distintas estructuras que deseamos en una de las tablas anteriormente presentadas

Paso 2: Desarrollamos un lista con cada una de las tablas presentadas como taller

Paso 3: Les asignamos con un nombre y ha estas le aplicamos un data.frame() para ver con mas detalle las tablas

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<-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 = list(c("Sony", "Logitech", "Epson"))
Marcas
## [[1]]
## [1] "Sony"     "Logitech" "Epson"
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<-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

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

Producto = "Listado de productos con su stock y precios"
Marcas = "Marcas de Productos con los que trabaja la empresa"
Ventas = "Ventas por mes de la empresa"

Le asignamos un nombre y a nuestras tablas les unimos con su respectivo nombre

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

Los corchetes [] nos permite seleccionar un dato especifico o un elemento dentro de nuestra tabla

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 información de proveedores de la empresa:

##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Paso 1: Creamos una lista de nuestra nueva tabla que seria de Proveedor

Paso 2: Le asignamos con un data.frame() y le unimos a nuestra lista anterior con nombre

Proveedor <- list(Proveedor = c("Importadora del Austro", "Comercializadora del Sur","ABC & Asociados"),
                 Ciudad = c("Cuenca", "Loja", "Quito"),
                 Telefono = c(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

Paso 1: Con corchetes [] seleccionamos el dato que deseamos

Paso 2: Le asignamos ha este dato con NULL que me permite eliminarle de la lista de nuestro conjunto de datos.

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