- Timely Change
- Daily Members
- Daily Members by Day of Week
- Weekly Members
- Weekly Members by Day of Week
- Messages in Public, Private and DM Channels
- Percent Based Messages in Public, Private and DM Channels
- Messages in Public Channels by Day of Week
- Percent Based Messages in Public Channels by Day of Week
- Messages in Private Channels by Day of Week
- Percent Based Messages in Private Channels by day of Week
- Messages in DM by Day of Week
- Percent Based Messages in DM by Day of Week
r4ds_members <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-07-16/r4ds_members.csv")
# load the packages
library(tidyverse)
library(ggstatsplot)
library(lubridate)
Strong Correlation among daily members and their messages. But if we consider the Week of the day highest correlation is for Wednesday and lowest for Friday.
— Amalan Mahendran (@Amalan_Con_Stat) July 16, 2019
GitHub code: https://t.co/uZGOzvj66A #TidyTuesday pic.twitter.com/D99XBJzSc7
Timely Change
Timely Change for Full Members
ggplot(r4ds_members,aes(date,full_members))+geom_point(color=blues9[7])+
ggthemes::theme_stata()+
xlab("Date")+ylab("Full Members")+
scale_x_date(date_labels = "%y %b %d",breaks = '1 month')+
theme(axis.text.x = element_text(angle = 60,hjust=1))+
ggtitle("How R4DS Members have involved over the Years")
Daily Members
ggscatterstats(
data = r4ds_members,
x = daily_active_members,
y = daily_members_posting_messages,
xlab = "Daily Active Members",
ylab = "Daily Active Members Posting Messages",
title = "Relationship between Daily Active Members and them posting messages",
messages = FALSE
)
Daily Members by Day of Week
grouped_ggscatterstats(
data = r4ds_members %>% mutate(day=wday(date,label=TRUE)),
x=daily_active_members,
y=daily_members_posting_messages,
grouping.var = day,
xlab = "Daily Active\nMembers",
ylab = "Daily Active Members\nPosting Messages",
title = "Relationship between Daily Active Members\nand them posting messages",
messages = FALSE,ncol=2
)
Weekly Members
ggscatterstats(
data = r4ds_members,
x = weekly_active_members,
y = weekly_members_posting_messages,
xlab = "Weekly Active Members",
ylab = "Weekly Active Members Posting Messages",
title = "Relationship between Weekly Active Members and them posting messages",
messages = FALSE
)
Weekly Members by Day of Week
grouped_ggscatterstats(
data = r4ds_members %>% mutate(day=wday(date,label=TRUE)),
x = weekly_active_members,
y = weekly_members_posting_messages,
grouping.var=day,
xlab = "Weekly Active Members",
ylab = "Weekly Active Members\nPosting Messages",
title = "Relationship between Weekly Active Members\nand them posting messages",
messages = FALSE,ncol=2
)
Messages in Public, Private and DM Channels
ggbetweenstats(
data = select(r4ds_members,"messages_in_public_channels",
"messages_in_private_channels",
"messages_in_d_ms") %>%
gather("Type","Count"),
x = Type,
y = Count,
xlab = "Type of Channel",
ylab = "Count",
title = "Comparing Daily Messages Between Channels",
messages = FALSE
)
Percent Based Messages in Public, Private and DM Channels
ggbetweenstats(
data = select(r4ds_members,"percent_of_messages_public_channels",
"percent_of_messages_private_channels",
"percent_of_messages_d_ms") %>%
gather("Type","Count"),
x = Type,
y = Count,
xlab = "Type of Channel",
ylab = "Count",
title = "Comparing Daily Messages Between Channels Percentage Wise",
messages = FALSE
)
Messages in Public Channels by Day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("messages_in_public_channels","day"),
x = day,
y = messages_in_public_channels,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages of Public Channels\nbetween Week of the Day",
messages = FALSE
)
Percent Based Messages in Public Channels by Day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("percent_of_messages_public_channels","day"),
x = day,
y = percent_of_messages_public_channels,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages Percent of Public Channels\nbetween Week of the Day",
messages = FALSE
)
Messages in Private Channels by Day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("messages_in_private_channels","day"),
x = day,
y = messages_in_private_channels,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages of Private Channels\nbetween Week of the Day",
messages = FALSE
)
Percent Based Messages in Private Channels by day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("percent_of_messages_private_channels","day"),
x = day,
y = percent_of_messages_private_channels,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages Percent of Private Channels\nbetween Week of the Day ",
messages = FALSE
)
Messages in DM by Day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("messages_in_d_ms","day"),
x = day,
y = messages_in_d_ms,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages of DM \nbetween Week of the Day",
messages = FALSE
)
Percent Based Messages in DM by Day of Week
ggbetweenstats(
data = r4ds_members %>% mutate(day=wday(date,label = TRUE)) %>%
select("percent_of_messages_d_ms","day"),
x = day,
y = percent_of_messages_d_ms,
xlab = "Week of the Day",
ylab = "Count",
title = "Comparing Daily Messages Percent of DM \nbetween Week of the Day ",
messages = FALSE
)
THANK YOU