Analisis de chats con whatsapp

Este es un ejemplo de uso de R para análisis de conversaciones de whatsapp

library(pacman)
p_load("rwhatsapp", "lubridate", "tidyverse", "tidytext", "kableExtra", "RColorBrewer", "RColorBrewer", "base64enc", "htmltools", "mime", "xfun", "prettydoc")
setwd("~/VERANOPYE")
miChat <- rwa_read("ChatdeWhatsAppconAngelicaPayan.txt")

Análisis por mes (Junio y Julio)

  • Análisis por mes
miChat <- miChat %>% 
 mutate(day = date(time)) %>% 
 mutate(
 # SEGMENTACIÓN POR MES
 mes = case_when(
 day >= dmy(05062020) & day <= dmy(28062020) ~ "Junio 2020", #5/6/20 ->  28/6/20 
 day >= dmy(03072020) & day <= dmy(05072020) ~  "Julio 2020", # 3/7/20 -> 5/7/20 
 T ~ "Fuera de rango")
 ) %>% 
 mutate( mes = factor(mes) ) %>% 
 filter(!is.na(author))

Análisis de frecuencia

  • Frecuencia de mensajes diarios
# PALETA DE COLORES
paleta.estaciones <- brewer.pal(8,"Set1")[c(7,5,1,3,4,2,6,8)]
# VERIFICANDO CUÁNTOS MENSAJES SE ENVIARON DURANTE EL PERIODO DE TIEMPO
miChat %>% 
  group_by(mes) %>% 
  count(day) %>%
  ggplot(aes(x = day, y = n, fill=mes)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values=paleta.estaciones) +
  ylab("Número de mensajes") + xlab("Fecha") +
  ggtitle("Mensajes por día", "Frecuencia por estación del año") +
  theme_minimal() +
  theme( legend.title = element_blank(), 
         legend.position = "bottom")

Archivos

  • Para bajar los datos y este codigo
xfun::embed_file("whatsapp.rmd")
Download whatsapp.rmd 
xfun::embed_file("ChatdeWhatsAppconAngelicaPayan.txt")
Download ChatdeWhatsAppconAngelicaPayan.txt