UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
INGENIERÍA EN ESTADÍSTICA
AUTORES:
*JOHANNA AGUILAR
*JOSE BAÑO
*SAYRI MENDOZA
*JAIME PAREDES
FECHA DE PUBLICACIÓN: 2023-06-25
TALLER N#7
Ejercicios sobre Listas
En el presente trabajo se encuentra 5 diferentes ejercicios realizados con listas los cuales fueron elaborados en el programa Rstudio.
Se tiene la siguiente información relacionada a los datos de una empresa comercial:
Con la información indicada crear una lista que contenga toda la información de la empresa.
Ingreso de tablas
Listado de productos en stock y precios
Producto <- list(Producto = c("Television 32", "Televisor LED 55", "Impresora Matricial", "Parlantes", "Impresora de Inyección"),
Stock = c(4,5,8,3,10),
PVP = c(250, 680, 210, 89, 280),
IVA = c(TRUE,TRUE, FALSE, FALSE, TRUE))
Producto## $Producto
## [1] "Television 32" "Televisor LED 55" "Impresora Matricial"
## [4] "Parlantes" "Impresora de Inyección"
##
## $Stock
## [1] 4 5 8 3 10
##
## $PVP
## [1] 250 680 210 89 280
##
## $IVA
## [1] TRUE TRUE FALSE FALSE TRUEDato <- data.frame(Producto)
Dato## Producto Stock PVP IVA
## 1 Television 32 4 250 TRUE
## 2 Televisor LED 55 5 680 TRUE
## 3 Impresora Matricial 8 210 FALSE
## 4 Parlantes 3 89 FALSE
## 5 Impresora de Inyección 10 280 TRUEMarcas de Productos con las que trabaja la empresa:
marcas <- c("Sony","Logitech","Epson")
marcas## [1] "Sony" "Logitech" "Epson"Ventas por mes de la empresa:
Ventas_t <- list(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))
Dato_t <- data.frame(Ventas_t)
Dato_t## 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 10590EJERCICIO 1
Colocar nombres a cada unos de los objetos de la lista
PROCESO
1.- Se debe crear una lista para colocar los nombres se realiza lo siguiente
Empresa_TV <- list("Productos con su stock y precios" = Dato,
"Marcas de Productos con los que trabaja la empresa" = marcas,
"Ventas por mes de la empresa" = Dato_t) 2.- Luego visualizamos la lista en la pantalla
Empresa_TV## $`Productos con su stock y precios`
## Producto Stock PVP IVA
## 1 Television 32 4 250 TRUE
## 2 Televisor LED 55 5 680 TRUE
## 3 Impresora Matricial 8 210 FALSE
## 4 Parlantes 3 89 FALSE
## 5 Impresora de Inyección 10 280 TRUE
##
## $`Marcas de Productos con los 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 10590EJERCICIO 2
Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa.
PROCESO
1.- Se pide a la matriz de la Empresa_Tv para visualizar
Empresa_TV[[2]]## [1] "Sony" "Logitech" "Epson"EJERCICIO 3
Escribir un comando que muestre los datos de las ventas de Abril de la empresa
PROCESO
1.- Para mostrar las ventas de abril se procede a indicar la posición del dato entre corchetes.
Empresa_TV[[3]][[4,4]]## [1] 6050EJERCICIO 4
A la lista anterior agregar la siguiente información de proveedores de la empresa:
PROCESO
1.- Se crea una matriz de proveedores y lo visualizamos en la pantalla
Proveedor_TV <- list(Proveedores = c("Importadora del Austro", "Comercializadora del Sur", "ABC & Asociados"),
Cuidad = c("Cuenca", "Loja", "Quito"),
Telefono = c(2222222, 7777777, 8888888 ))
Proveedor_TV## $Proveedores
## [1] "Importadora del Austro" "Comercializadora del Sur"
## [3] "ABC & Asociados"
##
## $Cuidad
## [1] "Cuenca" "Loja" "Quito"
##
## $Telefono
## [1] 2222222 7777777 88888882.-Ingresar la matriz a la lista se debe realizar lo siguiente
tabla_prov <- data.frame(Proveedor_TV)
tabla_prov## Proveedores Cuidad Telefono
## 1 Importadora del Austro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888Empresa_TV1 <- list("Listado de productos con su stock y precios" = Dato,
"Marcas de Productos con los que trabaja la empresa" = marcas,
"Ventas por mes de la empresa" = Dato_t,
"Proveedores" = tabla_prov)
Empresa_TV1## $`Listado de productos con su stock y precios`
## Producto Stock PVP IVA
## 1 Television 32 4 250 TRUE
## 2 Televisor LED 55 5 680 TRUE
## 3 Impresora Matricial 8 210 FALSE
## 4 Parlantes 3 89 FALSE
## 5 Impresora de Inyección 10 280 TRUE
##
## $`Marcas de Productos con los 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
## Proveedores Cuidad Telefono
## 1 Importadora del Austro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888EJERCICIO 5
Eliminar de la lista el objeto que contiene las marcas de los productos
PROCESO
1.-Para eliminar el objeto “Marcas de Productos con las que trabaja la empresa” y luego lo visualizamos en la consola
Empresa_TV1 [[2]] <- NULL
Empresa_TV1## $`Listado de productos con su stock y precios`
## Producto Stock PVP IVA
## 1 Television 32 4 250 TRUE
## 2 Televisor LED 55 5 680 TRUE
## 3 Impresora Matricial 8 210 FALSE
## 4 Parlantes 3 89 FALSE
## 5 Impresora de Inyección 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
## Proveedores Cuidad Telefono
## 1 Importadora del Austro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888