zoukankan      html  css  js  c++  java
  • Rplot

    #!/usr/bin/Rscript
    library(ggplot2)

    cf = read.table(file = 'result_sort.txt', header = TRUE, sep=' ')
    cf$col = factor(cf$col, levels = c(
    "siginificant detected Proteins according to filter criteria",
    "Proteins fit to criteria 1-3",
    "Proteins not fit to filter criteria"
    ))

    p = ggplot(cf, aes(x = control , y = Experiment ,color=col))
    p + geom_point(size=5,shape=18,alpha=0.7) +
    scale_colour_manual(values = c("red",'green','black')) +
    theme(panel.background = element_blank(),panel.border=element_rect(fill='transparent', color='black')) +
    theme(legend.title=element_blank(),legend.position='none') +
    #coord_fixed(ratio = 1) +
    geom_abline(slope = 1,intercept = 0) +
    scale_x_continuous(trans='log2',breaks=c(1,2,4,8,16,32,64,128,256),limit=c(1,281)) +
    scale_y_continuous(trans='log2',breaks=c(1,2,4,8,16,32,64,128,256),limit=c(1,281)) +
    labs(x="Peptide counts (controls)",y="Peptide counts (expreiments)")

    #geom_hline(yintercept=c(1,2,4,8,16,32,64,128,256), size = 0.3)

  • 相关阅读:
    RIGHT JOIN 关键字
    LEFT JOIN 关键字
    INNER JOIN 关键字
    连接(JOIN)
    别名
    BETWEEN 操作符
    IN 操作符
    通配符
    LIKE 操作符
    LIMIT 子句
  • 原文地址:https://www.cnblogs.com/xiaojikuaipao/p/7885498.html
Copyright © 2011-2022 走看看