Taller_7
cris
2023-06-24
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
INGENIERIA EN ESTADÍSTICA
GRUPO 2
APLICANDO LOS CONOCIMIENTOS DE RSTUDIO
En este documento se presentan los ejercicios resuletos del taller #7 haciendo uso de rmarkdown
AUTORES
- Almachi Lesli
- Guamán Cristhian
- Salcedo Sandy
- Sasig Jervis
COLABORACIÓN
- Profesor: Francisco Valverde (PhD en informática)
#LISTADO DE PRODUCTOS CON SU STOCK Y PRECIOS
Producto<-c("Televisor 32", "Televisor LED 55", "Impresora Matricial",
"Parlantes","Impresoras Inyeccion")
Stock<-c(4,5,8,3,10)
PVP<-c(250,680,210,89,280)
IVA<-c(TRUE,TRUE,FALSE,FALSE,TRUE)
lista_productos<-data.frame(Producto,Stock,PVP,IVA)
lista_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 Impresoras Inyeccion 10 280 TRUE#MARCAS DE PRODUCTOS CON LAS QUE TRABAJA LA EMPRESA
marcas_productos<-c("Sony","Logitech","Epson")
marcas_productos## [1] "Sony" "Logitech" "Epson"#VENTAS POR MES DE LA EMPRESA
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<-data.frame(Mes,Neto,IVA,Total)
ventas_mes## 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 10590EJERCICIO 1
- Colocar nombres a cada unos de los objetos de la lista -solución
# Con el comando list() que permite crear listas con vectores
#y almacenar estructuras de tablas preechas, asignamos un nombre para cada tabla,
# se ha creado tres en total.
empresa_comercial<-list("Listado de productos con su stock y precios"
=lista_productos,"Marcas de Productos con los que trabaja la empresa"
= marcas_productos,"Ventas de la empresa"=
ventas_mes)
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 Impresoras Inyeccion 10 280 TRUE
##
## $`Marcas de Productos con los que trabaja la empresa`
## [1] "Sony" "Logitech" "Epson"
##
## $`Ventas 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 10590EJERCICIO 2
-Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa -solución
#Empleamos el uso del corchete, el cual nos permite seleccionarlos elementos de un vector
empresa_comercial[[2]]## [1] "Sony" "Logitech" "Epson"EJERCICIO 3
-Escribir un comando que muestre los datos de las ventas de Abril de la empresa -Solución
#Escribir un comando que muestre los datos de las ventas de abril de la empresa.
#
print(empresa_comercial[[3]][[4,4]])## [1] 6050## [1] 6050
print(empresa_comercial[[3]][ ,4], ncol=1, bycol=TRUE)## [1] 25380 13690 9870 6050 10590## [1] 25380 13690 9870 6050 10590EJERCICIO 4
-A la lista anterior agregar la siguiente información de proveedores de la empresa: -solución
#PASO 1: Se crea una nueva tabla con list() llamada proveedor
proveedor<-list(Proveedor=c("Importadora del Autro","Comercializadora del Sur","ABC & Asociados"),
Ciudad= c("Cuenca","Loja","Quito"),Telefono=c(2222222, 7777777, 8888888))
proveedor<-data.frame(proveedor)
proveedor## Proveedor Ciudad Telefono
## 1 Importadora del Autro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888#PASO 2: Se agrega la nueva tabla a las otras tablas creadas
empresa_comercial<-list("Listado de productos con su stok y precios"=lista_productos, "
Marcas de Productos con los que trabaja la empresa"=marcas_productos,"Ventas por mes de la empresa"=ventas_mes,
"Proveedores"=proveedor)
empresa_comercial## $`Listado de productos con su stok 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 Impresoras Inyeccion 10 280 TRUE
##
## $`\n Marcas de Productos con los que trabaja la empresa`
## [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
## Proveedor Ciudad Telefono
## 1 Importadora del Autro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888EJERCICIO 5
- Eliminar de la lista el objeto que contiene las marcas de los productos
#Eliminar de la lista el objeto que contiene las marcas de los productos
#Empleamos el uso del corchete, el cual nos permite seleccionarlos
#elementos deL vector que queremos eliminar
empresa_comercial[[2]]<-NULL
empresa_comercial ## $`Listado de productos con su stok 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 Impresoras Inyeccion 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 Autro Cuenca 2222222
## 2 Comercializadora del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888