Listas

Ejercicio

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

Listado de marcas de productos con las que trabaja la empresa:

Marcas
Sony
Logitech
Epson

Listado de 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.

Procedemos a generar un vector para cada columna del listado de productos con su stock y precios.

Producto<-c("Televisor 32","Televisor LED 55","Impresora","Parlantes","Impresion Inyeccion")
Stock<-c(4,5,8,3,10)
PVP<-c(250,680,210,89,280)
IVA<-c(T,T,F,F,T)

Procedemos a generar un dataframe donde juntamos todos los vectores antes creados.

Tabla_Producto<-data.frame(Producto,Stock,PVP,IVA)

Ahora procedemos a generar un vector para cada columna del listado de marcas de productos con las que trabaja la empresa.

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

Procedemos a generar un dataframe donde juntamos el vector antes creado.

Tabla_Marcas<-data.frame(marcas)

Ahora procedemos a generar un vector para cada columna del listado de ventas por mes de la empresa.

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)

Procedemos a generar un dataframe donde juntamos todos los vectores antes creados.

Tabla_Ventas<-data.frame(mes,NETO,IVA2,TOTAL)

Finalmente procedemos a generar una lista donde juntamos todos los dataframes antes creados.

Tabla_Ventas<-data.frame(mes,NETO,IVA2,TOTAL)

1.- Colocar nombres a cada unos de los objetos de la lista

Para esto vamos a utilizar la funcion names() y le vamos asignar un nombre a cada dataframe antes creado.

names(lista_empresa)<-c("Lista_Productos","Lista_Marcas","Lista_Ventas")

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

Para esto vamos a buscar dentro de nuestra lista al segundo elemento que son las marcas con las que trabaja la empresa.

lista_empresa[[2]]

3.- Escribir un comando que muestre los datos de las ventas de Abril de la empresa

Para esto vamos a buscar dentro de nuestra lista al tercer elemento que es el listado de ventas por mes de la empresa y ubicaremos la posicion de fila 4 y columna 4 porque ahi estas las ventas de abril de la empresa dentro de nuestro dataframe.

lista_empresa[[3]][[4,4]]

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

Proveedor	Ciudad	Telefono
Importadora del Austro	Cuenca	2222222
Comercializadora del Sur	Loja	7777777
ABC & Asociados	Quito	8888888

Procedemos a generar un vector para cada columna del listado de proveedores.

Proveedor<-c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
Ciudad<-c("Cuenca","Loja","Quito")
Telefono<-c("2222222","7777777","8888888")

Procedemos a generar un dataframe donde juntamos todos los vectores antes creados.

Tabla_Proveedor<-data.frame(Proveedor,Ciudad,Telefono)

Finalmente vamos a añadir este dataframe a la lista que creamos con anterioridad .

lista_empresa[["Tabla_Proveedor"]]<-Tabla_Proveedor

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

Para esto vamos a llamar a la lista de las marcas que utiliza la empresa y le vamos a asignar “NULL” que se encargara de borrar ese objeto.

lista_empresa[["Lista_Marcas"]]<-NULL

Ejecución del código en R

SINTAXIS COMPLETA

## Ingresar la tabla de listado de productos con su stock y precios

Producto<-c("Televisor 32","Televisor LED 55","Impresora","Parlantes","Impresion Inyeccion")
Stock<-c(4,5,8,3,10)
PVP<-c(250,680,210,89,280)
IVA<-c(T,T,F,F,T)
Tabla_Producto<-data.frame(Producto,Stock,PVP,IVA)
Tabla_Producto
## Marcas de Productos con los que trabaja la empresa

marcas<-c("Sony","Logitech","Epson")
Tabla_Marcas<-data.frame(marcas)
Tabla_Marcas
## Ventas por mes de la empresa

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)
Tabla_Ventas<-data.frame(mes,NETO,IVA2,TOTAL)
Tabla_Ventas

lista_empresa<-list(Tabla_Producto,Tabla_Marcas,Tabla_Ventas)
lista_empresa

##  Ejercicio 1 Poner nombres 
names(lista_empresa)<-c("Lista_Productos","Lista_Marcas","Lista_Ventas")
lista_empresa

## Ejercicio 2 Listado de marcas
lista_empresa[[2]]

## Ejercicio 3:Escribir un comando que muestre los datos de las ventas de Abril de la empresa
lista_empresa[[3]][[4,4]]

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

Proveedor<-c("Importadora del Austro","Comercializadora del Sur","ABC & Asociados")
Ciudad<-c("Cuenca","Loja","Quito")
Telefono<-c("2222222","7777777","8888888")
Tabla_Proveedor<-data.frame(Proveedor,Ciudad,Telefono)
Tabla_Proveedor

lista_empresa[["Tabla_Proveedor"]]<-Tabla_Proveedor
lista_empresa

## Ejercicio 5: Eliminar de la lista el objeto que contiene las marcas de los productos

lista_empresa[["Lista_Marcas"]]<-NULL
lista_empresa

RESULTADO FINAL

##              Producto Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2    Televisor LED 55     5 680  TRUE
## 3           Impresora     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresion Inyeccion    10 280  TRUE

##     marcas
## 1     Sony
## 2 Logitech
## 3    Epson

##       mes  NETO IVA2 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

## [[1]]
##              Producto Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2    Televisor LED 55     5 680  TRUE
## 3           Impresora     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresion Inyeccion    10 280  TRUE
## 
## [[2]]
##     marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## [[3]]
##       mes  NETO IVA2 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

## $Lista_Productos
##              Producto Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2    Televisor LED 55     5 680  TRUE
## 3           Impresora     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresion Inyeccion    10 280  TRUE
## 
## $Lista_Marcas
##     marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $Lista_Ventas
##       mes  NETO IVA2 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

##     marcas
## 1     Sony
## 2 Logitech
## 3    Epson

## [1] 6050

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

## $Lista_Productos
##              Producto Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2    Televisor LED 55     5 680  TRUE
## 3           Impresora     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresion Inyeccion    10 280  TRUE
## 
## $Lista_Marcas
##     marcas
## 1     Sony
## 2 Logitech
## 3    Epson
## 
## $Lista_Ventas
##       mes  NETO IVA2 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
## 
## $Tabla_Proveedor
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

## $Lista_Productos
##              Producto Stock PVP   IVA
## 1        Televisor 32     4 250  TRUE
## 2    Televisor LED 55     5 680  TRUE
## 3           Impresora     8 210 FALSE
## 4           Parlantes     3  89 FALSE
## 5 Impresion Inyeccion    10 280  TRUE
## 
## $Lista_Ventas
##       mes  NETO IVA2 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
## 
## $Tabla_Proveedor
##                  Proveedor Ciudad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC & Asociados  Quito  8888888

Listas

Josue Vargas, Gabriela Alulema, Jefferson Llangari, Zaida Chasi

2022-07-08

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA

PRIMERAS PRACTICAS EN R 4

Manual

Ejercicio

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.

1.- Colocar nombres a cada unos de los objetos de la lista

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

3.- Escribir un comando que muestre los datos de las ventas de Abril de la empresa

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

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

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

COLABORADOR: Phd.Francisco Valverde Alulema.