library(tidyverse)
"https://raw.githubusercontent.com/dspiegel29/ArtofStatistics/master/02-2-3-jelly-bean-counts/02-1-bean-data-full-x.csv" %>%
  read_csv(col_names = FALSE) -> data

data %>%
  ggplot(aes(y=X1, x=1)) +   geom_jitter(position=position_jitter(0.2)) + coord_flip() -> g1

data %>%
  ggplot(aes(y=X1, x=1)) +   geom_boxplot() + coord_flip() -> g2

data %>%
  ggplot(aes(x=X1)) +   geom_histogram() -> g3

library(gridExtra)

grid.arrange(g1,g2,g3)

data %>%
  ggplot(aes(y=X1, x=1)) +   geom_jitter(position=position_jitter(0.2)) + coord_flip() + ylim(0,10000) -> g1

data %>%
  ggplot(aes(y=X1, x=1)) +   geom_boxplot() + coord_flip() + ylim(0,10000) -> g2

data %>%
  ggplot(aes(x=X1)) +   geom_histogram() + xlim(0,10000)-> g3

grid.arrange(g1,g2,g3)


data %>%
  ggplot(aes(y=X1, x=1)) +   geom_jitter(position=position_jitter(0.2)) + coord_flip() + scale_y_log10() -> g1

data %>%
  ggplot(aes(y=X1, x=1)) +   geom_boxplot() + coord_flip() + scale_y_log10()  -> g2

data %>%
  ggplot(aes(x=X1)) +   geom_histogram() + scale_x_log10() -> g3

grid.arrange(g1,g2,g3)


"https://raw.githubusercontent.com/dspiegel29/ArtofStatistics/master/02-2-3-jelly-bean-counts/02-1-bean-data-full-x.csv" %>%
  read_csv(col_names = FALSE)