Lab3_AK

Exercise 1

ggplot(SNPs, aes(chromosome))+geom_bar()

Exercise 2

SNPs$chromosome = ordered(SNPs$chromosome, levels=c(seq(1, 22), "X", "Y", "MT"))
ggplot(SNPs, aes(chromosome))+geom_bar()

Exercise 3

ggplot(SNPs, aes(chromosome, fill=genotype))+geom_bar()

Exercise 4

ggplot(SNPs, aes(chromosome, fill=genotype))+geom_bar(position="fill")

Exercise 5

ggplot(SNPs, aes(chromosome, fill=genotype))+geom_bar(position="dodge")

Exercise 6

ggplot(SNPs, aes(chromosome, fill=genotype))+geom_bar(position="dodge")+facet_wrap(SNPs$genotype)