Explore read table

Load libraries

library(tidyverse)

Import data

df<-read_delim(file="filtering.csv", delim=",")
head(df)

Plot reads

df_gg1<-df %>%
  gather(group,reads, -Sample)
head(df_gg1)

ggplot(df_gg1, aes(x=Sample, y=reads)) +
  geom_point(aes(color=group, shape=group), size=2, alpha=0.8) +
  theme(axis.text.x = element_text(angle=45, hjust=1))