Skip to content

Instantly share code, notes, and snippets.

@cmdcolin

cmdcolin/cpu.R

Last active April 19, 2024 00:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cmdcolin/5590e00957aaad6b846cc0799a97ea88 to your computer and use it in GitHub Desktop.
Save cmdcolin/5590e00957aaad6b846cc0799a97ea88 to your computer and use it in GitHub Desktop.
Download ZIP
visualization of dan luu website data https://genomic.social/@cmdcolin/112294679289295864
Raw
cpu.csv
site m3_maxCPU m1_CPU m3_10_CPU s8c_CPU itel_CPU
danluu.com 20 30 300 300 500
HN 30 30 300 500 600
MyBB 100 100 600 800 1900
phpBB 100 100 1100 1500 3900
WordPress 60 80 700 1500 2500
WordPress (old) 70 90 900 1700 1900
XenForo 100 200 1500 1800 NA
Ghost 200 200 2200 2400 3500
vBulletin 200 300 2900 4800 16000
Squarespace 400 400 3600 5100 19000
Mastodon 300 400 4700 7600 NA
Tumblr 600 700 7000 7900 8700
Quora 1200 1300 8700 NA 29000
Bluesky 400 500 6000 8300 NA
Wix 1100 1200 11000 10000 NA
Substack 500 500 4900 14000 NA
Threads 500 700 6100 16000 66000
Twitter 900 1100 6600 19000 43000
Shopify 200 300 2300 26000 NA
Discourse 500 600 5900 26000 NA
Patreon 1000 1200 14000 31000 45000
Medium 700 1000 11000 33000 63000
Reddit 700 900 12000 NA NA
Raw
cpu.R
#!/usr/bin/env Rscript
library(reshape2)
library(ggplot2)
library(tidytext)
x <- read.csv("cpu.csv")
y <- melt(x)
colnames(y) <- c("site", "variable", "s")
y$s <- y$s / 1000
ggplot(y, aes(x = reorder_within(site, s, variable), y = s)) +
geom_bar(stat = "identity") +
facet_wrap(vars(variable), ncol = 3, scales = "free") +
theme(axis.text.x = element_text(angle = 45, hjust = 1), axis.title.x = element_blank()) +
scale_x_reordered() +
ggtitle("CPU time for loading websites on different mobile phones")
ggsave("cpu.png", width = 16, height = 8)
Raw
gistfile1.txt
#!/usr/bin/env Rscript
library(reshape2)
library(ggplot2)
library(tidytext)
x <- read.csv("sizes.csv")
y <- melt(x)
colnames(y) <- c("site", "variable", "MB")
y$MB <- y$MB / 1000000
ggplot(y, aes(x = reorder_within(site, MB, variable), y = MB)) +
geom_bar(stat = "identity") +
facet_wrap(vars(variable), ncol = 2, scales = "free") +
theme(axis.text.x = element_text(angle = 45, hjust = 1), axis.title.x = element_blank()) +
scale_x_reordered() +
ggtitle("Web page size for different web sites")
ggsave("sizes.png", width = 16, height = 8)
Raw
lcp.csv
site m3_max_LCP m1_LCP m3_10_LCP s8c_LCP itel_LCP
danluu.com 50 50 200 400 500
HN 100 100 300 500 700
MyBB 300 300 600 800 2100
phpBB 300 400 700 1700 4100
WordPress 200 200 700 1000 1200
WordPress (old) 80 90 400 700 1100
XenForo 400 600 1400 1500 NA
Ghost 100 200 1100 1000 1100
vBulletin 500 600 1100 4400 13000
Squarespace 100 200 700 14000 16000
Mastodon 200 200 1800 2000 NA
Tumblr 700 1100 1000 14000 8700
Quora 700 800 2600 NA 19000
Bluesky 1000 1000 5100 8100 NA
Wix 2400 2500 18000 5600 NA
Substack 400 400 1500 14000 NA
Threads 1500 1600 5100 6400 28000
Twitter 2600 2700 5600 12000 24000
Shopify 400 400 700 10000 NA
Discourse 1100 1500 6500 15000 NA
Patreon 600 1200 1200 1700 9100
Medium 1400 1400 2000 2800 3200
Reddit 900 900 6200 1200 NA
Raw
lcp.R
#!/usr/bin/env Rscript
library(reshape2)
library(ggplot2)
library(tidytext)
x <- read.csv("lcp.csv")
y <- melt(x)
colnames(y) <- c("site", "variable", "s")
y$s <- y$s / 1000
ggplot(y, aes(x = reorder_within(site, s, variable), y = s)) +
geom_bar(stat = "identity") +
facet_wrap(vars(variable), ncol = 3, scales = "free") +
theme(axis.text.x = element_text(angle = 45, hjust = 1), axis.title.x = element_blank()) +
scale_x_reordered() +
ggtitle("Largest contentful paint (LCP) time for websites on different mobile phones")
ggsave("lcp.png", width = 16, height = 8)
Raw
sizes.csv
site size_wire size_raw
danluu.com 6000 18000
HN 11000 50000
MyBB 100000 300000
phpBB 400000 900000
WordPress 1400000 1700000
WordPress (old) 300000 1000000
XenForo 300000 1000000
Ghost 700000 2400000
vBulletin 1200000 3400000
Squarespace 1900000 7100000
Mastodon 3800000 5300000
Tumblr 3500000 7100000
Quora 600000 4900000
Bluesky 4800000 10000000
Wix 7000000 21000000
Substack 1300000 4300000
Threads 9300000 13000000
Twitter 4700000 11000000
Shopify 3000000 5500000
Discourse 2600000 10000000
Patreon 4000000 13000000
Medium 1200000 3300000
Reddit 1700000 5400000
@cmdcolin
Copy link
Author

see https://danluu.com/slow-device/

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment