MANUAL DE LISTAS EN R

INTRODUCCIÓN.

En el presente artículo realizaremos una serie de ejercicios con funciones y cálculos básicos en el tema de listas, realizados por estudiantes de la Facultad de Ciencias Económicas, carrera de Estadística de la Universidad Central del Ecuador, estos programas nos será de ayuda para nuestro aprendizaje.

1. CREACIÓN DE LISTAS.

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.

PRIMERA TABLA (PRODUCTOS)

  • Creamos la primera tabla que contiene la información sobre los productos.
Productos<-list(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(T, T, F, F, T))
Productos<-as.data.frame(Productos)
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

SEGUNDA TABLA (MARCAS)

  • Creamos la primera tabla que contiene la información sobre las marcas de los productos.
Marcas<-c("Sony","Logitech","Epson") 
Marcas<-as.data.frame(Marcas)
Marcas
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson

TERCERA TABLA (VENTAS)

  • Creamos la primera tabla que contiene la información sobre las 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<-as.data.frame(ventas)
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

UNIÓN DE TABLAS.

  • unimos en una sola lista las 3 tablas
Empresa_comercial<-list(Productos,Marcas, ventas) 
Empresa_comercial
## [[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

2. ASIGNAR NOMBRES A OBJETOS.

  • Usamos la función “names()” para agregar nombres a cada una de nuestraas listas.
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")
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

3. EXTRAER DATOS.

  • Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa.
Empresa_comercial[[2]]
##     Marcas
## 1     Sony
## 2 Logitech
## 3    Epson
  • Escribir un comando que muestre los datos de las ventas de Abril de la empresa.
Empresa_comercial[[3]][4,]
##     Mes Neto IVA Total
## 4 Abril 5600 450  6050

4. AGREGAR OBJETOS A UNA LISTA.

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

  • Creamos una lista con los proveedores de la empresa.
proveedores<- list(Proveedor= c("Importadora del Austro",
                                "Comercializadora del Sur",
                                "ABC & Asociados"),
                   Ciudad= c("Cuenca","Loja","Quito"),
                   Telefono= c(2222222, 7777777, 8888888))

proveedores<-as.data.frame(proveedores)
proveedores
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888
  • Unimos esta información a la lista ya creada anteriormente.
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
  • Volvemos a cambiar el nombre de la ultima lista.
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",
                            "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

5. ELIMINAR OBJETOS DE UNA LISTA

  • Eliminar de la lista el objeto que contiene las marcas de los productos.
Empresa_comercial[[2]]<-NULL
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
  • Eliminar de otra forma:
Empresa_comercial[["Marcas de Productos con las que trabaja la empresa"]]<-NULL
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