frecuencias refrescos

Los datos

refrescos <- c('Coke Classic','Sprite','Pepsi',
               'Diet Coke','Coke Classic','Coke Classic',
               'Pepsi','Diet Coke','Coke Classic',
               'Diet Coke','Coke Classic','Coke Classic',
               'Coke Classic','Diet Coke','Pepsi',
               'Coke Classic','Coke Classic','Dr. Pepper',
               'Dr. Pepper','Sprite','Coke Classic',
               'Diet Coke','Pepsi','Diet Coke',
               'Pepsi','Coke Classic','Pepsi',
               'Pepsi','Coke Classic','Pepsi',
               'Coke Classic','Coke Classic','Pepsi',
               'Dr. Pepper','Pepsi','Pepsi',
               'Sprite','Coke Classic','Coke Classic',
               'Coke Classic','Sprite','Dr. Pepper',
               'Diet Coke','Dr. Pepper','Pepsi',
               'Coke Classic','Pepsi', 'Sprite',
               'Coke Classic','Diet Coke'
               )

refrescos <- factor(refrescos)

La frecuencia absoluta

frecuencias <- table(refrescos)
frecuencias 

## refrescos
## Coke Classic    Diet Coke   Dr. Pepper        Pepsi       Sprite 
##           19            8            5           13            5

Visualzación de datos. Barras

barplot(frecuencias)

Visualzación de datos. Pastel

pie(frecuencias)