different exploreation defintion

B_AnalysisCode/Adaptive_Adolescence_Multi.Rmd

@@ -1361,7 +1361,7 @@ rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(O
   coord_cartesian(ylim=c(0,400))+
   guides(fill=F,shape=F)+
   ggtitle("")+
-  theme_minimal(14)+theme(axis.text.y = element_text(color="white"))->GainMany
+  theme_minimal(14)->GainMany
 
 rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(Outcome=="Loss")%>%
   ggplot(aes(x=Stage,y=howMany,color=Which))+
@@ -1379,20 +1379,20 @@ rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(O
 
 
 rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(Outcome=="Loss")%>%
-  ggplot(aes(x=Stage,y=abs(howMuch),color=Which))+
+  ggplot(aes(x=Stage,y=abs(howMuch)/40000,color=Which))+
   geom_jitter(aes(group=Which),alpha=0.2,position = position_dodge(0.5))+
   #stat_summary(aes(fill=Outcome),geom="pointrange",fun.data = "mean_cl_boot",size=0.7,color="black")+
   stat_smooth(aes(x=as.numeric(Stage)))+
   geom_boxplot(width=0.5)+
-  scale_y_continuous(name="magnitude [au]")+
+  scale_y_continuous(name="mean magnitude")+
   scale_x_discrete("",breaks=c("1","2","3"),labels=Plot_labels)+
   scale_color_manual(name="",values=c(wes_palette("Darjeeling1")[2],wes_palette("Darjeeling1")[3]))+
   guides(fill=F,shape=F)+
   ggtitle("")+
-  theme_minimal(14)+theme(axis.text.y = element_blank())->LossMuch
+  theme_minimal(14)->LossMuch
 
 rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(Outcome=="Gain")%>%
-  ggplot(aes(x=Stage,y=abs(howMuch),color=Which))+
+  ggplot(aes(x=Stage,y=abs(howMuch)/40000,color=Which))+
   geom_jitter(aes(group=Which),alpha=0.2,position = position_dodge(0.5))+
   #stat_summary(aes(fill=Outcome),geom="pointrange",fun.data = "mean_cl_boot",size=0.7,color="black")+
   stat_smooth(aes(x=as.numeric(Stage)))+
@@ -1403,7 +1403,7 @@ rbind(AllSoc%>%mutate(Which="Social"),AllIndi%>%mutate(Which="Solo"))%>%filter(O
  # coord_cartesian(ylim=c(0,400))+
   guides(fill=F,shape=F)+
   ggtitle("")+
-  theme_minimal(14)+theme(axis.text.y = element_blank())->GainMuch
+  theme_minimal(14)->GainMuch
 leg=get_legend(LossMany)
 
 one<-plot_grid(LossMany+guides(color=F),LossMuch+guides(color=F),nrow=2,labels=c("A","B"))
@@ -1717,7 +1717,7 @@ newExp_all_Social_socialOutcomes%>%group_by(iter)%>%
 # Arbitrary choice Exploration
 ```{r}
 Plot_datAll%>%
-  mutate(Criterion=case_when((sample==1 & sig>20)~1,TRUE~0)
+  mutate(Criterion=case_when((sample==1 & sig>38)~1,TRUE~0)
   )%>%mutate(newCum=cumsum(Criterion))%>%
   ungroup()%>%group_by(trials,iter)%>%
   summarise(explore=max(newCum))%>%
@@ -1734,29 +1734,30 @@ Plot_datAll%>%
     )
   )%>%filter(!is.na(Stage) & trials %in% round(seq(50,1200,length.out = 24)))%>%
   ggplot(aes(x=trials,y=explore2))+
-  stat_summary(geom="ribbon", fun.data="mean_sdl",alpha=0.2)+
-  stat_summary(geom="line",fun.y = "mean",color="black")+
-  #geom_jitter()+
+ # stat_summary(geom="ribbon", fun.data="mean_sdl",alpha=0.2)+
+  #stat_summary(geom="line",fun.y = "mean",color="black")+
+  geom_jitter(size=2,alpha=.5,color=wes_palette("Darjeeling1")[1])+
   #geom_rect(aes(xmin=50,xmax=400,ymin=-5,ymax=100,fill="1"),alpha=0.1)+
   #geom_rect(aes(xmin=400,xmax=800,ymin=-5,ymax=100,fill="2"),alpha=0.1)+
   #geom_rect(aes(xmin=801,xmax=1200,ymin=-5,ymax=100,fill="3"),alpha=0.1)+
-  #geom_spline(size=1)+
-  geom_point(aes(shape=Stage),size=1,alpha=0.1)+
-  stat_summary(aes(shape=Stage),geom="point",fun.y = "mean",size=2.5,color="black",fill="white")+
-  scale_shape_manual(name="Developmental Stage",values=c(22,21,24))+
-  geom_vline(xintercept = 420, linetype="dotted",color="royalblue")+
-  geom_vline(xintercept = 410, linetype="dotted",color="royalblue")+
-  geom_vline(xintercept = 800, linetype="dotted",color="royalblue")+
-  geom_vline(xintercept = 790, linetype="dotted",color="royalblue")+
-  annotate("text",x=150,y=60,label=c("Children"))+
-  annotate("text",x=600,y=60,label=c("Adolescents"))+
-  annotate("text",x=950,y=60,label=c("Adults"))+
+  geom_spline(size=3)+
+  stat_summary(geom="pointrange",fun.data="mean_cl_boot",color="black",fill="white",size=1,shape=23)+
+  #scale_shape_manual(name="",values=c(23,24))+
+  geom_vline(xintercept = 420, linetype="dotted",size=1)+
+  geom_vline(xintercept = 410, linetype="dotted",size=1)+
+  geom_vline(xintercept = 800, linetype="dotted",size=1)+
+  geom_vline(xintercept = 790, linetype="dotted",size=1)+
+  annotate("text",x=150,y=55,label=c("Children"),size=6)+
+  annotate("text",x=600,y=55,label=c("Adolescents"),size=6)+
+  annotate("text",x=950,y=55,label=c("Adults"),size=6)+
+ # scale_color_manual(name="",values=c(wes_palette("Darjeeling1")[2]))+
   #scale_fill_brewer(name="Developmental Stage",labels=c("Kids","Adolescents","Adults"),palette = "YlGnBu")+
-  coord_cartesian(ylim=c(0,60))+
-  scale_fill_brewer(name="Developmental Stage",labels=c("Children","Adolescents","Adults"),palette = "Reds")+
-  scale_y_continuous(name="Decisions")+
+  coord_cartesian(ylim=c(0,55),xlim=c(0,1150))+
+  scale_y_continuous(name="Exploration")+
   scale_x_continuous(name="trials")+
-  ggtitle("Sample Highly Uncertain Options")+
+  guides(linetype=F)+
+  theme_minimal(16)+
+  ggtitle("Sample Where Agents is Uncertain")+
   theme_minimal(14)