UNIVERSIDAD CENTRAL DEL ECUADOR

Facultad de Ciencias Económicas

Carrera de Estadística

Autores: Fernanda Chipantaxi, Ayleen Rubio, Marlon Llugsha, Cristhian Diaz

Fecha: 09-07-2022

Colaborador: Ing. Francisco Valverde, PHD en informática

EJERCICIOS SOBRE LISTAS EN R

Creación de los listados con la información relacionados a los datos de una empresa comercial

Se tiene la siguiente información relacionada a los datos de una empresa comercial de la cual crearemos tres listados y realizaremos los siguientes ejercicios:

Listado de productos con su stock y precios:

Paso 1: Asignamos a Producto, la función list para crear una lista que contenga la información de los productos con su respectivo número de stock, iva y precio. Luego se procede a ejecutar la variable Producto.

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  TRUE

Paso 2: Asignamos a Dato, la función data.frame para crear una tabla que contenga a la variable Producto creada anteriormente y luego ejecutamos la variable Dato.

Dato <- 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  TRUE

Marcas de Productos con los que trabaja la empresa

Paso 1: Asignamos a Marcas, la función list para crear una lista que contenga la información del tipo de marca de prodcutos con los que trabaja la empresa. Luego se procede a ejecutar la variable Marcas.

Marcas <- list(c("Sony", "Logitech", "Epson"))
Marcas
## [[1]]
## [1] "Sony"     "Logitech" "Epson"

Ventas por mes de la empresa

Paso 1: Asignamos a Ventas, la función list para crear una lista que contenga la información del tipo de las ventas por mes de la empresa. Luego se procede a ejecutar la variable Ventas.

Ventas <- 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))
Ventas
## $Mes
## [1] "Enero"   "Febrero" "Marzo"   "Abril"   "Mayo"   
## 
## $NETO
## [1] 23600 12340  8900  5600  9600
## 
## $IVA
## [1] 1780 1350  970  450  990
## 
## $Total
## [1] 25380 13690  9870  6050 10590

Paso 2: Asignamos a Dato2, la función data.frame para crear una tabla que contenga a la variable Ventas creada anteriormente y luego ejecutamos la variable Dato2.

Dato2 <- data.frame(Ventas)
Dato2
##       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

Con la información indicada crear una lista que contenga toda la información de la empresa y colocar nombres a cada uno de los objetos de la lista.

Paso 1: A continuacion, realizaremos un listado llamado Empresa_Comercial, donde le asignamos la función list para crear una lista que contenga los objetos de Dato, Marcas y Dato2, creadas anteriormente y colocamos su respectivo nombre.

Empresa_Comercial <- 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" = Dato2)      
Empresa_Comercial
## $`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`
## $`Marcas de Productos con los que trabaja la empresa`[[1]]
## [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

EJERCICIO 2

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

Paso 1: Utilizando la lista Empresa_Comercial creada en el ejercicio 1, añadimos la posición que se encuentra el listado de Marcas con las que trabaja la empresa usando dobles corchetes(en este caso, la posición que se encuentra el listado es la posición dos), y ejecutamos.

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

EJERCICIO 3

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

Paso 1: Creamos el comando utilizando la lista Empresa_Comercial creada en el ejercicio 1, agregamos dobles corchetes para ingresar la posición en la que se encuentra el listado de ventas(en este caso nuestro listado se llama Dato2 y se encuentra en la posición tres), luego agregamos nuevamente doble corchetes para ingresar la posición en la que se encuentra los datos de las ventas de abril de la empresa de la lista Dato2(en este caso, los datos estan en la posición 4,4), y ejecutamos.

Empresa_Comercial[[3]][[4,4]]
## [1] 6050

EJERCICIO 4

A la lista anterior agregarle la siguiente informacion de proveedores de la empresa.

Paso 1: Asignamos a Proveedor, la función list para crear una lista que contenga la información de los proveedores de la empresa. Luego se procede a ejecutar la variable Proveedor.

Proveedor <- list(Proveedores = c("Importadora del Autro", "Comercializadora del Sur", "ABC & Asociados"),
                    Cuidad = c("Cuenca", "Loja", "Quito"),
                    Telefono = c(2222222, 7777777, 8888888 )) 
Proveedor
## $Proveedores
## [1] "Importadora del Autro"    "Comercializadora del Sur"
## [3] "ABC & Asociados"         
## 
## $Cuidad
## [1] "Cuenca" "Loja"   "Quito" 
## 
## $Telefono
## [1] 2222222 7777777 8888888

Paso 2: Asignamos a Dato4, la función data.frame para crear una tabla que contenga a la variable Proveedores creada anteriormente y luego ejecutamos la variable Dato4.

Dato4 <- data.frame(Proveedor)
Dato4 
##                Proveedores Cuidad Telefono
## 1    Importadora del Autro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Paso 3: Para agregar la información de Proveedores a la lista llamado Empresa_Comercial a continuación, realizaremos un nuevo listado llamado Empresa_Comercial2, donde le asignamos la función list para crear una lista que contenga los objetos de Dato, Marcas, Dato2 y Dato4, y colocamos el respectivo nombre que le corresponde a cada objeto, luego ejecutamos nuestro nuevo listado.

Empresa_Comercial2 <- 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" = Dato2,
                           "Proveedores" = Dato4)  
Empresa_Comercial2
## $`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`
## $`Marcas de Productos con los que trabaja la empresa`[[1]]
## [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 Autro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

EJERCICIO 5

Eliminar de la lista el objeto que contiene la marca de los productos.

Paso 1: Creamos el comando utilizando la lista Empresa_Comercial2 creada en el ejercicio 4, agregamos dobles corchetes para ingresar la posición en la que se encuentra el listado que queremos eliminar(en este caso nuestro listado se llama Marcas y se encuentra en la posición dos), luego le asignamos la función NULL para que cumpla la eliminación del objeto y ejecutamos.

Empresa_Comercial2 [[2]] <- NULL
Empresa_Comercial2
## $`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 Autro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888