有三種方法  !is.na  , na.omit, complete.cases

創(chuàng)新互聯(lián)是專業(yè)的鄂城網(wǎng)站建設(shè)公司，鄂城接單;提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行鄂城網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!> d <- read.table("GWAS_s2.qassoc", header=T, stringsAsFactors=F)   // 文件行數(shù) > nrow(d) [1] 431493 > d1 <- subset(d, select=c("CHR", "SNP", "BP", "P"))   // 計(jì)算非NA 的行數(shù) > num.bool <- complete.cases(d1) > head(num.bool) [1] FALSE  TRUE  TRUE FALSE  TRUE  TRUE   > sum(num.bool)  [1] 363836                                                                                                                                                                                                                                          > dn1 <- d1[which(!is.na(d1$P)),]                                                                                                                                                  > nrow(dn1)                                                                                                                                                                        [1] 363836 > dn2 <- na.omit(d1) > nrow(dn2)                                                                                                                                                             [1] 363836 > dn3 <-d1[complete.cases(d1[,4]),]                                                                                                                                                > nrow(dn3)                                                                                                                                                                       [1] 363836 > dn4 <-d1[complete.cases(d1),]                                                                                                                                                   > nrow(dn4) [1] 363836

方法三和方法四， 一個(gè)是根據(jù)第四列是否為NA判斷的， 一個(gè)是根據(jù)所有列。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

網(wǎng)頁(yè)名稱：R語(yǔ)言移除缺失值NA-創(chuàng)新互聯(lián)
分享URL：http://chinadenli.net/article6/cdhdog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、虛擬主機(jī)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站收錄、服務(wù)器托管、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)