Contenidos

Estadísticas generales

Hay un total de 11.521 mensajes en Telegram desde la creación del grupo el 18 de marzo de 2020 al 10 de octubre de 2021.

En total, por él grupo han pasado un total de 1949 usuarios únicos, de los cuales permanecen 1468 (75,32%).

df <- telegram.stats::read_log(x='result.json')
## Identified:
## 11521 messages
## 1949 users
df_ms <- df[[2]]
df_sv <- df[[3]]

Participación

Mensajes por usuario

De todos los usuarios que han pasado por el grupo, 836 han enviado algún mensaje.

df_users <- users_messages(df_ms)
## 836 users send messages

Estos usuarios publican una media de 13,78 mensajes (\(\pm\) 62,28).

mean(df_users$messages)
## [1] 13.7811
sd(df_users$messages)
## [1] 62.28477

Aunque esta cifra se ve reducida a una media de 11,89 mensajes (\(\pm\) 29,58) al no considerar al director del proyecto (Daniel Torres Salinas), quien ha enviado por el grupo un total de 1597 mensajes.

mean(df_users$messages[which(df_users$from != 'Daniel Torres Salinas')])
## [1] 11.88503
sd(df_users$messages[which(df_users$from != 'Daniel Torres Salinas')])
## [1] 29.57957
ggplot(df_users, aes(x=messages)) + 
  #geom_histogram(aes(y=..density..), colour='black', fill='white') +
  geom_density(alpha=.3, fill='#575a7b', colour='#575a7b') +
  labs(x='Mensajes', y='Densidad') +
  xlim(0, 100) +
  theme_minimal()

Ranking de los top 20 usuarios que más mensajes publican.

ggplot2::ggplot(data=df_users[which(df_users$from != '')[1:20],], aes(x=reorder(from, messages), y=messages))+
  ggplot2::geom_col(fill='#d1342870')+
  ggplot2::geom_text(ggplot2::aes(label=messages), hjust=-0.1, size=2.5) +
  ggplot2::coord_flip() +
  labs(x='Usuario', y='Mensajes')  +
  ggplot2::theme_minimal() +
  ggplot2::theme(
    panel.grid.major = ggplot2::element_line(size = 0.1, colour = '#12150e'), 
    panel.grid.minor = ggplot2::element_line(size = 0.05, colour = '#12150e'),
    panel.grid.major.y = ggplot2::element_blank())

Mensajes diarios

De los 572 días que han pasado desde que el grupo fuese creado, se han enviado mensajes 459 días (80,24%).

df_dm <- daily_messages(df_ms)
## 459 days with any message
## 572 days since the Telegram group creation

Considerando los 572 días, se envian a diario una media de 20,14 mensajes (\(\pm\) 36,29).

mean(df_dm$messages)
## [1] 20.14161
sd(df_dm$messages)
## [1] 36.28737
ggplot2::ggplot()+
  ggplot2::geom_area(data=df_ms %>%
                  mutate(date=as.Date(paste0(substr(date, 1, 8),'01'), format='%Y-%m-%d')) %>%
                  select(date) %>% 
                  group_by(date) %>%
                  dplyr::summarise(messages = n()), 
  aes(x=date, y=messages),
  position = 'identity', fill='#098a7470', colour='#098a74')+
  labs(x='Mes', y='Mensajes')  +
  ggplot2::theme_minimal() +
  ggplot2::theme(
    panel.grid.major = ggplot2::element_line(size = 0.1, colour = '#12150e'), 
    panel.grid.minor = ggplot2::element_line(size = 0.05, colour = '#12150e'),
    panel.grid.major.y = ggplot2::element_blank())

df_dm <- daily_messages(df_ms, calendar=TRUE)
## 459 days with any message
## 572 days since the Telegram group creation
ggplot(df_dm, aes(month, weekday)) +
  geom_tile(aes(fill = log10(messages)), colour = 'white') +
  scale_fill_viridis(breaks=log10(c(0,10,100, 1000)), labels=c(0,10,100, 1000), limits=log10(c(1,1000))) +
  labs(fill='Mensajes (log10)', x='Mes', y='Día de la semana')+
  theme_minimal() +
  theme(
    legend.position = 'bottom',
    legend.key.width = unit(2, 'cm'),
    panel.grid = element_blank()
  ) +
  facet_grid(~ year) +
  coord_equal()