Ejemplo de Refrescos

En este caso, importaremos un archivo CSV con la información. Por lo que primero identificaremos la ruta del archivo en la consola utilizando la siguiente orden.

file.choose()
## [1] "G:\\Mi unidad\\AnahuacMayab\\2024\\Negocios\\AD1 con R\\Sesion 03. Datos no agrupados\\Datos no agrupados\\Refrescos.csv"

Dicha información la utilizamos con el código de importación.

Refrescos = read.csv("G:\\Mi unidad\\AnahuacMayab\\2024\\Negocios\\AD1 con R\\Sesion 03. Datos no agrupados\\Datos no agrupados\\Refrescos.csv")
Refrescos
##       Refrescos
## 1  Coke_Classic
## 2         Pepsi
## 3        Sprite
## 4     Dr_Pepper
## 5         Pepsi
## 6  Coke_Classic
## 7         Pepsi
## 8        Sprite
## 9  Coke_Classic
## 10    Dr_Pepper
## 11        Pepsi
## 12 Coke_Classic
## 13       Sprite
## 14 Coke_Classic
## 15        Pepsi
## 16 Coke_Classic
## 17    Dr_Pepper
## 18        Pepsi
## 19        Pepsi
## 20 Coke_Classic
## 21 Coke_Classic
## 22    Dr_Pepper
## 23 Coke_Classic
## 24    Dr_Pepper

Toda la información tiene que estar en un vector (una columna). De esta forma, utilizamos el siguiente comando para generar la tabla de frecuencias.

tabla <- table(Refrescos)
tabla
## Refrescos
## Coke_Classic    Dr_Pepper        Pepsi       Sprite 
##            9            5            7            3

Con esta información procedemos a realizar las gráficas correspondientes. Iniciamos con la gráfica de barras.

barplot(tabla, col = 2:8, ylab = "Total",ylim = c(0,10))

La siguiente gráfica es la de pastes o circular. Por lo que antes de graficar obtenemos dichos porcentajes, calculando la frecuencia porcentual.

porcentaje <- paste0(round(100 * tabla/sum(tabla), 2), "%")

De este nuevo objeto, obtenemos la gráfica.

pie(tabla, labels = porcentaje)

Si queremos agregar los nombre, agregamos dichas etiquetas dentro la orden de la gráfica.

pie(tabla, labels = c("Coca clásica-37.5%","Dr. Pepper-20.83%","Pepsi-29.17%","Sprite-12.5%"))

En caso de que no se genere la gráfica de pastel, es necesario instalar el paquete

# install.packages("lessR")
# library(lessR)

Recuerda eliminar el símbolo # de comentarios para que se ejecuten las órdenes.