netterie
commented
4 years ago @sgoodreau @EmilyPo
I didn't have time to insert this into the document in a good place, but here's a start to the table - code below (and it's easy to change the rounding).
Two questions:
- Should the denominator be 200, or 199, for computing percentages for degrees of separation? Steve used 200 in the document (line 205). I kept it at 200, but it's easy to change using the code below.
- Where does the GeekWire stat of 71% come from? They write
Code - I put it in the code chunk starting at 309
# Distances
distances <- rbind( geo.sep(net.precov, 'Pre-Covid'),
geo.sep(emptynet, 'Pure Isolation'),
geo.sep(net.essl, 'Essential Only'),
geo.sep(net.comb.1, 'Just One Friend'),
geo.sep(net.comb.2, 'Just One Friend Per HH'))
# Labels
net.order <- c('Pre-Covid', 'Pure Isolation',
'Essential Only', 'Just One Friend',
'Just One Friend Per HH')
rownames(distances) <-net.order
# Function to add percentages
add_percent <- function(x, r1, r2, n=200) {
xround <- round(x, r1)
percround <- round(100*x/n, r2)
return(paste0(xround, " (", percround, "%)"))
}
# Vector of largest components, in net.order order
largest.components <- c(largcomp.precov,
1,
largcomp.essl,
largcomp.comb.1,
largcomp.comb.2)
# Summary table
summary.table <- data.frame(Network=net.order,
`Largest Cluster`=
add_percent(largest.components,
r1=0, r2=1, n=200),
`vs Essential Network`=
round(largest.components/largcomp.essl, 1),
`3 Degrees of Separation`=
add_percent(distances[,1],
r1=1, r2=2, n=200),
`6 Degrees of Separation`=
add_percent(distances[,2],
r1=1, r2=2, n=200),
check.names=FALSE,
row.names=NULL)Note: I used the kableExtra option "responsive" because "Tables with option responsive looks the same with others on a large screen. However, on a small screen like phone, they are horizontally scrollable. Please resize your window to see the result."
library(kableExtra)
knitr::kable(summary.table) %>%
kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"))Note, if you run the code on the inverted table t(summary.table), it looks something like this:
EmilyPo
sgoodreau
martinamorris
Needs to be in a tab though so only seen by the "What's Going On?" crowd, or else somehow very carefully worded to make sense to the others.