diff --git a/live.R b/live.R index c48b672..f1cccd7 100644 --- a/live.R +++ b/live.R @@ -80,7 +80,7 @@ while (Sys.time() < as.POSIXct("2017-11-21")) { ## most frequent mentions table naomit <- function(x) x[!is.na(x)] usrs <- tab_sort(naomit(unlist(nca$mentions_screen_name)), mentions = TRUE) - png("nca17-ats.png", height = 3.1, width = 4.26, "in", res = 300) + png("nca17-ats.png", height = 3.1, width = 4.25, "in", res = 300) par(bg = "white") gridExtra::grid.table(usrs, theme = gridExtra::ttheme_default(base_size = 9)) dev.off() diff --git a/nca17-ats.png b/nca17-ats.png index 2ab92e1..f7c37aa 100644 Binary files a/nca17-ats.png and b/nca17-ats.png differ diff --git a/nca17-wc.png b/nca17-wc.png index e072a07..86d726d 100644 Binary files a/nca17-wc.png and b/nca17-wc.png differ