Browse Source

Edit: finer lines in plot

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)
130 130
      type = "h", xaxt = "n", yaxt = "n",
131 131
      xlab = "Time", ylab = "Number of Posts",
132 132
      main  = "Participation around I Love Free Software Day",
133
-     col = "#a22430", axes = FALSE, lwd = 1)
133
+     col = "#a22430", axes = FALSE, lwd = 0.6)
134 134
   ##### Twitter
135
-  lines(density(as.numeric(twitter_datetime)), type = "h", col = "#1da1f2", lwd = 1)
135
+  lines(density(as.numeric(twitter_datetime)), type = "h", col = "#1da1f2", lwd = 0.6)
136 136
   ##### Added Axis (shows date)
137 137
   axis(side = 1, labels = c("10.02.18", "11.02.18", "12.02.18", "13.02.18", "14.02.18", "15.02.18"),
138 138
      at = c(20180210120000, 20180211120000, 20180212120000, 20180213120000, 20180214120000, 20180215120000))
@@ -176,8 +176,4 @@ pdf(file = "./plots/participation_time.pdf", height = 7, width = 7)
176 176
   legend(x = "topleft", legend = c("Twitter", "Fediverse"),
177 177
        fill = c("#1da1f2", "#a22430"), bty = "n")
178 178
 dev.off()
179
-
180
-
181 179
 # }}}
182
-
183
-

Loading…
Cancel
Save