Hi,

I have a set of samples and log10 total read counts of them in a data frame like below

    > head(a)
        log10_total_counts
    A1            6.468503
    A10           6.565213
    A11           6.752139
    A12           5.078598
    A2            6.277342
    A3            6.473411
    >

![enter image description here][1]


  [1]: https://i.ibb.co/P6mmKc5/Picture1.png


For instance red dots have less than 1000000 counts and black dots have more thsn 1000000 counts. 

How could I repreduce this plot please?
another plot in ggplot2 with simulated data:

    df=data.frame(genes=paste0("gene_", seq_along(1:75)), reads=round(rnorm(75, 110,2),0))
    library(ggplot2)
    
    ggplot(df,aes(genes, reads, color = ifelse( reads < 110, "Fail", "Pass")))+
        geom_point() +
      scale_y_continuous(limits = c(0, 200))+
      scale_color_manual(name="QC", values = c("red","darkgreen"))+
      geom_hline(yintercept = 110, color="red")+
      theme_bw()+
      xlab("Sample")+
      labs(y=expression("log"[10]("Total reads")))+
      theme(axis.text.x = element_text(angle = 45,hjust = 1),
            legend.position = "bottom")

<a href="https://ibb.co/LZnZC0b"><img src="https://i.ibb.co/vjZjJcg/Rplot01.png" alt="Rplot01" border="0"></a>

  


