跨多列的字符串长度，获取每行的长度差

Question

data = tibble(x = c("a", "b"), y = c("aa", "b"), z = c("a", "bb"))

data %>% 
  mutate(str_length = across(c(x, y, z), ~ str_count(., ".")))

如何计算每一行的 str_length 之间的差异？

期望的输出将是：data$str_diff = c(1, 1)。

Answer 1

干得好

data %>% 
  mutate(
    str_diff = abs(str_count(x) - str_count(y))
  )

 x     y         z str_diff
  <chr> <chr> <dbl>    <int>
1 a     aa        1        1
2 b     b         2        0