Drosophila Synthetic Population Resource
1,2
Bulk-segregant analysis population
“Exploring” flies are those found in the B chamber after 6 hours. “Non-exploring” flies are those found in the A chamber after 6 hours.
Allelic frequency differences
Simulated allelic frequency differences between flies that exhibit exploration behavior and flies that don’t.
Code
# lib.loc = "C:/Users/zekef/AppData/Local/R/win-library/4.2"
library(ggplot2)
library(tidyverse)
set.seed(172452)
expl_freqs <- readRDS('expl-freqs.Rds')
arm <- expl_freqs %>%
filter(chrom=='2L') %>%
slice(1:800)
D <- (sample(400:600,800,replace = TRUE))/1000
N <- (sample(300:600,800, replace = TRUE))/1000
sampledata <- tibble(
"pos" = arm$pos,
"N" = N,
"D" = D
)
plt <- ggplot(data=sampledata, aes(pos/16)) +
geom_line(aes(y = N, colour = "non-explorers")) +
geom_line(aes(y = D, colour = "explorers"))
plt + labs(x = "Position (Mb)")