Nie drukuj NA podczas drukowania ramki danych

Question

Dla data frames nie ma na.printoption. Czy istnieje obejście ograniczające wyświetlanie NA?

Przykładowa ramka danych:

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 

Wyniki w:

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 

Ale chciałbym pokazać:

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

można zastąpić brakujące wartości przez "" (technika ta jest wykorzystywana w print.dist S3 metody)

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

Można użyć 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

Jest, ale trzeba zmusić do pierwszej macierzy ...

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 

Bat Jeśli masz ochotę ...

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