Twitter recently doubled the maximum length of a tweet to 280 characters, and while all users now have access to longer tweets, few have taken advantage of the opportunity. Bob Rudis used the rtweet package to analyze tweets sent with the #rstats hashtag since 280-char tweets were introduced, and most still kept below the old 280-character limit. The actual percentage differed by the Twitter client being used; I've reproduced the charts for the top 10 clients below. (Click the chart for even more clients, and details of the analysis including the R code that generated it.)

That being said, some have embraced the new freedom with gusto, not least my Microsoft colleague Paige Bailey who demonstrated you can fit some pretty nice R charts — and even animations! — into just 280 characters:

df <- expand.grid(x = 1:10, y=1:10)

— @DynamicWebPaige (@DynamicWebPaige) November 8, 2017

df$angle <- runif(100, 0, 2*pi)

df$speed <- runif(100, 0, sqrt(0.1 * df$x))

ggplot(df, aes(x, y)) +

geom_point() +

geom_spoke(aes(angle = angle, radius = speed))

y'all twitterpeople give me 280 characters?

yr just gonna get code samples pic.twitter.com/hyGEE2DxGy

x <- getURL("https://t.co/ivZZvodbNK")

— @DynamicWebPaige (@DynamicWebPaige) November 11, 2017

b <- read.csv(text=x)

c <- get_map(location=c(-122.080954,36.971709), maptype="terrain", source="google", zoom=14)

ggmap(c) +

geom_path(data=b, aes(color=elevation), size=3)+

scale_color_gradientn(colours=rainbow(7), breaks=seq(25, 200, 25)) pic.twitter.com/7WdQLR56uZ

library(dygraphs)

— @DynamicWebPaige (@DynamicWebPaige) November 16, 2017

lungDeaths <- cbind(mdeaths, fdeaths)

dygraph(lungDeaths) %>%

dySeries("mdeaths", label = "Male") %>%

dySeries("fdeaths", label = "Female") %>%

dyOptions(stackedGraph = TRUE) %>%

dyRangeSelector(height = 20)

I ❤️ R's interactive visualizations SO MUCH pic.twitter.com/LevjElly3L

library(plot3D)

— @DynamicWebPaige (@DynamicWebPaige) November 17, 2017

par(mar = c(2, 2, 2, 2))

par(mfrow = c(1, 1))

x <- seq(0, 2*pi,length.out=50)

y <- seq(0, pi,length.out=50)

M <- mesh(x, y)

surf3D(x = (3+2*cos(M$x)) * cos(M$y),

y = (3+2*cos(M$x)) * sin(M$y),

z = 2 * sin(M$x),

colkey=FALSE,

bty="b2") pic.twitter.com/a6GwQTaGYC

For more 280-character examples in R and other languages follow this Twitter thread, and for more on analyzing tweets with rtweet follow the link below.

rud.is: Twitter Outer Limits : Seeing How Far Have Folks Fallen Down The Slippery Slope to “280” with rtweet

## Comments

You can follow this conversation by subscribing to the comment feed for this post.