Commit 8df476fd authored by Simon Ciranka's avatar Simon Ciranka
Browse files

different exploreation defintion

parent 5e93e8f8
......@@ -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)
......
B_AnalysisCode/All_Indices.png

204 KB | W: | H:

B_AnalysisCode/All_Indices.png

219 KB | W: | H:

B_AnalysisCode/All_Indices.png
B_AnalysisCode/All_Indices.png
B_AnalysisCode/All_Indices.png
B_AnalysisCode/All_Indices.png
  • 2-up
  • Swipe
  • Onion skin
X_Figures/OutcomesSocial3.png

344 KB | W: | H:

X_Figures/OutcomesSocial3.png

345 KB | W: | H:

X_Figures/OutcomesSocial3.png
X_Figures/OutcomesSocial3.png
X_Figures/OutcomesSocial3.png
X_Figures/OutcomesSocial3.png
  • 2-up
  • Swipe
  • Onion skin
X_Figures/OutcomesSolo3.png

340 KB | W: | H:

X_Figures/OutcomesSolo3.png

338 KB | W: | H:

X_Figures/OutcomesSolo3.png
X_Figures/OutcomesSolo3.png
X_Figures/OutcomesSolo3.png
X_Figures/OutcomesSolo3.png
  • 2-up
  • Swipe
  • Onion skin
X_Figures/Solo_Social_Outcomes.png

522 KB | W: | H:

X_Figures/Solo_Social_Outcomes.png

517 KB | W: | H:

X_Figures/Solo_Social_Outcomes.png
X_Figures/Solo_Social_Outcomes.png
X_Figures/Solo_Social_Outcomes.png
X_Figures/Solo_Social_Outcomes.png
  • 2-up
  • Swipe
  • Onion skin
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment