如何对齐表格中的负值和正值？

Question

我正在尝试创建格式正确的相关矩阵 table，其中负值和正值对齐。如果有一种方法可以在正值之前添加空格以便我们可以将它们左对齐，那就太好了。但我卡住了。理想情况下，我想只用 table 闪亮的输出来实现它，但如果有其他包，我也愿意。

代码

corstars <-function(x, method=c("pearson", "spearman"), removeTriangle=c("upper", "lower"),
                     result=c("none", "html", "latex")){
    #Compute correlation matrix
    require(Hmisc)
    x <- as.matrix(x)
    correlation_matrix<-rcorr(x, type=method[1])
    R <- correlation_matrix$r # Matrix of correlation coeficients
    p <- correlation_matrix$P # Matrix of p-value 
    
    ## Define notions for significance levels; spacing is important.
    mystars <- ifelse(p < .001, "*** ", ifelse(p < .01, "**  ", ifelse(p < .05, "*   ", "    ")))
    
    ## trunctuate the correlation matrix to two decimal
    R <- format(round(cbind(rep(-1.11, ncol(x)), R), 2))[,-1]
    
    ## build a new matrix that includes the correlations with their apropriate stars
    Rnew <- matrix(paste(R, mystars, sep=""), ncol=ncol(x))
    diag(Rnew) <- paste(diag(R), " ", sep="")
    rownames(Rnew) <- colnames(x)
    colnames(Rnew) <- paste(colnames(x), "", sep="")
    
    ## remove upper triangle of correlation matrix
    if(removeTriangle[1]=="upper"){
      Rnew <- as.matrix(Rnew)
      Rnew[upper.tri(Rnew, diag = TRUE)] <- ""
      Rnew <- as.data.frame(Rnew)
    }
    
    ## remove lower triangle of correlation matrix
    else if(removeTriangle[1]=="lower"){
      Rnew <- as.matrix(Rnew)
      Rnew[lower.tri(Rnew, diag = TRUE)] <- ""
      Rnew <- as.data.frame(Rnew)
    }
    
    ## remove last column and return the correlation matrix
    Rnew <- cbind(Rnew[1:length(Rnew)-1])
    if (result[1]=="none") return(Rnew)
    else{
      if(result[1]=="html") print(xtable(Rnew), type="html")
      else print(xtable(Rnew), type="latex") 
    }
}

corstars(mtcars)

这是 rmarkdown 输出。

Source for corstars function.

Answer 1

找到一个解决方案 here 以在呈现的 table 中保留空白。

ui = fluidPage( tags$style("#mytable { white-space:pre; }"), dataTableOutput("mytable") )

server = function(input, output, session) {
  
  output$mytable <- renderDataTable({
    corstars(mtcars)
  })
}

shinyApp(ui, server)

如何对齐表格中的负值和正值？

How to align negative values and positive values in tables?

r

html-table

shiny