Wow Result Analysis

General Statistics

• Number of Guilds

length(unique(focal_player_with_unobserved_byweek_all$guild_id))

[1] 22

• Number of Weeks

length(unique(focal_player_with_unobserved_byweek_all$week))

[1] 30

• Total Number of guild*week

nrow(guild_cluster_selection)

[1] 307

• Total Number of Players

nrow(focal_player_with_unobserved_byweek_all)

[1] 28835

• Total Number of unique Players

length(unique(focal_player_with_unobserved_byweek_all$player_id))

[1] 2414

• Distributions of Number of observations per player

hist(individual_a_byweek$count_obs,breaks = 30)

• Number of guilds per player

table(individual_a_byweek$count_guild)

   1    2    3    4    5    6    7 
1547  562  216   67   18    3    1 

• Total Observations of Churnings

table(focal_player_with_unobserved_byweek_all$is_churn)

    0     1 
28336   499 

• Total Observations of changing guilds

table(focal_player_with_unobserved_byweek_all$change_guild)

    0     1 
27195  1640 

• Distributions of level

hist(focal_player_with_unobserved_byweek_all$mean_level,breaks=60)

• Distribution of total available time

hist(focal_player_with_unobserved_byweek_all$total_time,breaks=100)

• Average level/playing time/time at 60 trend over week

week_summary<-focal_player_with_unobserved_byweek_all %>% group_by(week) %>% summarise(level=mean(mean_level),time=mean(total_time),days_in_60 = mean(days_in_60))
plot(week_summary$week,week_summary$level)

plot(week_summary$week,week_summary$time)

plot(week_summary$week,week_summary$days_in_60)

• Distributions of time staying at level 60

hist(focal_player_with_unobserved_byweek_all$days_in_60,breaks=20)

Analysis on unobserved a

General Stats

• Summary Stats of Unobserved a

summary(focal_player_with_unobserved_byweek_all$unobserved_a)

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-2.86700 -0.10500  0.07478  0.05613  0.22830  3.17000 

• Unobserved a by week

test<-focal_player_with_unobserved_byweek_all %>% group_by(week) %>% summarise(mean_a = mean(unobserved_a))
plot(test)

test<-focal_player_with_unobserved_byweek_all %>% group_by(week) %>% summarise(var_a = var(unobserved_a))
plot(test)

Unobserved a by Churn

• Individual a: Churn vs not churn

focal_player_with_unobserved_byweek_all %>% group_by(floor_level,is_churn) %>% summarise(mean_a = mean(unobserved_a),sd_a = sd(unobserved_a),count_player=n())

• Relative a(a-mean a in guild): Churn vs not churn

focal_player_with_unobserved_byweek_all %>% group_by(floor_level,is_churn) %>% summarise(mean_a = mean(relative_a),sd_a = sd(relative_a),count_player=n())

Unobserved a by changing guilds

• Individual a: Change guild vs not changing guild

focal_player_with_unobserved_byweek_all %>% group_by(floor_level,lead_change_guild) %>% summarise(mean_a = mean(unobserved_a),mean_relative_a = mean(relative_a),count=n())

• Individual a grouped by total number of guilds

individual_a_byweek %>% group_by(count_guild) %>% summarise(mean_a_a = mean(mean_a),count=n())

Empirical evidence of unobserved a based on connection data and observed characterisitcs

• The effect of observed characteristics on connection strength for guild 1

plot(connection_pair_byguild[[1]]$level_diff,connection_pair_byguild[[1]]$connection_strength,xlab="abosolute level difference",ylab ="connection strength")

plot(connection_pair_byguild[[1]]$level60_diff,connection_pair_byguild[[1]]$connection_strength,xlab="abosolute level60 difference",ylab ="connection strength")

plot(connection_pair_byguild[[1]]$time_diff,connection_pair_byguild[[1]]$connection_strength,xlab="abosolute time difference",ylab ="connection strength")

plot(connection_pair_byguild[[1]]$a_diff,connection_pair_byguild[[1]]$connection_strength,xlab="abosolute a difference",ylab ="connection strength")

• The effect of observed characteristics on percentage connection strength for guild 1

plot(percentage_connection_pair_byguild[[1]]$level_diff,percentage_connection_pair_byguild[[1]]$connection_strength,xlab="abosolute level difference",ylab ="Percentage connection strength")

plot(percentage_connection_pair_byguild[[1]]$level60_diff,percentage_connection_pair_byguild[[1]]$connection_strength,xlab="abosolute level60 difference",ylab ="Percentage connection strength")

plot(percentage_connection_pair_byguild[[1]]$time_diff,percentage_connection_pair_byguild[[1]]$connection_strength,xlab="abosolute time difference",ylab ="Percentage connection strength")

plot(percentage_connection_pair_byguild[[1]]$a_diff,percentage_connection_pair_byguild[[1]]$connection_strength,xlab="abosolute a difference",ylab ="Percentage connection strength")

• The effect of observed characteristics on connection: guild 207

plot(connection_pair_byguild[[207]]$level_diff,connection_pair_byguild[[207]]$connection_strength,xlab="abosolute level difference",ylab ="connection strength")

plot(connection_pair_byguild[[207]]$level60_diff,connection_pair_byguild[[207]]$connection_strength,xlab="abosolute level60 difference",ylab ="connection strength")

plot(connection_pair_byguild[[207]]$time_diff,connection_pair_byguild[[207]]$connection_strength,xlab="abosolute time difference",ylab ="connection strength")

plot(connection_pair_byguild[[207]]$a_diff,connection_pair_byguild[[207]]$connection_strength,xlab="abosolute a difference",ylab ="connection strength")

• The effect of observed characteristics on percentage connection: guild 207

