Cómo suprimir la impresión cero en una tabla (zero.print = "" no funciona)

Question

Tengo matrices diagonales con NA y ceros que quiero ocultar.

na.print = "" funciona bien, pero zero.print = "." parece tratar 0.00 como! = 0?

Aquí está un ejemplo ejecutable con la impresión a cabo para que pueda ver lo que quiero decir: (gracias chicos)

x <- matrix(c(0.01, NA, NA, NA, 0.00, 0.00, NA, NA, 0.00, 0.00, -0.01, NA, 0.00, 0.00, 0.00, 0.00), nrow=4, byrow=TRUE) 
x 
     [,1] [,2] [,3] [,4] 
    [1,] 0.01 NA NA NA 
    [2,] 0.00 0 NA NA 
    [3,] 0.00 0 -0.01 NA 
    [4,] 0.00 0 0.00 0 

print.table(x, na.print="", zero.print=".") 
     [,1] [,2] [,3] [,4] 
    [1,] 0.01     
    [2,] 0.00 0.00    
    [3,] 0.00 0.00 -0.01  
    [4,] 0.00 0.00 0.00 0.00 

Siguiendo las respuestas útiles a continuación, y en base a la elección explícita en print.table que no es cero .print elementos donde cualquier elemento en la tabla falla (x == round (x)), aquí hay una versión que funciona con floating.point. Lo escribí para una tarea de impresión de marco de datos, pero funciona con matrices.

print.dataframe <- function (x, digits = getOption("digits"), quote = FALSE, na.print = "", zero.print = "0", justify = "none", ...){ 
    xx <- format(x, digits = digits, justify = justify) 
    if (any(ina <- is.na(x))) 
     xx[ina] <- na.print 
    i0 <- !ina & x == 0 
    if (zero.print != "0" && any(i0)) 
     xx[i0] <- zero.print 
    if (is.numeric(x) || is.complex(x)){ 
     print(xx, quote = quote, right = TRUE, ...) 
    }else{ 
     print(xx, quote = quote, ...) 
    } 
    invisible(x) 
} 

print.dataframe(bob, zero.print = ".", justify="left") 

Answer 1

Aquí es una solución:

> print.table(local({x[x==0] <- NA; x})) 
    [,1] [,2] [,3] [,4] 
[1,] 0.01     
[2,]      
[3,]   -0.01  
[4,]      

En el caso de que usted necesita diversa expresión de NA y cero, entonces,

> print(ifelse(is.na(x), "", ifelse(x == 0, ".", x)), quote = FALSE) 
    [,1] [,2] [,3] [,4] 
[1,] 0.01     
[2,] . .    
[3,] . . -0.01  
[4,] . . .  . 

Answer 2

entrada y la sugerencia de Per Andrie esto no es una error en el código con print.table. Es un problema con el suministro de una matriz a print.table que espera un table. Como Andrie señala que todas las apuestas están apagadas con el resultado esperado. Si agrega una línea de código adicional al print.table (ver a continuación), funcionará para usted (note que llamé a esta impresora).

printmatrix <- 
function (x, digits = getOption("digits"), quote = FALSE, na.print = "", 
    zero.print = "0", justify = "none", ...) 
{ 
    xx <- format(unclass(x), digits = digits, justify = justify) 
    if (any(ina <- is.na(x))) 
     xx[ina] <- na.print 
    if (zero.print != "0" && any(i0 <- !ina & x == 0) && all(x == 
     round(x))) 
     xx[i0] <- sub("0", zero.print, xx[i0]) 
    xx[x == 0] <- zero.print       #the line I added 
    if (is.numeric(x) || is.complex(x)) 
     print(xx, quote = quote, right = TRUE, ...) 
    else print(xx, quote = quote, ...) 
    invisible(x) 
} 

printmatrix(x, zero.print = ".")