1  library(tidyverse)
 2  theme_set(theme_light())
 3  
 4  summarized <- read_tsv("figures/supp_tab1.tsv")
 5  
 6  supp_fig2 <- summarized |>
 7    ggplot(aes(x=mean_mae, y=mean_within_mae)) +
 8      geom_point() +
 9      scale_x_continuous(limits=c(0,1)) +
10      scale_y_continuous(limits=c(0,1)) +
11      geom_hline(yintercept=.4) +
12      geom_vline(xintercept = .4) +
13      xlab("Mean average error (total)") +
14      ylab("Mean average error (within noise class)")
15  
16  ggsave("figures/supp_fig2.svg", plot=supp_fig2, width=10, height=8)