8192 %>% set.seed
1000 %>%
rnorm %>%
round(1) %>%
as_tibble %>%
group_by(value )%>%
mutate(height = row_number()) %>%
ggplot(aes(x = value, y = height)) + geom_point() +
theme_minimal()
## Warning: Calling `as_tibble()` on a vector is discouraged, because the behavior is likely to change in the future. Use `tibble::enframe(name = NULL)` instead.
## This warning is displayed once per session.