UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
CARRERA DE ESTADÍSTICA

Autores:

Grupo 5

EJERCICIOS DE LISTAS EN R

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

Pasos a seguir:

Paso 1: Creamos los vectores que conformaran el listado de productos con su stock y precios.

productos <- c("Televisor 32","Televisor LED 55","Impresora Artificial","Parlantes","Impresora inyección")
stock <- c(4,5,8,3,10)
pvp <- c(250,680,210,89,280)
iva <- c(T,T,F,F,T)

Paso 2: Creamos la varibale list_empre donde con ayuda de la función data.frame() crearemos la lista de los productos dando nombres a cada columna de la lista.

list_empre <- data.frame("Producto"=productos,"Stock"=stock,"PVP"=pvp,"IVA"=iva)
list_empre
##               Producto Stock PVP   IVA
## 1         Televisor 32     4 250  TRUE
## 2     Televisor LED 55     5 680  TRUE
## 3 Impresora Artificial     8 210 FALSE
## 4            Parlantes     3  89 FALSE
## 5  Impresora inyección    10 280  TRUE

Paso 3: Creamos el vector marcas para crear la lista de la misma forma que lo hicimos anteriormente.

marcas <- c("Sony","Logitech","Epson")

list_marcas <- data.frame("Marcas"=marcas)
list_marcas
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

Paso 4 : Creamos los vectores que conformaran la lista de ventas con ayuda de la función data.frame()

mes <- c("Enero","Febrero","Marzo","Abril","Mayo")
neto <- c(23600,12340,8900,5600,9600)
iva1 <- c(1780,1350,970,450,990)
total <- c(25380,13690,9870,6050,10590)

list_ventas <- data.frame("Mes"=mes,"Neto"=neto,"IVA"=iva1,"Total"=total)
list_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

EJERCICIO N°1

  • Colocar nombres a cada unos de los objetos de la lista.

Ejecución del ejercicio:

Realizaremos un listado llamado empresa, donde le asignamos la función list para crear una lista que contenga los objetos de list_empre, list_marcas y list_ventas creadas anteriormente, y colocamos su respectivo nombre.

empresa <- list(list_empre,list_marcas,list_ventas)

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 Artificial     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

EJERCICIO N°2

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

Ejecución del ejercicio:

La función print() se emplea para imprimir la salida de datos en R. Los corchetes [] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar o presentar

print(empresa[[2]])
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

EJERCICIO N°3

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

Ejecución del ejercicio:

Usaremos misma función antes mencionada especificando la sección donde se encuentra el dato que queremos mostrar.

print(empresa[[3]][[4,4]])
## [1] 6050

EJERCICIO N°4

  • A la lista anterior agregar la siguiente información de proveedores de la empresa:

Pasos a seguir:

Paso 1: A lis_porve le asigamos la información solicitada mediante un data frame para crear la nueva lista.

list_prove <- data.frame("Provedor"=c("Importadora del Austro","Comercializadora del Sur",
                                     "ABC & Asociados"),"Ciudad"=c("Cuenca","Loja","Quito"),
                        "Telefono"=c(2222222,7777777,8888888))
list_prove
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Paso 2: Creamos una nueva variable llamada empresa2 donde agregaremos la lista que creamos anteriormente.

empresa2 <- list(list_empre,list_marcas,list_ventas,list_prove)
empresa2
## [[1]]
##               Producto Stock PVP   IVA
## 1         Televisor 32     4 250  TRUE
## 2     Televisor LED 55     5 680  TRUE
## 3 Impresora Artificial     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]]
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Paso 3: Mostramos las listas ya con sus respectivos nombres.

names(empresa2) <- 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:")
empresa2
## $`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 Artificial     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:`
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

EJERCICIO N°5

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

Usamos la anterior variable que creamos empresa2 le 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 lis_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.

Ejecución del ejercicio: 

empresa2[[2]] <- NULL
empresa2
## $`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 Artificial     8 210 FALSE
## 4            Parlantes     3  89 FALSE
## 5  Impresora 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:`
##                   Provedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888