MANEJO DE LISTAS
Anderson Cabezas, Georgette Canchignia, Alaine Castillo y Anthony Orosco
2022-07-08
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONOMICAS
CARRERA DE ESTADÍSTICA
Autores:
- Anderson Cabezas
- Georgette Canchignia
- Alaine Castillo
- Anthony Orosco
Colaborador:
- PHD. Francisco Valverde
MANEJO DE LISTAS EN R
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 los 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 |
Con la información indicada crear una lista que contenga toda la información de la empresa.
EJERICICIO N°1
Colocar nombres a cada unos de los objetos de la lista.
LISTADO DE PRODUCTOS CON STOCK Y PRECIOS
PROCEDIMIENTO
- Primero creo los vectores con los datos.
producto <- c("Televisor 32","Televisor LED 55","Impresora Matricial","Parlantes","Impresora Inyección")
stock <- c(4, 5, 8, 3, 10)
pvp <- c( 250, 680, 210,89,280)
iva <- c(TRUE,TRUE,FALSE,FALSE,TRUE)- Elaboro un arreglo con los vectores y coloco las dimensiones que tendrá el arreglo.
listado_productos <- array(c(producto, stock, pvp, iva), dim = c(5, 4))
listado_productos## [,1] [,2] [,3] [,4]
## [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 Inyección" "10" "280" "TRUE"- Coloco nombres a las columnas del arreglo.
colnames(listado_productos) <- c("Producto","Stock","PVP","IVA")4.Arreglo de productos terminado.
listado_productos## 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 Inyección" "10" "280" "TRUE"MARCAS DE PRODUCTOS CON LAS QUE TRABAJA LA EMPRESA
PROCEDIMIENTO
- Primero creo los vectores con los datos.
marcas <- c("Sony","Logitech","Epson")
marcas## [1] "Sony" "Logitech" "Epson"- Elaboro un arreglo con los vectores y coloco las dimensiones que tendrá el arreglo.
listado_marcas <- array((marcas), dim = c(3,1))
listado_marcas## [,1]
## [1,] "Sony"
## [2,] "Logitech"
## [3,] "Epson"- Coloco nombres a las columnas del arreglo.
colnames(listado_marcas) <- c("Marcas")4.Arreglo de marcas terminado.
listado_marcas## Marcas
## [1,] "Sony"
## [2,] "Logitech"
## [3,] "Epson"VENTAS POR MES DE LA EMPRESA
PROCEDIMIENTO
- Primero creo los vectores con los datos.
mes <- c("Enero","Febrero","Marzo","Abril","Mayo")
neto <- c(23600,12340,8900,5600,9600)
iva2 <- c(1780,1350,970,450,990)
total <- c(25380,13690,9870,6050,10590)- Elaboro un arreglo con los vectores y coloco las dimensiones que tendrá el arreglo.
listado_ventas <- array(c(mes,neto,iva2,total), dim= c(5,4))
listado_ventas## [,1] [,2] [,3] [,4]
## [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"- Coloco nombres a las columnas del arreglo.
colnames(listado_ventas) <- c("Mes","Neto","IVA","Total")4.Arreglo de ventas terminado.
listado_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"CREACIÓN DE UNA LISTA CON PRODUCTOS, MARCAS Y VENTAS
PROCEDIMIENTO
1.Realizo una lista con los arreglos antes creados:
listado_productos
listado_marcas
listado_ventas empresa <- list(listado_productos,listado_marcas,listado_ventas)
empresa ## [[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 Inyección" "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"- Por último, pongo nombres a cada uno de los objetos que están dentro de la lista.
names(empresa) <- 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## $`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 Inyección" "10" "280" "TRUE"
##
## $`MARCAS DE PRODUCTOS CON LAS QUE TRABAJA LA EMPRESA`
## Marcas
## [1,] "Sony"
## [2,] "Logitech"
## [3,] "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"EJERICICIO N°2
Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa.
PROCEDIMIENTO
En este ejercicio solamente se tiene que colocar el nombre de la
lista creada anteriormente (empresa), seguido del número
del objevo de la lista que se esta buscando entre doble corchetes
([[2]]).
empresa[[2]]## Marcas
## [1,] "Sony"
## [2,] "Logitech"
## [3,] "Epson"EJERICICIO N°3
Escribir un comando que muestre los datos de las ventas de Abril de la empresa.
PROCEDIMIENTO
Opción 1
1.- Colocar el nombre de la lista creada anteriormente
(empresa), seguido del número del objevo de la lista que se
esta buscando entre doble corchetes ([[2]]) y de igual
manera entre doble corchete colocar el número de fila y columna para
mostrar el total de ventas del mes de Abril.
empresa[[3]][[4,4]]## [1] "6050"Opción 2
1.- Para ver todos los datos acerca de las ventas del mes de Abril,
ponemos el nombre del listado (empresa), después colocamos
entre doble corchetes el número del objeto de la lista
[[3]] y por último entre corchetes el número de la fila que
vamos a mostrar [4,].
empresa[[3]][4,]## Mes Neto IVA Total
## "Abril" "5600" "450" "6050"EJERICICIO N°4
PROCEDIMIENTO
| Proveedor | Ciudad | Telefono |
|---|---|---|
| Importadora del Austro | Cuenca | 2222222 |
| Comercializadora del Sur | Loja | 7777777 |
| ABC & Asociados | Quito | 8888888 |
- Primero creo los vectores con los datos.
proveedor<-c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
ciudad<-c("Cuenca","Loja","Quito")
telefono<-c(2222222,7777777,8888888)- Elaboro un arreglo con los vectores y coloco las dimensiones que tendrá el arreglo.
listado_proveedores <- array(c(proveedor,ciudad,telefono), dim= c(3,3))
listado_proveedores## [,1] [,2] [,3]
## [1,] "Importadora del Austro" "Cuenca" "2222222"
## [2,] "Comercializadora del Sur" "Loja" "7777777"
## [3,] "ABC & Asociados" "Quito" "8888888"- Coloco nombres a las columnas del arreglo.
colnames(listado_proveedores) <- c("Proveedor","Ciudad","Telefono")- Arreglo de ventas terminado.
listado_proveedores## Proveedor Ciudad Telefono
## [1,] "Importadora del Austro" "Cuenca" "2222222"
## [2,] "Comercializadora del Sur" "Loja" "7777777"
## [3,] "ABC & Asociados" "Quito" "8888888"- Realizo una lista con los arreglos antes creados
empresa1<-list(listado_productos,listado_marcas,listado_ventas,listado_proveedores)- Por último, pongo nombres a cada uno de los objetos que están dentro de la lista.
names(empresa1) <- 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 DE LA EMPRESA")
empresa1## $`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 Inyección" "10" "280" "TRUE"
##
## $`MARCAS DE PRODUCTOS CON LAS QUE TRABAJA LA EMPRESA`
## Marcas
## [1,] "Sony"
## [2,] "Logitech"
## [3,] "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 DE LA EMPRESA`
## Proveedor Ciudad Telefono
## [1,] "Importadora del Austro" "Cuenca" "2222222"
## [2,] "Comercializadora del Sur" "Loja" "7777777"
## [3,] "ABC & Asociados" "Quito" "8888888"EJERICICIO N°5
Eliminar de la lista el objeto que contiene las marcas de los productos.
PROCEDIMIENTO
1.- Primero mostraremos la lista completa de la empresa para saber cuál es el elemento que vamos a eliminar.
empresa1<-list(listado_productos,listado_marcas,listado_ventas,listado_proveedores)
empresa1## [[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 Inyección" "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"
##
## [[4]]
## Proveedor Ciudad Telefono
## [1,] "Importadora del Austro" "Cuenca" "2222222"
## [2,] "Comercializadora del Sur" "Loja" "7777777"
## [3,] "ABC & Asociados" "Quito" "8888888"2.- Para eliminar el objeto que contiene las marcas con las que
trabaja la empresa, colocamos el nombre de la
lista(empresa1), seguido de un doble corchete dentro de
este pondremos el número del objeto que es este caso es 2, luego
asignamos el argumento NULL con el cuál se borrara ese
objeto seleccionado.
empresa1[[2]] <- NULL
empresa1## [[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 Inyección" "10" "280" "TRUE"
##
## [[2]]
## 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"
##
## [[3]]
## Proveedor Ciudad Telefono
## [1,] "Importadora del Austro" "Cuenca" "2222222"
## [2,] "Comercializadora del Sur" "Loja" "7777777"
## [3,] "ABC & Asociados" "Quito" "8888888"