UNIVERSIDAD CENTRAL DEL ECUADOR
Facultad de Ciencias Económicas
Colaborador Ing. Francisco Valverde PhD
R es un software que fue diseñado para hacer análisis estadísticos y gráficas y es un software de libre acceso. RStudio es un entorno de desarrollo integrado para el lenguaje de programación R, dedicado a la computación estadística y gráficos. Incluye una consola, editor de sintaxis que apoya la ejecución de código, así como herramientas para el trazado, la depuración y la gestión del espacio de trabajo. está disponible para Windows, Mac y Linux o para navegadores conectados a RStudio Server o RStudio Server Pro (Debian / Ubuntu, RedHat / CentOS, y SUSE Linux).
list (), especificando los objetos que deseas unir dentro de tu lista.data.frame(). Esta función nos pedirá un número de vectores igual al número de columnas que deseemos.Todos los vectores que proporcionemos deben tener el mismo largo.# Listado de productos con su stock y precios:
Productos<-c("Televisor 32","Televisor LED 55 ","Impresora Matricial",
"Parlantes","Ipresoras 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(Productos,Stock,PVP,IVA)
Lista_Productos
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
# Marcas de Productos con las que trabaja la empresa
Marcas_Producto<-c("Sony","Logitech","Epson")
Marcas_Producto
## [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_por_mes<-data.frame(Mes,Neto,IVA,TOTAL)
Ventas_por_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 10590
Empresa_Comercial<-list(Lista_Productos,Marcas_Producto,Ventas_por_mes)
Empresa_Comercial
## [[1]]
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
##
## [[2]]
## [1] "Sony" "Logitech" "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
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:`
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
##
## $`Marcas de Productos con las 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
print() se emplea para imprimir la salida de datos del programa en R.[] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar o presentar.Empresa_Comercial
## $`Listado de productos con su stock y precios:`
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
##
## $`Marcas de Productos con las 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
print("LISTADO DE MARCAS")
## [1] "LISTADO DE MARCAS"
print(Empresa_Comercial[[2]])
## [1] "Sony" "Logitech" "Epson"
print() se emplea para imprimir la salida de datos del programa en R.[[]] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar, demás del dato especificado en la búsqueda.Empresa_Comercial
## $`Listado de productos con su stock y precios:`
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
##
## $`Marcas de Productos con las 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
print("Ventas de Abril de la empresa")
## [1] "Ventas de Abril de la empresa"
print(Empresa_Comercial[[3]][[4,4]])
## [1] 6050
___
data.frame(). Esta función nos pedirá un número de vectores igual al número de columnas que deseemos.Todos los vectores que proporcionemos deben tener el mismo largo.Proveedor<-c("Importador del Austro","Comercializador del Sur","ABC & Asociados")
Ciudad<-c("Cuenca","Loja","Quito")
Telefono<-c(2222222,7777777,8888888)
Proveedores<-data.frame(Proveedor,Ciudad,Telefono)
Proveedores
## Proveedor Ciudad Telefono
## 1 Importador del Austro Cuenca 2222222
## 2 Comercializador del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888
Empresa_Comercial$Proveedores<-Proveedores
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
## Productos 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 Ipresoras Inyeccion 10 280 TRUE
##
## $`Marcas de Productos con las 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 Importador del Austro Cuenca 2222222
## 2 Comercializador del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888
[[]] permiten identificar la ubicación en la sección de la lista del dato que se desea mostrar, demás del dato especificado en la búsqueda.NULLEmpresa_Comercial[[2]] <- NULL
Empresa_Comercial
## $`Listado de productos con su stock y precios:`
## Productos 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 Ipresoras 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 Importador del Austro Cuenca 2222222
## 2 Comercializador del Sur Loja 7777777
## 3 ABC & Asociados Quito 8888888