From e0ee49655f793866a8af4e8cf578a08aebfa53e3 Mon Sep 17 00:00:00 2001 From: Yuuki Galaxy Date: Thu, 10 Jun 2021 18:06:20 +0800 Subject: [PATCH] modified: bplot.R --- R/FGI/fm2/bplot.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/FGI/fm2/bplot.R b/R/FGI/fm2/bplot.R index 63f049d6e..b297eb36b 100644 --- a/R/FGI/fm2/bplot.R +++ b/R/FGI/fm2/bplot.R @@ -2,11 +2,11 @@ library(tidyverse) snpdat <- read.csv('snps.csv') plotdat <- pivot_longer(snpdat, cols = starts_with("DEP"), names_to = "SNPs",values_to = "Depth") -PlotPointsize <- 8 +PlotPointsize <- 12 pdf('boxType.pdf', pointsize = PlotPointsize) -ggplot(plotdat, aes(Type, Depth)) + geom_boxplot() +ggplot(plotdat, aes(Type, Depth)) + geom_boxplot(colour = rainbow(length(unique(plotdat$Type)))) dev.off() pdf('boxSample.pdf', pointsize = PlotPointsize) -ggplot(plotdat, aes(ID, Depth)) + geom_boxplot() +ggplot(plotdat, aes(ID, Depth)) + geom_boxplot(colour = rainbow(length(unique(plotdat$ID)))) dev.off() -- 2.11.4.GIT