小编Jac*_*ack的帖子

您是否知道如何将抖动应用于箱线图的异常数据？这是代码

ggplot(data = a, aes(x = "", y = a$V8)) +
geom_boxplot(outlier.size = 0.5)+
geom_point(data=a, aes(x="", y=a$V8[54]), colour="red", size=3) + 
theme_bw()+
coord_flip()

谢谢!!

我有三个ID列表.

我想比较3个列表,并绘制一个维恩图.在获得的维恩图中,我将在交叉点显示不是数字而是ID.我需要在R中这样做,但我真的不知道如何.你可以帮帮我吗？那是我的代码.它有效,但只显示数字,我会在交叉点显示"条款"

       set1 <- unique(goterm1)
       set2 <- unique(goterm2)
        set3 <- unique(goterm3)

       require(limma)
       Diagram <- function(set1, set2, set3, names)
       {
     stopifnot( length(names) == 3)
      # Form universe as union of all three sets
      universe <- sort( unique( c(set1, set2, set3) ) )
      Counts <- matrix(0, nrow=length(universe), ncol=3)
      colnames(Counts) <- names
        for (i in 1:length(universe))
        {
        Counts[i,1] <- universe[i] %in% set1
        Counts[i,2] <- universe[i] %in% set2
       Counts[i,3] <- universe[i] %in% set3
       }

         vennDiagram( vennCounts(Counts) )}

       Diagram(set1, set2, set3, c("ORG1", "ORG2", "ORG3"))
        Venn

Hy家伙,我有一个以"s"开头的文件列表,其中一些以"m"结尾,而另一些以"i"结尾.我想用"m"来完成那些但是这个命令不起作用.

list=list.files(path="~/Deduplicated_input",pattern="^sorted_deduplicated_sorted*m$", full.names=TRUE)

你怎么看？