#############################################################
## R code to reproduce statistical analysis in the textbook:
## Agresti, Franklin, Klingenberg
## Statistics: The Art & Science of Learning from Data
## 5th Edition, Pearson 2021
## Web: ArtofStat.com
## Copyright: Bernhard Klingenberg
############################################################

###################
###  Chapter 2  ###
###  Example 4  ###
###################

##############
## Dotplots ##
##############

# Read in Sodium values:
sodium <- c(0, 340, 70, 140, 200, 180, 210, 150, 100, 130, 140, 180, 190, 160,290, 50, 220, 180, 200, 210)

# Create Dotplot:
stripchart(sodium, method = 'stack', pch=19, ylim=c(0,3), frame.plot=FALSE,  
           main = 'Dotplot', xlab = 'Sodium Content (mg)')

# You may have to resize the plotting window and then execute the command again for this plot to look nice.
# You may also have to try different values for ylim

# A slightly better dotplot can be obtained with the ggplot2 library.
# To install it, type install.packages('ggplot2')
library(ggplot2)
ggplot(data.frame(sodium), aes(x = sodium)) + 
  geom_dotplot() +
  labs(x = 'Sodium Content (mg)', title = 'Dotplot', 
       subtitle = 'Sodium Content of 20 Breakfast Cereals') +
  theme_classic() +
  theme(axis.line.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank(),
        axis.title.y=element_blank()
        )