names_pattern 的正则表达式，旋转时间更长

Question

我正在尝试让正确的正则表达式（在this之后）在names_pattern中使用。

字符串是： CRIS_CLAU_ENG_O和LARI_CLAU_ENG_O
所需 output： CRIS_O和LARI_O

编号 | CLAU_VALUE | 评分者

• 到目前为止的尝试：

data1 %>% 
  select(ID, contains("CLAU")) %>% 
  pivot_longer(c(CRIS_CLAU_ENG_O, LARI_CLAU_ENG_O),
               names_to = c("RATER", ".value"),
               names_pattern = "^([^_]+)([^_]+)") %>% 
 ## mutate(RATER = case_when(RATER == "CRI" ~ 'RATER1',    
                           RATER == "LAR" ~ 'RATER2')) %>% 
 ## mutate(RATER = factor(RATER, levels = c('RATER1', 'RATER2')))

• 如果可能的话，理想情况下，所需的 output 应该包含两个value列，如下所示：

编号 | CLAU_VALUE | TUNITS_VALUE | 评分者

在这种情况下，评分者会有所不同： CRIS_WRI和LARI_WRI不同于 O 和 WRI。 或者我可以有另一个名为“类型”的列包含此信息

与“CLAU”列同时旋转“TUNITS”列。

• 我将字符串滑入值列，而不是我的因子列（老实说，我不知道为什么。我想要单个值列而不是单个'RATER'列。我可能在做一些愚蠢的事情，但是提前致谢，我将不胜感激。

• 数据：

> dput(data1)
structure(list(ID = c("A", "B", "C", "D", "E", "F", "G", "H", 
"I", "J", "K", "L", "M", "N", "O", "P"), CRIS_CLAU_ENG_O = c(6, 
5, 6, 7, 6, 3, 5, 5, 6, 6, 7, 9, 8, 6, 6, 6), CRIS_TUNITS_WRI_O = c(5, 
5, 4, 5, 5, 3, 5, 5, 4, 4, 7, 7, 7, 6, 6, 5), LARI_CLAU_ENG_O = c(6, 
5, 5, 7, 7, 3, 5, 5, 6, 6, 9, 9, 8, 8, 6, 6), LARI_TUNITS_WRI_O = c(5, 
3, 4, 6, 5, 3, 2, 5, 4, 4, 7, 8, 7, 6, 6, 5)), row.names = c(NA, 
-16L), spec = structure(list(cols = list(ALUNO = structure(list(), class = c("collector_character", 
"collector")), CRIS_CLAU_ENG_O = structure(list(), class = c("collector_double", 
"collector")), CRIS_TUNITS_WRI_O = structure(list(), class = c("collector_double", 
"collector")), LARI_CLAU_ENG_O = structure(list(), class = c("collector_double", 
"collector")), LARI_TUNITS_WRI_O = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), delim = ","), class = "col_spec"),  class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

Answer 1

你们都是select出TUNITS变量并选择 pivot 只有几列。 如果我们保留所有列，我们可以更接近。 此外，您的正则表达式不完整，我们需要在您的两个模式组之间添加文字_ 。

library(dplyr)
library(tidyr0
data1 %>% 
  pivot_longer(-ID,
               names_to = c("RATER", ".value"),
               names_pattern = "^([^_]+)_([^_]+)_.*")
# # A tibble: 32 × 4
#    ID    RATER  CLAU TUNITS
#    <chr> <chr> <dbl>  <dbl>
#  1 A     CRIS      6      5
#  2 A     LARI      6      5
#  3 B     CRIS      5      5
#  4 B     LARI      5      3
#  5 C     CRIS      6      4
#  6 C     LARI      5      4
#  7 D     CRIS      7      5
#  8 D     LARI      7      6
#  9 E     CRIS      6      5
# 10 E     LARI      7      5
# # … with 22 more rows
# # ℹ Use `print(n = ...)` to see more rows

正则表达式：

^([^_]+)_([^_]+)_.*
^                      beginning of the string
 '-----' '-----'       pattern groups
  [^_]                 character group of anything except '_'
      +                one or more ('*' is zero-or-more, '?' is 0-or-1)
        _              the literal underscore
                 .*    zero or more ('*') of anything ('.')