ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
# linetype = "Judgment"
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation"
# linetype = "Judgment"
)
d
usim %>%
ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation"
# linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
facet_wrap(~type, scales = "free_y") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation"
# linetype = "Judgment"
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, 6, 6)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, 6, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, 4, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, 0, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, -1, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
geom_hline(y_intercept = 0.0, linetype = "dashed") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, -1, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
geom_hline(yintercept = 0.0, linetype = "dashed") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, -1, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
usim %>%
ggplot(aes(layer, correlation, color = embedding, linetype = type, shape = embedding)) +
geom_point(size = 4) +
geom_line(size = 1) +
geom_hline(yintercept = 0.0, linetype = "dashed") +
# scale_y_continuous(limits = c(0, 0.6)) +
scale_x_continuous(breaks = 0:12, minor_breaks = NULL) +
scale_color_manual(values = c("#2978b5", "#f7a440")) +
theme_bw(base_size = 20, base_family = "Times") +
theme(
legend.position = "top",
plot.margin = margin(0.1, 0.2, 0.1, 0.1, "cm"),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA),
legend.margin = margin(6, 6, -1, 4)
) +
labs(
x = "Layer",
y = "Spearman's R",
color = "Representation",
shape = "Representation",
linetype = "Judgment"
) +
guides(
color = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
shape = guide_legend(
title.position = "left",
direction = "vertical",
hjust = -1
),
linetype = guide_legend(
title.position = "left",
direction = "vertical"
)
)
ggsave("Figures/usim.pdf", height = 6, width = 7)
