Beim Drucken des Datenrahmens keine NA drucken

Question

Für data frames gibt es keine na.printoption. Gibt es einen Workaround, um die Anzeige von NAs zu unterdrücken?

Beispieldatenrahmen:

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 

Ergebnisse in:

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 

Aber ich möchte zeigen,:

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

Sie können durch "" fehlende Werte ersetzen (diese Technik in print.dist S3 Methode verwendet wird)

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

können Sie verwenden 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

Es ist, aber man muss sich zuerst ein ... zu einer Matrix zwingen

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 

Peitsche es in eine kleine Funktion, wenn Sie möchten ...

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