Colocar nombres a cada unos de los objetos de la lista

mi_df <- data.frame("Producto" = c("Televisor 32","Televisor LED 55",
                    "Impresora Matricial", "Parlantes", "Impresora Inyeccion"),
                    "stock" = c(4,5,8,3,10), "PVP" = c(250,680,210,89,280),
                    "IVA" = c(T, T, F, F, T))

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

mi_df
##              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 Inyeccion    10 280  TRUE
marca <- c("Sony","Logitech","Epson")
marca
## [1] "Sony"     "Logitech" "Epson"
vt <- data.frame("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))
vt
##       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 los nombres a cada uno de los objetos de la lista

mi_lista <- list("Listado de productos con su stock y precios" = mi_df,
                 "Marcas de productos con las que trabaja la empresa" = marca,
                 "Ventas por mes de la empresa" = vt)
mi_lista
## $`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 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

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

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

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

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

4.- A la lista anterior agregar la siguiente información de proveedores de la empresa:

Prov <- data.frame("Proveedor" = c("Importadora del Austro","Comercializadora del Sur",
                                   "ABC & Asociados"), "Ciudad"= c("CuencA", "Loja", "Quito"),
                   "Teléfono" = c("2222222","7777777","8888888"))
Prov
##                  Proveedor Ciudad Teléfono
## 1   Importadora del Austro CuencA  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
mi_lista <- list("Listado de productos con su stock y precios" = mi_df,
                 "Marcas de productos con las que trabaja la empresa" = marca,
                 "Ventas por mes de la empresa" = vt,
                 "Proveedores" = Prov)
Prov
##                  Proveedor Ciudad Teléfono
## 1   Importadora del Austro CuencA  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
mi_lista
## $`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 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 Teléfono
## 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 continen las marcas de los productos

mi_lista[["Marcas de productos con las que trabaja la empresa"]] <- NULL
mi_lista
## $`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 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 Teléfono
## 1   Importadora del Austro CuencA  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888