The Number Theme

hi guys let’s see if there’s any cool trends in our random numbers theme

#this chunk loads libraries needed to run the graphs i made
knitr::opts_chunk$set(echo = TRUE)

library(readr)
library(tidyverse)

numbers <- read_csv("numbersServer.csv")
#making new columns 
numbers$length <- str_length(numbers$user)
numbers$letter <- str_sub(numbers$user,1,1)

#previewing the data
head(numbers)
## # A tibble: 6 × 7
##   order user            number numberOrder alphabet length letter
##   <dbl> <chr>            <dbl>       <dbl>    <dbl>  <int> <chr> 
## 1    27 mimetime4027        72           1       27     12 m     
## 2    32 sammie5559          91           2       35     10 s     
## 3    35 loakon              95           3       23      6 l     
## 4    11 octavia_butler     189           4       30     14 o     
## 5     5 pukiri             312           5       32      6 p     
## 6    17 fernquestdotcom    366           6        7     15 f
Variable Name Variable Type what it is
order numeric ranking from when i made the dataset, irrelevant
user string who the ppl are
number numeric randomly assigned number, identifier
numberOrder numeric rank of randomly assigned number (number)
alphabet numeric rank if users are alphabetically ordered
length numeric length of username
letter factor first character of their username 
ggplot(numbers, aes(x=reorder(user, number), y=number)) +
  geom_bar(stat="identity") +
  theme(axis.text.x = element_text(angle = 45)) +
  labs(title="Number Distribution", x="User", y="Number")

ggplot(numbers, aes(x=length, y=number)) +
  geom_point() +
  geom_smooth(method=lm) +
  labs(title="Length vs Number", x="Username Length", y="Number")
## `geom_smooth()` using formula = 'y ~ x'

ggplot(numbers, aes(x=alphabet, y=number)) +
  geom_point() +
  geom_smooth(method=lm) +
  labs(title="Alphabet Value vs Number", x="Alphabet Value", y="Number")
## `geom_smooth()` using formula = 'y ~ x'

numbers_long <- tidyr::gather(numbers, key="metric", value="value", 
                            numberOrder, alphabet, length)
ggplot(numbers_long, aes(x=user, y=value, fill=metric)) +
  geom_bar(stat="identity", position="dodge") +
  theme(axis.text.x = element_text(angle = 45))

ggplot(numbers, aes(x = as.factor(letter), y = length)) +
  geom_boxplot(fill = "coral") +
  labs(title = "Username Length by Alphabet Group",
       x = "Letter Group",
       y = "Username Length")

ggplot(numbers, aes(x=letter, y=number)) +
  geom_bar(stat="identity") +
  labs(title="Number Distribution by First Letter", x="First Letter", y="Number")

ggplot(numbers, aes(x = length, y = number)) +
  geom_point(aes(color = as.factor(letter))) +
  geom_smooth(method = "lm", se = FALSE) +
  labs(title = "Relationship between Username Length and Number",
       x = "Username Length",
       y = "Number",
       color = "Alphabet Group")
## `geom_smooth()` using formula = 'y ~ x'