UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE INGENIERÍA ESTADÍSTICA

INTEGRANTES:

TOMANDO EN REFERENCIA EL ARCHIVO ADJUNTO, REALIZAR LOS SIGUIENTES EJERCICIOS:

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

Producto <-c("Televisor 32","Televisor LED 55","Impresora Matricial","Parlantes","Impresora Inyeccion")
Stock<-c(4,5,8,3,10)
Precio <-c(250,680,210,89,280)
IVA<-c(TRUE,TRUE,FALSE,FALSE,TRUE)

PRODUCTOS<-data.frame(Producto,Stock,Precio,IVA)
colnames(PRODUCTOS)<-(c("Producto","Stock","Precio","IVA"))
PRODUCTOS
##              Producto Stock Precio   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<-c("Sony", "Logitech","Epson")
marcas<-data.frame(c(Marcas))
colnames(marcas)<-(c("Marcas"))
marcas
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
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(Mes,Neto,iva,total)
colnames(Ventas)<-(c("Mes","Neto","iva","total"))
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
Empresa_comercial <- list(PRODUCTOS,Marcas,Ventas)
Empresa_comercial
## [[1]]
##              Producto Stock Precio   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

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

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

# Con la función names() se procederá a asignar los nombres a cada uno de los objetos
names(Empresa_comercial)<-c("Listado de productos con su stock y precios",
                            "Marcas de productos con las que trabaja la empresa",
                            "Ventas por mes de la empresa")
Empresa_comercial
## $`Listado de productos con su stock y precios`
##              Producto Stock Precio   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

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

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

#La función print() se emplea para imprimir la salida de datos del programa en R.
#Los corchetes [[]] permiten identificar la ubicación en la sección de la lista 
#del dato que se desea mostrar, demás del dato especificado en la búsqueda.

print("Ventas de Abril de la empresa")
## [1] "Ventas de Abril de la empresa"
print(Empresa_comercial [[3]][[4,4]])
## [1] 6050

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

# A lis_porve le asigamos la información solicitada mediante un data frame para crear 
#la nueva lista.
list_prove <- data.frame("Provedor"=c("Importadora del Austro","Comercializadora del Sur",
                                      "ABC & Asociados"),"Ciudad"=c("Cuenca","Loja","Quito"),
                         "Telefono"=c(2222222,7777777,8888888))
list_prove
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
#Creamos una nueva variable llamada empresa2 donde agregaremos la lista que creamos 
#anteriormente.

empresa2 <- list(PRODUCTOS,Marcas,Ventas,list_prove)
empresa2
## [[1]]
##              Producto Stock Precio   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
## 
## [[4]]
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
#Mostramos las listas ya con sus respectivos nombres.
names(empresa2) <- c("Listado de productos con su stock y precios:",
                     "Marcas de Productos con las que trabaja la empresa:",
                     "Ventas por mes de la empresa:","Proveedores:")
empresa2
## $`Listado de productos con su stock y precios:`
##              Producto Stock Precio   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:`
##                   Provedor 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

Empresa_comercial[[2]]<-NULL
Empresa_comercial
## $`Listado de productos con su stock y precios`
##              Producto Stock Precio   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