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

Producto<-c("Televisor 32","Televisor LED","Impresora Matricial","Parlantes","Impresora Inyeccion")
Producto
## [1] "Televisor 32"        "Televisor LED"       "Impresora Matricial"
## [4] "Parlantes"           "Impresora Inyeccion"
Stock<-c(4,5,8,3,10)
Stock
## [1]  4  5  8  3 10
PVP<-c(250,680,210,89,280)
PVP
## [1] 250 680 210  89 280
IVA_P<-c(TRUE,TRUE,FALSE,FALSE,TRUE)
IVA_P
## [1]  TRUE  TRUE FALSE FALSE  TRUE
Listado_productos<-data.frame(Producto,Stock,PVP,IVA_P)
Listado_productos
##              Producto Stock PVP IVA_P
## 1        Televisor 32     4 250  TRUE
## 2       Televisor LED     5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresora Inyeccion    10 280  TRUE
Marcas<-c("Sony","Logitech","Epson")
Listado_marcas<-data.frame(Marcas)
Listado_marcas
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
Mes<-c("Enero","Febrero","Marzo","Abril","Mayo")
Neto<-c(23600,12340,8900,5600,9600)
IVA_V<-c(1780,1350,970,450,990)
Total<-c(25380,13690,9870,6050,10590)
Ventas_mensuales<-data.frame(Mes,Neto,IVA_V,Total)
Ventas_mensuales
##       Mes  Neto IVA_V 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(Listado_productos,Listado_marcas,Ventas_mensuales)
empresa_comercial
## [[1]]
##              Producto Stock PVP IVA_P
## 1        Televisor 32     4 250  TRUE
## 2       Televisor LED     5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresora Inyeccion    10 280  TRUE
## 
## [[2]]
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## [[3]]
##       Mes  Neto IVA_V 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 unos de los objetos de la lista

names(empresa_comercial)<-c("Listado de Productos con su stock y precios:","Marcas de Productos con la que trabaja la empresa:","Ventas por mes de la empresa:")
empresa_comercial
## $`Listado de Productos con su stock y precios:`
##              Producto Stock PVP IVA_P
## 1        Televisor 32     4 250  TRUE
## 2       Televisor LED     5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresora Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con la que trabaja la empresa:`
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $`Ventas por mes de la empresa:`
##       Mes  Neto IVA_V 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.

empresa_comercial[[2]]
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

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

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

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

Proveedores<-c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
Proveedores
## [1] "Importadora del Austro"   "Comercializadora del Sur"
## [3] "ABC & Asociados"
Ciudades<-c("Cuenca","Loja","Quito")
Ciudades
## [1] "Cuenca" "Loja"   "Quito"
Telefonos<-c(2222222,7777777,8888888)
Telefonos
## [1] 2222222 7777777 8888888
prov_empresa<-data.frame(Proveedores,Ciudades,Telefonos)
prov_empresa
##                Proveedores Ciudades Telefonos
## 1   Importadora del Austro   Cuenca   2222222
## 2 Comercializadora del Sur     Loja   7777777
## 3          ABC & Asociados    Quito   8888888
empresa_comercial[[4]]<-prov_empresa
empresa_comercial
## $`Listado de Productos con su stock y precios:`
##              Producto Stock PVP IVA_P
## 1        Televisor 32     4 250  TRUE
## 2       Televisor LED     5 680  TRUE
## 3 Impresora Matricial     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresora Inyeccion    10 280  TRUE
## 
## $`Marcas de Productos con la que trabaja la empresa:`
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $`Ventas por mes de la empresa:`
##       Mes  Neto IVA_V 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
## 
## [[4]]
##                Proveedores Ciudades Telefonos
## 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

empresa_comercial[[2]]<-NULL
empresa_comercial
## $`Listado de Productos con su stock y precios:`
##              Producto Stock PVP IVA_P
## 1        Televisor 32     4 250  TRUE
## 2       Televisor LED     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_V 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
## 
## [[3]]
##                Proveedores Ciudades Telefonos
## 1   Importadora del Austro   Cuenca   2222222
## 2 Comercializadora del Sur     Loja   7777777
## 3          ABC & Asociados    Quito   8888888