Day 4 notes

digital_words <- c(
  "enshittification",
  "chat",
  "gamers",
  "ice cream so good",
  "millennial pause",
  "skibidi"
)
print(digital_words)

[1] "enshittification"  "chat"              "gamers"           
[4] "ice cream so good" "millennial pause"  "skibidi"          

digital_word_votes <- c(
  111,
  59,
  11,
  11,
  45,
  46
)
print(digital_word_votes)

[1] 111  59  11  11  45  46

library(tibble)

word_df <- tibble(
  type = "digital",
  word = digital_words,
  votes = digital_word_votes,
  length = nchar(word),
  fourth = "😀"
)

print(word_df)

# A tibble: 6 × 5
  type    word              votes length fourth
  <chr>   <chr>             <dbl>  <int> <chr> 
1 digital enshittification    111     16 😀    
2 digital chat                 59      4 😀    
3 digital gamers               11      6 😀    
4 digital ice cream so good    11     17 😀    
5 digital millennial pause     45     16 😀    
6 digital skibidi              46      7 😀    

word_df$word

[1] "enshittification"  "chat"              "gamers"           
[4] "ice cream so good" "millennial pause"  "skibidi"