散点图

#散点图
library(ggplot2)
rm(list = ls())
circ=read.csv("Documents.csv")

circ=as.data.frame(circ)
tail(circ)

ggplot(data=circ,mapping = aes(x=circ$Infection1.CK1.Ratio,y = circ$Infection2.CK2.Ratio,color=circ$Anno))+geom_point(size=1.3)+
  scale_color_manual(values = c("aquamarine2 ","darkgray","red  " ))+theme_bw()+
  xlim(0,2.4)+ylim(0,2.4)+theme(text=element_text(size=10,  family="sans"))

       

xqt <- read.csv("TE1.csv",header = T)

head(xqt)
tail(xqt)


p=ggplot(data=xqt, aes(x=xqt$WT, y=xqt$hda714, color=xqt$Anno))+geom_point(size=1.0)

L=p+xlim(0.0,+2.5)+ylim(0.0,+2.5)+theme_bw()+ scale_colour_manual(
                                                                    
       values = c("Up" = "red",
                   "down" = "SeaGreen3", 
                   "No diff" = "grey",
                   "decease"="LightSkyBlue",
                  "increase"="Bisque")
               )