Commit 3c831c51 authored by mariefbourdon's avatar mariefbourdon
Browse files

220627 figures 2

parent 727d7332
No preview for this file type
......@@ -127,8 +127,8 @@ rm(na_plot,prop_plot)
```{r grid_before}
grid_before <- plot_grid(as_grob(plotmap_before),rec_ratios_before,pheno_before_annot,pheno_before_zoom,ncol=2,labels=c("A","B","C","D"),label_size=20)
ggsave("figures/fig1.pdf",grid_before,width=14,height = 10)
ggsave("figures/fig1.png",grid_before,width=14,height = 10)
ggsave("figures/fig1prev.pdf",grid_before,width=14,height = 10)
ggsave("figures/fig1prev.png",grid_before,width=14,height = 10)
```
......@@ -210,7 +210,7 @@ dif %>% filter(dif==1) %>% count()
```{r pheno}
format_pheno <- phenos[1:6,]
write_csv(format_pheno,file="sup/tableS1.csv")
write_csv(format_pheno,file="figures/tableS1.csv")
print(xtable::xtable(format_pheno, type = "latex"), file = "tables/tab_alleles.tex",include.rownames=FALSE)
```
......@@ -261,7 +261,6 @@ df %<>% mutate(rec_before = as.numeric(rec) - as.numeric(rec_before),
allele_rec <- full_join(allele_rec,df,by="marker") %>% select(marker:parent2,rec_before,rec_after,pos_before,pos_after)
allele_rec
write_csv(allele_rec,"sup/tableS2.csv")
rm(map_1,map_2,map_3,map_4,pos_1,pos_2,pos_3,pos_4,df,allele_rec)
```
......@@ -301,8 +300,8 @@ narrow_grid <- ggdraw() +
c(0,.5,0,.3,0,.3,.5,.7),c(1,1,.75,.75,.5,.5,.25,.25))
narrow_grid
ggsave(narrow_grid,file="figures/figS3.pdf",width=10,height=17)
ggsave(narrow_grid,file="figures/figS3.png",width=10,height=17)
ggsave(narrow_grid,file="figures/figS3prev.pdf",width=10,height=17)
ggsave(narrow_grid,file="figures/figS3prev.png",width=10,height=17)
rm(peak1,peak1_tab,peak2,peak2_tab,peak3,peak3_tab,peak5,peak5_tab)
```
......
No preview for this file type
......@@ -223,7 +223,7 @@ rec_ratios_before <- rec_ratios %>% ggplot(aes(x=rat_prev)) +
geom_histogram(binwidth = .1,alpha=0.4, position="identity",fill="#990000") +
scale_x_log10() +
labs(x="Ratio between the calculated and the known distance with the previous marker",
y="ount",
y="Count",
fill="",
title="Fold change distance between adjacent markers") +
ggpubr::theme_classic2()
......
No preview for this file type
No preview for this file type
No preview for this file type
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
No preview for this file type
This diff is collapsed.
No preview for this file type
No preview for this file type
Supports Markdown
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