打印數據幀時不要打印NA

對於data frames不存在na.printoption。是否有任何解決方法來抑制NAs的顯示？打印數據幀時不要打印NA

的樣本數據幀：

df <- data.frame(
     x=c("a","b","c","d"), 
     a=c(1,1,1,1), 
     b=c(1,1,1,NA), 
     c=c(1,1,NA,NA), 
     d=c(1,NA,NA,NA))  
df

結果：

x a b c d 
1 a 1 1 1 1 
2 b 1 1 1 NA 
3 c 1 1 NA NA 
4 d 1 NA NA NA

但是我想表明：

x a b c d 
1 a 1 1 1 1 
2 b 1 1 1 
3 c 1 1 
4 d 1

來源

2013-10-22 Tomas Greif

警告：請確保你和你的讀者都沒有誤入思想g在空白位置沒有「完全沒有」或「零」（如Excel愉快地做的那樣）。如果這純粹是爲了發佈，那麼很好;否則要小心。 –

您可以通過""（這種技術在print.dist S3方法使用）

cf <- format(dat) ## use format to set other options like digits, justify , ... 
cf[is.na(dat)] <- "" 
cf 
    x a b c d 
1 a 1 1 1 1 
2 b 1 1 1 
3 c 1 1  
4 d 1

來源

2013-10-22 11:24:01 agstudy

您可以使用write.table：

write.table(dfr,sep="\t",col.names=NA,na="") 
""  "x"  "a"  "b"  "c"  "d" 
"1"  "a"  1  1  1  1 
"2"  "b"  1  1  1  
"3"  "c"  1  1    
"4"  "d"  1

來源

2013-10-22 11:23:04 James

有，但你必須強迫到矩陣第一替換缺失值...

print(as.matrix(df) , na.print = "" , quote = FALSE) 
    x a b c d 
[1,] a 1 1 1 1 
[2,] b 1 1 1 
[3,] c 1 1  
[4,] d 1

鞭它變成一個小函數，如果你喜歡...

nona <- function(x){ 
    print(as.matrix(x) , na.print = "" , quote = FALSE) 
}

來源

2013-10-22 11:29:03

打印數據幀時不要打印NA

回答

相關問題