R 隐藏基于 case 总数的值

你可以通过创建一个逻辑向量来标识那些总数小于或等于2(lte2)的列，然后索引以用所需的替换(这里是"--")替换该列中的所有所需条目.

要在一般情况下(在您的功能之外)执行此操作，请执行以下操作:

x <- cross_cpct(example, mrset(q1 %to% q3), banner)

lte2 <- c(FALSE, x[x$row_labels == "#Total cases", -1] <= 2)
# [1] FALSE  TRUE TRUE  TRUE

x[-nrow(x), lte2] <- "--"

# |              |  1 |  2 |  3 |
# | ------------ | -- | -- | -- |
# |        apple | -- | -- | -- |
# |       banana | -- | -- | -- |
# |       orange | -- | -- | -- |
# | #Total cases |  2 |  2 |  2 |

要将此代码添加到函数中，请执行以下操作:

fun1 <- function(data, varlist, Banner) {
  t1 <- eval(rlang::parse_expr(paste0("cross_cpct(data,mrset(",head(varlist,1),"%to%",tail(varlist,1),"),banner)")))
  lte2_t1 <- c(FALSE, t1[t1$row_labels == "#Total cases", -1] <= 2)
  t1[-nrow(t1), lte2_t1] <- "--"
  t1
}

fun1(df, c("q1", "q2", "q3"), banner)

# |              |  1 |  2 |  3 |
# | ------------ | -- | -- | -- |
# |        apple | -- | -- | -- |
# |       banana | -- | -- | -- |
# |       orange | -- | -- | -- |
# | #Total cases |  2 |  2 |  2 |

如果对扩展样本数据进行测试以包括一个额外的"橙色"条目，则可以看到当总>；2:

example <- data.frame(org = c("A", "B", "C", "D", "E", "F", "G"),
                      q1 = c("apple", "apple", NA, "apple", "apple", "apple", NA),
                      q2 = c(NA, NA, NA, "banana", "banana", "banana", NA),
                      q3 = c("orange", NA, "orange", "orange", NA, "orange", "orange"),
                      region = c("1", "1", "2", "3", "3", "2", "2"))

fun1(example, c("q1", "q2", "q3"), banner)

#   |              |  1 |     2 |  3 |
#   | ------------ | -- | ----- | -- |
#   |        apple | -- |  33.3 | -- |
#   |       banana | -- |  33.3 | -- |
#   |       orange | -- | 100.0 | -- |
#   | #Total cases |  2 |   3.0 |  2 |