library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(title=FALSE, x="Flyline", y = "Risk ratio
Jak/Stat mutants vs. y/w")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("Risk ratio.csv")
hazfn <- read.csv("Risk ratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
Jak/Stat mutants vs. y/w")+
theme_classic2(base_size = 20)
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("Risk ratio.csv")
hazfn <- read.csv("Risk ratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("G9a_riskratio.csv")
hazfn <- read.csv("G9a_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("G9a_riskratio.csv")
hazfn <- read.csv("G9a_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = sex, fill = flyline, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=sex, y=estimate, fill=flyline)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- vs. control)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("G9a_riskratio.csv")
hazfn <- read.csv("G9a_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- vs. control)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("G9a_riskratio.csv")
hazfn <- read.csv("G9a_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- vs. control)")+
theme_classic2(base_size = 20)
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.5))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- vs. control)")+
theme_classic2(base_size = 20)
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- vs. control)")+
theme_classic2(base_size = 20)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(G9a-/- / control)")+
theme_classic2(base_size = 20)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ratio between G9a-/- & control flies)")+
theme_classic2(base_size = 20)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ratio between G9a-/- & control flies)")+
theme_classic2(base_size = 16)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("Controls_riskratio.csv")
hazfn <- read.csv("Controls_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ratio between G9a-/- & control flies)")+
theme_classic2(base_size = 16)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("Controls_riskratio.csv")
hazfn <- read.csv("Controls_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ratio between outross & y/w flies)")+
theme_classic2(base_size = 16)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("Risk ratio.csv")
hazfn <- read.csv("Risk ratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ration betweem Jak/Stat mutants & y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("akStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ration betweem Jak/Stat mutants & y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ration betweem Jak/Stat mutants & y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic2(base_size = 20)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic2()
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_test()
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic()
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(Jak/Stat mutants vs. y/w)")+
theme_classic(base_size = 18)
setwd("~/Dropbox/Mickael/Analysis/R")
read.csv("JakStat_riskratio.csv")
hazfn <- read.csv("JakStat_riskratio.csv")
str(hazfn)
summary(hazfn)
## boxplot
library(ggplot2)
ggplot(data = hazfn) +
aes(x = flyline, fill = sex, color = sex, weight = estimate) +
geom_bar(position = "dodge") +
labs(x = "Flyline",
y = "Risk ratio (Jak/Stat mutants vs. y/w)") +
theme_test()
p<- ggplot(hazfn, aes(x=flyline, y=estimate, fill=sex)) +
geom_bar(stat="identity", color="black",
position=position_dodge()) +
geom_errorbar(aes(ymin=estimate-std_err, ymax=estimate+std_err), width=.2,
position=position_dodge(.9))
print(p)
# Finished bar plot
p+labs(x="Flyline", y = "Risk ratio
(ratio between Jak/Stat mutants & y/w)")+
theme_classic(base_size = 18)
