UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÒMICAS

CARRERA DE ESTADÍSTICA

TALLER N:7 EJERCICIOS REALIZADOS EN R DE LISTAS

En el presente trabajo se encuentra 5 diferentes ejercicios realizados con listas los cuales fueron elaborados en el programa Rstudio.

TALLER 7 Listas

Se tiene la siguiente información relacionada a los datos de una empresa comercial:

Ingreso de tablas
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)
matriz1 <- matrix(c(Producto, Stock, PVP, IVA), nrow = 5, ncol = 4) 
matriz1 <- data.frame(Producto, Stock, PVP, IVA)
marcas <- c("Sony","Logitech","Epson")
Marcas <- matrix(c(marcas), ncol=1, byrow = T)
Marcas <- data.frame(Marcas)
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)
matriz3 <-matrix(c(Mes,Neto,IVA,Total), ncol = 4 , nrow = 5)
matriz3 <- data.frame(Mes, Neto, IVA, Total)

Listado de Productos con su stock y precios:

matriz1
##              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
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

Ventas por mes de la empresa:

matriz3
##       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

Con la información indicada crear una lista que contenga toda la información de la empresa.

EJERCICIO 1

Colocar nombres a cada unos de los objetos de la lista

INTRODUCCIÓN

Se debe crear una lista

empresa_comercial <- list(matriz1,Marcas,matriz3)

Para colocar los nombresse debe hacer lo siguiente

names(empresa_comercial) <- c("Listado de Productos con su stock y precios:",
                              "Marcas de Productos con las que trabaja la empresa:",
                              "Ventas por mes de la empresa:")

Visualizar la lista en la consola

empresa_comercial
## $`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
EJERCICIO 2

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

INTRODUCCIÓN

Se pide la matriz 2 de la lista empresa_comercial para visualizar

empresa_comercial[[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

INTRODUCCIÓN

Para mostrar las ventas de abril se procede a indicar la posición del dato entre corchetes.

empresa_comercial[[3]][[4,4]]
## [1] 6050
EJERCICIO 4

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

INTRODUCCIÓN

Se debe crear una matriz proveedor

Proveedor <-c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
Ciudad <-c("Cuenca","Loja","Quito")
Telefono <-c(2222222,7777777,8888888)
Proveedores <-matrix(c(Proveedor,Ciudad,Telefono), ncol= 3 , nrow= 3)
Proveedores <-data.frame(Proveedor,Ciudad,Telefono)

Para visualizar la matriz

Proveedores
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Para ingresar la matriz a la lista se debe realizar lo siquiente

empresa_comercial[["Proveedores"]] <- Proveedores
empresa_comercial
## $`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
##                  Proveedor Ciudad Telefono
## 1   Importadora del 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

INTRODUCCIÓN

Para eliminar el objeto “Marcas de Productos con las que trabaja la empresa”

empresa_comercial[[2]] <- NULL

Visualizar la lista en la consola

empresa_comercial
## $`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
## 
## $`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
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888