r - 快速问题 : alternatives to a short but a bit involved code

Question

我正在尝试生成一个具有规范的字符串(每列的列名和最大字符串长度):

library(tidyverse)
df <- tibble::tribble(
  ~nif, ~dni_check,
  "33333457V", "33333457",
  "44817563Q", "44817563",
  "33256164G", "33256164",
  "36050083K", "36050083"
)
df %>%
  summarise(across(everything(), ~ str_c(" C(", max(str_length(.)), ")"))) %>%
  map2_chr(colnames(.), ., str_c) %>%
  str_c(collapse = "; ")
#> [1] "nif C(9); dni_check C(8)"

出于好奇，您是否会提出替代方案，也许以更短或更简洁的方式？

Answer 1

基本 R 选项

paste0(
  do.call(
    sprintf,
    c(
      fmt = "%s C(%d)",
      rev(stack(sapply(df, function(v) max(nchar(v)))))
    )
  ),
  collapse = "; "
)

给

"nif C(9); dni_check C(8)"