Browse Source

Edit: finer lines in plot

pull/7/head
janwey 1 year ago
parent
commit
e19e44bd96
3 changed files with 2 additions and 6 deletions
  1. BIN
      plots/participation_datetime.pdf
  2. BIN
      plots/participation_time.pdf
  3. 2
    6
      plotte.R

BIN
plots/participation_datetime.pdf View File


BIN
plots/participation_time.pdf View File


+ 2
- 6
plotte.R View File

@@ -130,9 +130,9 @@ pdf(file = "./plots/participation_datetime.pdf", height = 7, width = 7)
type = "h", xaxt = "n", yaxt = "n",
xlab = "Time", ylab = "Number of Posts",
main = "Participation around I Love Free Software Day",
col = "#a22430", axes = FALSE, lwd = 1)
col = "#a22430", axes = FALSE, lwd = 0.6)
##### Twitter
lines(density(as.numeric(twitter_datetime)), type = "h", col = "#1da1f2", lwd = 1)
lines(density(as.numeric(twitter_datetime)), type = "h", col = "#1da1f2", lwd = 0.6)
##### Added Axis (shows date)
axis(side = 1, labels = c("10.02.18", "11.02.18", "12.02.18", "13.02.18", "14.02.18", "15.02.18"),
at = c(20180210120000, 20180211120000, 20180212120000, 20180213120000, 20180214120000, 20180215120000))
@@ -176,8 +176,4 @@ pdf(file = "./plots/participation_time.pdf", height = 7, width = 7)
legend(x = "topleft", legend = c("Twitter", "Fediverse"),
fill = c("#1da1f2", "#a22430"), bty = "n")
dev.off()


# }}}



Loading…
Cancel
Save