e98bacabb8
lits two things: - number of times folks have been called on - number of times folks have bee absent/present
25 lines
904 B
R
25 lines
904 B
R
library(ggplot2)
|
|
|
|
gs <- read.delim("student_information.tsv")
|
|
d <- gs[,c(2,5)]
|
|
colnames(d) <- c("student.num", "discord.name")
|
|
|
|
call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"), function (x) {read.delim(x)}))
|
|
colnames(call.list) <- gsub("_", ".", colnames(call.list))
|
|
|
|
call.counts <- data.frame(table(call.list$discord.name))
|
|
colnames(call.counts) <- c("discord.name", "num.calls")
|
|
|
|
d <- merge(d, call.counts, all.x=TRUE, all.y=TRUE, by="discord.name"); d
|
|
|
|
## set anything that's missing to zero
|
|
d$num.calls[is.na(d$num.calls)] <- 0
|
|
|
|
attendance <- unlist(lapply(list.files(".", pattern="^attendance-.*tsv$"), function (x) {d <- read.delim(x); strsplit(d[[2]], ",")}))
|
|
|
|
attendance.counts <- data.frame(table(attendance))
|
|
colnames(attendance.counts) <- c("discord.name", "num.present")
|
|
|
|
d <- merge(d, attendance.counts, all.x=TRUE, all.y=TRUE, by="discord.name"); d
|
|
|