Redacted

Apr 18, 2019

The redacted version (pdf) of the Mueller report was released today. Here’s the thumbnailed view for a sense of the redactions.

I had to do this in R real quick, or I wasn’t going to get anything done for the rest of the day. Here’s my snippet in case you’re interested:

# install.packages(c("pdftools", "png"))

library(pdftools)
library(png)

pdf_convert("mueller-report.pdf")

# Dimensions of 1 page.
imgwidth <- 612
imgheight <- 792

# Grid dimensions.
gridwidth <- 30
gridheight <- 15

# Total plot width and height.
spacing <- 1
totalwidth <- (imgwidth+spacing) * (gridwidth)
totalheight <- (imgheight+spacing) * gridheight

# Plot all the pages and save as PNG.
png("all_pages.png", round((imgwidth+spacing)*gridwidth/7), round((imgheight+spacing)*gridheight/7))
par(mar=c(0,0,0,0))
plot(0, 0, type='n', xlim=c(0, totalwidth), ylim=c(0, totalheight), asp=1, bty="n", axes=FALSE)
for (i in 1:448) {
    fname <- paste("mueller-report_", i, ".png", sep="")
    img <- readPNG(fname)
    
    x <- (i %% gridwidth) * (imgwidth+spacing)
    y <- totalheight - (floor(i / gridwidth)) * (imgheight+spacing)
    
    rasterImage(img, xleft=x, ybottom = y-imgheight, xright = x+imgwidth, ytop=y)
}
dev.off()

Become a member. Support an independent site. Make great charts.

See What You Get

Favorites

Shifting Incomes for American Jobs

For various occupations, the difference between the person who makes the most and the one who makes the least can be significant.

How to Spot Visualization Lies

Many charts don’t tell the truth. This is a simple guide to spotting them.

Reviving the Statistical Atlas of the United States with New Data

Due to budget cuts, there is no plan for an updated atlas. So I recreated the original 1870 Atlas using today’s publicly available data.

19 Maps That Will Blow Your Mind and Change the Way You See the World. Top All-time. You Won’t Believe Your Eyes. Watch.

Many lists of maps promise to change the way you see the world, but this one actually does.