expss表中的条件格式

Question

我的问题可以考虑以下讨论的扩展：R expss package: format numbers by statistic / apply different format to alternate rows

我想了解条件的语法，以便能够编写自己的自定义格式。考虑一下来自数据集的“插入”数据帧。然后，感谢expss，我们创建了以下表格：

infert %>%
  tab_cells(parity) %>%
  ### TOTAL
  tab_cols(total()) %>%
  tab_stat_cases(label="N", total_row_position="none") %>%
  ### OTHER VARIABLES
  tab_cols(education) %>%
  tab_stat_cases(label="N", total_row_position="none") %>% 
  tab_stat_cpct(label="%Col.", total_row_position="none") %>%
  tab_pivot(stat_position="inside_columns") %>%
  format_vert()

最后一行操作基本格式，如上面的URL所述。具体内容如下：

format_vert = function(tbl, pct_digits=2, n_digits=0){
  #Finding columns to format
  pct_cols = grepl("\\|%Col.$", names(tbl), perl = TRUE)
  n_cols = grepl("\\|N$", names(tbl), perl = TRUE)
  #Format
  recode(tbl[,-1]) = other ~ function(x) ifelse(is.numeric(x) & is.na(x), 0, x)
  tbl[,pct_cols] = format(tbl[,pct_cols], digits=pct_digits, nsmall=pct_digits) 
  tbl[,n_cols] = format(tbl[,n_cols], digits=n_digits, nsmall=n_digits)
  recode(tbl[,pct_cols]) = other ~ function(x) paste0(x, "%")
  tbl
}

我了解如何设置整个表或列的格式(专家会注意到与URL中的示例的不同之处)，但如果我只希望设置特定单元格的格式，该怎么办？例如，当value =100，00%时如何设置digits=0 (仅显示100%)？我不知道我是否应该使用recode，format，何时何地引用tbl[,pct_cols]...

谢谢!

Answer 1

最简单的方法是在函数format_vert中的recode中插入额外的重新编码。我们不能使用'100.00‘~ '100’形式的重新编码，因为列已经与空格对齐了。所以我们使用正则表达式。perl表示perl风格的正则表达式比较，\\b表示单词边界。将对与该表达式匹配的所有值进行重新编码。

data(infert)
format_vert = function(tbl, pct_digits=2, n_digits=0){
    #Finding columns to format
    pct_cols = grepl("\\|%Col.$", names(tbl), perl = TRUE)
    n_cols = grepl("\\|N$", names(tbl), perl = TRUE)
    #Format
    recode(tbl[,-1]) = other ~ function(x) ifelse(is.numeric(x) & is.na(x), 0, x)
    tbl[,pct_cols] = format(tbl[,pct_cols], digits=pct_digits, nsmall=pct_digits) 
    tbl[,n_cols] = format(tbl[,n_cols], digits=n_digits, nsmall=n_digits)
    recode(tbl[,pct_cols]) = c(
        perl("\\b0.00\\b") ~ "0%   ",  # additional recodings
        perl("\\b100.00\\b") ~ "100%   ", # additional recodings
        other ~ function(x) paste0(x, "%")
    )
    tbl
}

infert %>%
    tab_cells(parity) %>%
    ### TOTAL
    tab_cols(total()) %>%
    tab_stat_cases(label="N", total_row_position="none") %>%
    ### OTHER VARIABLES
    tab_cols(education) %>%
    tab_stat_cases(label="N", total_row_position="none") %>% 
    tab_stat_cpct(label="%Col.", total_row_position="none") %>%
    tab_pivot(stat_position="inside_columns") %>%
    format_vert()