生信技能树—单细胞R考核题

rownames(df) <- df$LETTERS
dz <- df[-1]

for (i in 1:(ncol(dz))){
    for (j in 1:nrow(dz)){
        if(dz[j,i] < 0){
            dz[j,i] <- 0
        }
    }
}

a <- data.frame()
for (i in 1:nrow(dz)){
    if (sum(dz[i,]) > 0){
        a <- rbind(a,dz[i,])
    }
}
head(a)
#a即为目标结果

考核题地址

此条目发表在R分类目录。将固定链接加入收藏夹。

发表评论

邮箱地址不会被公开。 必填项已用*标注

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    
    Markdown is turned off in code blocks:
     [This is not a link](http://example.com)

To create not a block, but an inline code span, use backticks:

Here is some inline `code`.

For more help see http://daringfireball.net/projects/markdown/syntax

Protected with IP Blacklist CloudIP Blacklist Cloud