The-article-category-as-a-referent-tracking-system/2_simulation.R at main · ooominds/The-article-category-as-a-referent-tracking-system · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

require(ggplot2)
require(grid)

load('sim_results.rda')


null.sim_results = sim_results[sim_results$Outcomes=='0',]
a.sim_results = sim_results[sim_results$Outcomes=='a',]
the.sim_results = sim_results[sim_results$Outcomes=='the',]

p1 <- ggplot(null.sim_results, aes(x=Trial, y=Weights, group=Cues)) +
    coord_cartesian(ylim=c(-0.35,0.50)) +
    geom_line(aes(colour=Cues, linetype=Cues), linewidth=1.2) +
    scale_colour_manual(values=c('#000000', '#757575', '#a6cee3', '#1f78b4',
        '#b2df8a', '#33a02c', '#fb9a99', '#e31a1c', '#fdbf6f', '#ff7f00',
        '#cab2d6', '#6a3d9a', '#ffff99', '#b15928')) +
    scale_linetype_manual(values=c(3,3,1,1,1,1,1,1,1,1,1,1,1,1)) +
    ggtitle('Outcome: 0') +
    theme(legend.position='none',
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        plot.title=element_text(hjust=0.5))
p2 <- ggplot(a.sim_results, aes(x=Trial, y=Weights, group=Cues)) +
    coord_cartesian(ylim=c(-0.35,0.50)) +
    geom_line(aes(colour=Cues, linetype=Cues), linewidth=1.2) +
    scale_colour_manual(values=c('#000000', '#757575', '#a6cee3', '#1f78b4',
        '#b2df8a', '#33a02c', '#fb9a99', '#e31a1c', '#fdbf6f', '#ff7f00',
        '#cab2d6', '#6a3d9a', '#ffff99', '#b15928')) +
    scale_linetype_manual(values=c(3,3,1,1,1,1,1,1,1,1,1,1,1,1)) +
    ggtitle('Outcome: a') +
    theme(legend.position='none',
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        plot.title=element_text(hjust=0.5))
p3 <- ggplot(the.sim_results, aes(x=Trial, y=Weights, group=Cues)) +
    coord_cartesian(ylim=c(-0.35,0.50)) +
    geom_line(aes(colour=Cues, linetype=Cues), linewidth=1.2) +
    scale_colour_manual(values=c('#000000', '#757575', '#a6cee3', '#1f78b4',
        '#b2df8a', '#33a02c', '#fb9a99', '#e31a1c', '#fdbf6f', '#ff7f00',
        '#cab2d6', '#6a3d9a', '#ffff99', '#b15928')) +
    scale_linetype_manual(values=c(3,3,1,1,1,1,1,1,1,1,1,1,1,1)) +
    ggtitle('Outcome: the') +
    theme(axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        plot.title=element_text(hjust=0.5))

pushViewport(viewport(layout=grid.layout(1, 3, heights=unit(c(5), 'null'),
        widths=unit(c(5,5,6.6), 'null'))))
print(p1, vp=viewport(layout.pos.row=1, layout.pos.col=1))
print(p2, vp=viewport(layout.pos.row=1, layout.pos.col=2))
print(p3, vp=viewport(layout.pos.row=1, layout.pos.col=3))