Label colleagues

reflections/20240524/20240524_richel.md

@@ -224,6 +224,8 @@ Taking a look at [meeting_saved_chat.txt](meeting_saved_chat.txt) ...
 
 ![Number of messages sent by sender](20240524_n_messages_per_sender.png)
 
+> R = me. Names starting with L are learners, names starting with C are colleagues.
+
 one can see I sent by far the most chat messages to everyone.
 Weakness of this plot is that I can only see the messages to everyone
 and my private ones. Maybe others use more private communication.

reflections/20240524/create_n_messages_per_sender_plot.R

@@ -15,10 +15,10 @@ t <- readr::read_csv(
 )
 names(t) <- c("time", "from", "to")
 t$from <- stringr::str_replace(t$from, ".*Bilderbeek.*", "R")
-t$from <- stringr::str_replace(t$from, ".*Diana.*", "D")
-t$from <- stringr::str_replace(t$from, ".*Lars.*", "L")
-t$from <- stringr::str_replace(t$from, ".*Claremar.*", "B")
-t$from <- stringr::str_replace(t$from, ".*Jonas.*", "J")
+t$from <- stringr::str_replace(t$from, ".*Diana.*", "C1")
+t$from <- stringr::str_replace(t$from, ".*Lars.*", "C2")
+t$from <- stringr::str_replace(t$from, ".*Claremar.*", "C3")
+t$from <- stringr::str_replace(t$from, ".*Jonas.*", "C4")
 t$from <- stringr::str_replace(t$from, ".*Darian.*", "L1")
 t$from <- stringr::str_replace(t$from, ".*Saeedeh.*", "L2")
 t$from <- stringr::str_replace(t$from, ".*Sakshi.*", "L3")
@@ -44,7 +44,8 @@ ggplot2::ggplot(n_from, mapping = ggplot2::aes(x = from, y = n)) +
  ggplot2::scale_y_continuous(name = "Number of chat messages sent to everyone") +
  ggplot2::scale_x_discrete(name = "Sender") +
  ggplot2::theme(text = ggplot2::element_text(size = 20)) +
- ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, vjust = 0.5, hjust=1))
+ ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, vjust = 0.5, hjust=1)) +
+ ggplot2::labs(caption = "Bianca Intermediate, 2024-05-24")
 
 ggplot2::ggsave("20240524_n_messages_per_sender.png", width = 7, height = 7)