TALLER 7 APLICACION DE LISTAS

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERIA EN ESTADÍSTICA

APLICANDO CONOCIMIENTOS ADQUIRIDOS DE LISTAS

En este documento se presentan 5 ejercicios de aprendizaje de generacio y calculo de listas, para principiantes en la comunidad de RStudio.

AUTORES

• Erazo Gabriela A.
• Espinosa Ricardo O.
• Gavilanes Mayra A.
• Guamán Jennifer G.

COLABORACION

• Profesor: Francisco Valverde (PhD en informática)

EJERCICIOS

Para iniciar con el presente taller, comenzaremos ingresando las tablas en Restudio.

Listado de Productos con su stock y precio

Producto	Stock	PVP	IVA
Televisor 32	4	250	TRUE
Televisor LED 55	5	680	TRUE
Impresora Matricial	8	210	FLASE
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:

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

Datos ingresados en Rstudio

Producto <- c("Televisor 32","Televisor LED","Impresora Matricial","Parlantes","Impresora de Inyeccion")
Producto

## [1] "Televisor 32"           "Televisor LED"          "Impresora Matricial"   
## [4] "Parlantes"              "Impresora de 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 <- c(TRUE,TRUE,FALSE,FALSE,TRUE)
IVA

## [1]  TRUE  TRUE FALSE FALSE  TRUE

listamat <- matrix(c(Producto, Stock, PVP, IVA), nrow = 5, ncol = 4) 
listamat <- data.frame(Producto, Stock, PVP, IVA)
listamat

##                 Producto Stock PVP   IVA
## 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 de Inyeccion    10 280  TRUE

Marcas <- matrix(c("Sony", "Logitech", "Epson"), ncol=1, byrow = T)
Marcas <- data.frame(Marcas) 
Marcas

##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

Mes <- c("Enero","Febrero","Marzo", "Abril", "Mayo")
Mes

## [1] "Enero"   "Febrero" "Marzo"   "Abril"   "Mayo"

Neto <- c(23600,12340,8900,5600,9600)
Neto

## [1] 23600 12340  8900  5600  9600

IVA <- c(1780,1350,970,450,990)
IVA

## [1] 1780 1350  970  450  990

Total <- c(25380,13690,9870,6050,10590)
Total

## [1] 25380 13690  9870  6050 10590

Ventas <-matrix(c(Mes,Neto,IVA,Total), ncol = 4 , nrow = 5)
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

lista <- list(listamat,Marcas,Ventas) 
lista

## [[1]]
##                 Producto Stock PVP   IVA
## 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 de Inyeccion    10 280  TRUE
## 
## [[2]]
##     Marcas
## 1     Sony
## 2 Logitech
## 3    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

- EJERCICIO 1

• Colocar nombres a cada uno de los elementos de la lista

names(lista) <- c("Listado de Productos con Stock y Precio",
                  "Listado de Marcas con las que trabaja la empresa",
                  "Ventas de la emrpesa obtenidas por mes")
lista

## $`Listado de Productos con Stock y Precio`
##                 Producto Stock PVP   IVA
## 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 de Inyeccion    10 280  TRUE
## 
## $`Listado de Marcas con las que trabaja la empresa`
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $`Ventas de la emrpesa obtenidas por mes`
##       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

- EJERCICIO 2

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

print(lista [[2]])

##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

- EJERCICIO 3

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

print(lista[[3]][[4,4]])

## [1] 6050

print(lista[[3]][ ,4], ncol=1, bycol=TRUE)

## [1] 25380 13690  9870  6050 10590

- EJERCICIO 4

• A la lista anterior agregar la siguiente informacion de proveedores de la empresa.

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

Proveedores <- matrix(c(Proveedor,Ciudad,Telefono), nrow = 3, ncol = 3)
Proveedores <- data.frame(Proveedor,Ciudad,Telefono)

lista[["Proveedores"]] <- Proveedores
lista

## $`Listado de Productos con Stock y Precio`
##                 Producto Stock PVP   IVA
## 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 de Inyeccion    10 280  TRUE
## 
## $`Listado de Marcas con las que trabaja la empresa`
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $`Ventas de la emrpesa obtenidas por mes`
##       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 Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

- EJERCICIO 5

-Eliminar de la lista el objeto que contiene las marcas de los productos.

lista[[2]] <- NULL 
lista

## $`Listado de Productos con Stock y Precio`
##                 Producto Stock PVP   IVA
## 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 de Inyeccion    10 280  TRUE
## 
## $`Ventas de la emrpesa obtenidas por mes`
##       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 Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

EL CONOCIMIENTO ES LA GUÍA PARA FORJAR UN FUTURO MEJOR