UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

INGENIERIA ESTADISTICA

Sello UCE

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
Televisor 32 4 250 TRUE
Televisor LED 55 5 680 TRUE
Impresora Matricial 8 210 FALSE
Parlantes 3 89 FALSE
Impresora Inyeccion 10 280 TRUE

Marcas de Productos con las que trabaja la empresa:

Marcas
Sony
Logitech
Epson

Ventas por mes de la empresa:

Marcas Neto IVA Total
Enero 23600 1780 25380
Febrero 12340 1350 13690
Marzo 8900 970 9870
Abril 5600 450 6050
Mayo 9600 990 10590

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

Listado de Productos con su stock y precios:

x <- c("Televisor 32", "Televisor LED 55","Impresora Matricial","Parlantes","Impresora Inyeccion")
y1<-c(4,5,8,3,10)
z2<-c(250,680,210,89,280)
w3<-c(T,T,F,F,T)

z <- matrix(1:24,ncol = 4)

Creamos la lista de productos:

mi_lista <- list(x,y1,z2,w3,z)
mi_lista
## [[1]]
## [1] "Televisor 32"        "Televisor LED 55"    "Impresora Matricial"
## [4] "Parlantes"           "Impresora Inyeccion"
## 
## [[2]]
## [1]  4  5  8  3 10
## 
## [[3]]
## [1] 250 680 210  89 280
## 
## [[4]]
## [1]  TRUE  TRUE FALSE FALSE  TRUE
## 
## [[5]]
##      [,1] [,2] [,3] [,4]
## [1,]    1    7   13   19
## [2,]    2    8   14   20
## [3,]    3    9   15   21
## [4,]    4   10   16   22
## [5,]    5   11   17   23
## [6,]    6   12   18   24

Cambiamos de nombre a la lista de productos y la ponemos en un data frame:

mi_lista_nombres<-data.frame("Producto" = x, "Stock" = y1, "PVP" = z2, "IVA"=w3)
mi_lista_nombres 
##              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:

xd <- c("Sony", "Logitech","Epson")
xd
## [1] "Sony"     "Logitech" "Epson"

Ventas por mes de la empresa:

x1 <- c("Enero", "Febrero","Marzo","Abril","Mayo")
y2<-c(23600,12340,8900,5600,9600)
z3<-c(1780,1350,970,450,990)
w4<-c(25380,13690,9870,6050,10590)

z <- matrix(1:24,ncol = 4)

Creamos la lista de ventas por mes de la empresa:

mi_lista1 <- list(x1,y2,z3,w4,z)
mi_lista1
## [[1]]
## [1] "Enero"   "Febrero" "Marzo"   "Abril"   "Mayo"   
## 
## [[2]]
## [1] 23600 12340  8900  5600  9600
## 
## [[3]]
## [1] 1780 1350  970  450  990
## 
## [[4]]
## [1] 25380 13690  9870  6050 10590
## 
## [[5]]
##      [,1] [,2] [,3] [,4]
## [1,]    1    7   13   19
## [2,]    2    8   14   20
## [3,]    3    9   15   21
## [4,]    4   10   16   22
## [5,]    5   11   17   23
## [6,]    6   12   18   24

Cambiamos de nombre a la lista de ventas por mes de la empresa:

mi_lista_nombres1 <-data.frame("Mes" = x1, "Neto" = y2, "IVA" = z3, "Total"=w4)
mi_lista_nombres1
##       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

Mostramos las listas realizadas anteriormente:

ax<-list(mi_lista_nombres ,xd,mi_lista_nombres1)
ax
## [[1]]
##              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
## 
## [[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

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

Cambiamos de nombres a cada una de las listas realizadas:

names(ax)<-c("listado de productos con su stock y precios","Marcas de productos con las que trabaja la empresa","ventas por mes de la empresa")
ax
## $`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

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

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

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

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

Proveedores de la empresa:

x2 <- c("Importadora del Austro", "Comercializadora del Sur","ABC & Asociados")
y3<-c("Cuenca","Loja","Quito")
z4<-c(2222222,7777777,8888888)

z <- matrix(1:12,ncol = 3)

Creamos la lista de proveedores de la empresa:

mi_lista2 <- list(x1,y2,z3,w4,z)
mi_lista2
## [[1]]
## [1] "Enero"   "Febrero" "Marzo"   "Abril"   "Mayo"   
## 
## [[2]]
## [1] 23600 12340  8900  5600  9600
## 
## [[3]]
## [1] 1780 1350  970  450  990
## 
## [[4]]
## [1] 25380 13690  9870  6050 10590
## 
## [[5]]
##      [,1] [,2] [,3]
## [1,]    1    5    9
## [2,]    2    6   10
## [3,]    3    7   11
## [4,]    4    8   12

Cambiamos de nombre a la lista de proveedores de la empresa:

mi_lista_nombres2 <-data.frame("Proveedor" = x2, "Ciudad" = y3, "Telefono" = z4)
mi_lista_nombres2
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Agregamos la lista proveedores utilizando corchetes “[[ ]]” a nuestra lista donde estan los demas datos:

ax[["Proveedores"]]<-mi_lista_nombres2
ax
## $`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 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:

Para eliminar asignamos “NULL” a “Marcas de productos con las que trabaja la empresa” y debe ir entre corchetes “[[ ]]” :

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