The most popular season
ggplot(data = data) +
geom_bar(mapping = aes(x = SEASON))
ggplot(data = data) +
geom_histogram(mapping = aes(x = rank(SEASON)))
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
data %>% count(SEASON)
## # A tibble: 4 × 2
## SEASON n
## <dbl> <int>
## 1 1 462
## 2 2 5
## 3 3 394
## 4 4 21
ggplot(data = data, mapping = aes(x = SEASON, y = HOST)) +
geom_boxplot()
## Warning: Continuous x aesthetic
## ℹ did you forget `aes(group = ...)`?
ggplot(data = data, mapping = aes(x = SEASON, y = HOST_FACTOR)) +
geom_boxplot()
ggplot(data = data, mapping = aes(x = SEASON, y = SMTDATE)) +
geom_boxplot()
## Warning: Continuous x aesthetic
## ℹ did you forget `aes(group = ...)`?
## Warning: Removed 87 rows containing non-finite outside the scale range
## (`stat_boxplot()`).
library(modelr)
ggplot(data = data, aes(SEASON, CAMPS)) +
geom_boxplot()
## Warning: Continuous x aesthetic
## ℹ did you forget `aes(group = ...)`?