Importar datos

library(readxl)
## Warning: package 'readxl' was built under R version 4.3.3
datos_ventas <- read_excel("C:/Users/Miguel/Downloads/datos_ventas.xlsx")
head(datos_ventas)
## # A tibble: 5 × 5
##   Fecha      Producto     Cantidad `Precio Unitario` Total
##   <chr>      <chr>           <dbl>             <dbl> <dbl>
## 1 2024-01-01 Sueroterapia        5               500  2500
## 2 2024-01-02 Vitamina C         10               200  2000
## 3 2024-01-03 Antiedad            8               750  6000
## 4 2024-01-04 Detox               6               450  2700
## 5 2024-01-05 Microagujas         4              1200  4800
x= 1
x
## [1] 1
y=2
y
## [1] 2

Referenciar variables

datos_ventas$Producto
## [1] "Sueroterapia" "Vitamina C"   "Antiedad"     "Detox"        "Microagujas"
# datos_ventas[Filas,columnas]
datos_ventas[5,3]
## # A tibble: 1 × 1
##   Cantidad
##      <dbl>
## 1        4

Graficar

Diagrama de cajas

boxplot(datos_ventas$Cantidad,col="yellow",main="Diagrama de cajas", ylab="Cantidad", xlab="Numero")

Diagrama de cajas por categoria

boxplot(datos_ventas$Total~datos_ventas$Producto,col="red",main="Categoria",ylab="Total",xlab="Producto")

boxplot(datos_ventas$Cantidad~datos_ventas$Producto,col="blue",main="Prueba",ylab="Cantidad",xlab="Producto")

Histograma

Histograma=hist(datos_ventas$Total,plot=FALSE)

Poligonos de frecuencia

Histograma
## $breaks
## [1] 2000 3000 4000 5000 6000
## 
## $counts
## [1] 3 0 1 1
## 
## $density
## [1] 6e-04 0e+00 2e-04 2e-04
## 
## $mids
## [1] 2500 3500 4500 5500
## 
## $xname
## [1] "datos_ventas$Total"
## 
## $equidist
## [1] TRUE
## 
## attr(,"class")
## [1] "histogram"
plot(Histograma$breaks[-1],Histograma$counts/sum(Histograma$counts))

## Ojiva

plot(Histograma$breaks[-1],cumsum(Histograma$counts)/sum(Histograma$counts))