データフレームを印刷するときに、NAを印刷しないでください

Question

data framesについては、na.printoptionはありません。 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 

Answer 1

あなたは""によって欠損値を置き換えることができます（この技術は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  

Answer 2

あなたは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 

Answer 3

ホイップがありますが、あなたは最初の行列に強制する必要が...

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) 
}