TALLER-APE-7_Grupo-6

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA

 

INTEGRANTES:

• Diana Farinango
• Katty Guailla
• Daibeth Manguay
• Nicole Morocho

TALLER-APE 7: Ejercicios sobre Listas

REALIZAR LOS SIGUIENTES EJERCICIOS:

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

-Para crear la lista es necesario crear los vectores con los datos dados.

Productos <- 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("TRUE","TRUE","FALSE","FALSE","TRUE")

-Para que la lista pueda salir ordenada utilizamos la función data.frame() .

LISTADO <- data.frame(Productos, Stock, PVP, IVA)
LISTADO

##             Productos 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 <- c("Sony","Logitech", "Epson")
MARCAS

## [1] "Sony"     "Logitech" "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)
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 unos de los objetos de la lista

empresa<- list("Listado de productos con su stock y precio"=LISTADO,
                 "Marcas de productos con las que trabaja la empresa"=MARCAS,
                 "Ventas por mes de la empresa"=VENTAS)
empresa

## $`Listado de productos con su stock y precio`
##             Productos 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

empresa[[2]]

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

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

empresa[[3]][[4,4]]

## [1] 6050

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

Proveedor <- c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
Ciudad <- c("Cuenca","Loja","Quito")
Telefono <- c(2222222,7777777,8888888)

Proveedores <- data.frame(Proveedor,Ciudad,Telefono)
Proveedores

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

empresa[["Proveedores"]] <-Proveedores
empresa

## $`Listado de productos con su stock y precio`
##             Productos 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.

empresa[[2]] <- NULL
empresa

## $`Listado de productos con su stock y precio`
##             Productos 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