Figure_1_Genome_size_WT_CTCF_data <- read.delim("~/Desktop/Data_availability/Figure_1_Genome_size_WT_CTCF/Figure_1_Genome_size_WT_CTCF_data.txt")
View(Figure_1_Genome_size_WT_CTCF_data)
data <- Figure_1_Genome_size_WT_CTCF_data
data.filter <- data[which((data$Nucleus.Area.um<500)&(data$DAPI.Sum>7e5)&(data$DAPI.Sum<4.5e6)),]
hist(data.filter$DAPI.Sum[which((data.filter$Cell.Type=="HeLa")&(data.filter$Staining=="CTCF"))], breaks = seq(from=0, to =4.5e6, by =20000))
par(new=T)
hist(data.filter$DAPI.Sum[which((data.filter$Cell.Type=="U2OS")&(data.filter$Staining=="CTCF")&(data.filter$Slide!="Bdx"))], breaks = seq(from=0, to =5e6, by =20000), col="red")
