Create histogram from Pokémon puzzle challenge

obleser-pokemon.R

library(rtweet)
library(stringr)

# get last 100 tweets 
tweets <- search_tweets("jonasobleser",n = 100)
# extract numbers with one or more digits
numbers <- sapply(tweets$text,
                  function(x) {
                    as.numeric(str_extract(x, "([0-9]+)"))
                  })
# plot histogram
hist(numbers, main = paste0("Mean = ", 
                  round(mean(numbers, na.rm = TRUE))))

Warning. This just takes the last 100 tweets. Is there a better way to extract all replies from a given tweet?

Fantastic. It seems like 18,000 is the limit for the function, but setting retryonratelimit to TRUE might let you fetch more.