plot(percentage_connection_pair_byguild[[207]]$level_diff,percentage_connection_pair_byguild[[207]]$connection_strength,xlab="abosolute level difference",ylab ="percentage connection strength")

plot(percentage_connection_pair_byguild[[207]]$level60_diff,percentage_connection_pair_byguild[[207]]$connection_strength,xlab="abosolute level60 difference",ylab ="percentage connection strength")

plot(percentage_connection_pair_byguild[[207]]$time_diff,percentage_connection_pair_byguild[[207]]$connection_strength,xlab="abosolute time difference",ylab ="percentage connection strength")

plot(percentage_connection_pair_byguild[[207]]$a_diff,percentage_connection_pair_byguild[[207]]$connection_strength,xlab="abosolute a difference",ylab ="percentage connection strength")

• The effect of level on connection(all guilds)

plot(connection_pair_byguild_all$level_diff,connection_pair_byguild_all$connection_strength,xlab="abosolute level difference",ylab ="connection strength")

• The effect of level on percentage connection(all guilds)

plot(percentage_connection_pair_byguild_all$level_diff,percentage_connection_pair_byguild_all$connection_strength,xlab="abosolute level difference",ylab ="percentage connection strength")

• The effect of time on connection(all guilds)

plot(connection_pair_byguild_all$time_diff,connection_pair_byguild_all$connection_strength,xlab="abosolute time difference",ylab ="connection strength")

• The effect of level60_time on percentage connection(all guilds)

plot(percentage_connection_pair_byguild_all$level60_diff,percentage_connection_pair_byguild_all$connection_strength,xlab="abosolute level60 difference",ylab ="percentage connection strength")

• The effect of unobserved a on connection(all guilds)

plot(connection_pair_byguild_all$a_diff,connection_pair_byguild_all$connection_strength,xlab="abosolute a difference",ylab ="connection strength")

• The effect of unobserved a on percentage connection(all guilds)

plot(percentage_connection_pair_byguild_all$a_diff,percentage_connection_pair_byguild_all$connection_strength,xlab="abosolute a difference",ylab ="percentage connection strength")

• Players of same level,level60,time but different a: connection

temp<-filter(connection_pair_byguild_all,level_diff<1, level60_diff<1,time_diff<20)
plot(temp$a_diff,temp$connection_strength)

• Players of same level,level60,time but different a: percentage connection

temp<-filter(percentage_connection_pair_byguild_all,level_diff<1, level60_diff<1,time_diff<20)
plot(temp$a_diff,temp$connection_strength)

Individual level a trend

Group By Frequency of Changing Guild

• Players that frequent change guild

test<-filter(focal_player_with_unobserved_byweek_all,player_id==127)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

test<-filter(focal_player_with_unobserved_byweek_all,player_id==10044)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

test<-filter(focal_player_with_unobserved_byweek_all,player_id==6534)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

• Players that never change a guild

test<-filter(focal_player_with_unobserved_byweek_all,player_id==30)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

test<-filter(focal_player_with_unobserved_byweek_all,player_id==44)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

test<-filter(focal_player_with_unobserved_byweek_all,player_id==62)
ggplot(test,aes(x=week,y=relative_a))+geom_line()

Group By Mean a

• Players with low average a

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% low_mean_player_sample)
ggplot(test,aes(x=week,y=unobserved_a,color=factor(player_id)))+geom_line()

ggplot(test,aes(x=week,y=relative_a,color=factor(player_id)))+geom_line()

The percentage of changing guild is

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% low_mean_player)
table(test$change_guild)[2]/nrow(test)

         1 
0.05979062 

• Players with high average a

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% high_mean_player_sample)
ggplot(test,aes(x=week,y=unobserved_a,color=factor(player_id)))+geom_line()

ggplot(test,aes(x=week,y=relative_a,color=factor(player_id)))+geom_line()

The percentage of changing guild is

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% high_mean_player)
table(test$change_guild)[2]/nrow(test)

         1 
0.06062303 

Group By Variance in a

• Players with low variance in a

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% low_var_player_sample)
ggplot(test,aes(x=week,y=unobserved_a,color=factor(player_id)))+geom_line()

ggplot(test,aes(x=week,y=relative_a,color=factor(player_id)))+geom_line()

The percentage of changing guild is

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% low_var_player)
table(test$change_guild)[2]/nrow(test)

         1 
0.04874185 

Summary stats of unobserved a

summary(test$unobserved_a)

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-1.54500 -0.08191  0.07628  0.06426  0.21520  1.09900 

Summary stats of relative a

summary(test$relative_a)

     Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
-1.608000 -0.135500  0.021610  0.009263  0.159000  1.036000 

• Players with high variance in a

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% high_var_player_sample)
ggplot(test,aes(x=week,y=unobserved_a,color=factor(player_id)))+geom_line()

ggplot(test,aes(x=week,y=relative_a,color=factor(player_id)))+geom_line()

Percentage of changing guilds

test<-filter(focal_player_with_unobserved_byweek_all,player_id %in% high_var_player)
table(test$change_guild)[2]/nrow(test)

         1 
0.08177313 

Summary stats of unobserved a

summary(test$unobserved_a)

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-2.86700 -0.21110  0.06833  0.03279  0.28230  3.17000 

Summary stats of relative a

summary(test$relative_a)

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-3.02200 -0.26700  0.01064 -0.02665  0.22610  3.01400 

Guild level a trend

• Unobserved a by guild

ggplot(guild_a_byweek,aes(x=week,y=mean_a,group=guild_id,colour=factor(guild_id)))+geom_line()

ggplot(guild_a_byweek,aes(x=week,y=var_a,group=guild_id,colour=factor(guild_id)))+geom_line()