Tweets

1. Here are tweets that other people are making about Bianca and a table of the most popular tweets about them.

Bianca <- search_tweets("BiancaDelRio", n = 1000, include_rts = F)

Bianca %>% 
  select(text, retweet_count) %>%    
  top_n(25) %>%                       
  arrange(-retweet_count) %>%         
  datatable()

There were only 4 recent tweets made about my person. 2. Here are the hashtags that Bianca is using the most, in a table.

BDR%>% 
  select(hashtags) %>%                
  unnest() %>%                          
  mutate(hashtags = tolower(hashtags)) %>%    
  count(hashtags, sort=TRUE) %>%                
  datatable()                                   

Her most used hashtags referance her upcoming tour.

3.Here is a table of the number of tweets each day and the average number of tweets per day.

BDR <- get_timeline("TheBiancaDelRio", n = 5000)

BDR %>% 
  group_by(day = date(created_at)) %>%    
  summarize(tweets_per_day = n())         

BDR %>% 
  group_by(day = date(created_at)) %>%    
  summarize(tweets_per_day = n()) %>%
  summarize(mean(tweets_per_day)) 

Bianca tweets roughly 9 times a day. She tweeted the most on January 25th 2021 with 57 times.

4. Here is a plotly graphic of the number of tweets per day.

BDR %>%
  mutate(day = date(created_at)) %>% 
  plot_ly(x = ~day) %>%                                        
  add_histogram()

According to this data, Bianca’s number of tweets per day has steadily decreased month to month.

5. This is a table and a plotly histogram of the hour of the day that they tweet.

BDR %>% 
  mutate(time = with_tz(created_at, "America/Los_Angeles")) %>%    
  mutate(time = hour(time)) %>%                                 
  plot_ly(x = ~time) %>%                                        
  add_histogram()   %>%
  layout(title = "When Does @TheBiancaDelRio Tweet?", 
         xaxis = list(title = "Time of Day (0 = midnight)"),
         yaxis = list(title = "Number of Tweets"))

NA
NA

According tot his data, she posts the most around 8am.

6. Here is a table and a plotly histogram of the week days that Bianca tweets.

BDR %>% 
  mutate(Day = wday(created_at,         
                    label = T)) %>%                                 
  plot_ly(x = ~Day) %>%
  add_histogram() %>%
   layout(title = "When Does @TheBiancaDelRio Tweet?", 
         xaxis = list(title = "Days of the Week"),
         yaxis = list(title = "Number of Tweets"))

According tot he data she posts the most on Friday.

7. This is a plotly heatmap of the weekday and time of day that Bianca tweets.

BDR %>% 
  mutate(day = wday(created_at, label = T)) %>% 
  mutate(hour = hour(with_tz(created_at, "America/Los_Angeles"))) %>% 
  plot_ly(x = ~day, y = ~hour) %>% 
  add_histogram2d(nbinsx = 7, nbinsy = 24) %>%
  layout(title = "When Does @TheBiancaDelRio Tweet?", 
         xaxis = list(title = "Days of the Week"),
         yaxis = list(title = "Hours of the Day"))

Bianca’s heat map shows that she tweets the most Thursday through Saturday around 7-9 am.