r：满足两个条件的filter_at或filter_all字符串然后pivot_longer

Question

我有一个非常大的 dataframe，它在多次随访的 MRI 扫描中记录了肿瘤大小。

假设我有p ：

   id debut_extramea_xy_dimension_MR fu1_extramea_xy_dimension_MR fu2_extramea_xy_dimension_MR fu3_extramea_xy_dimension_MR
1 134                          14x14                        14x14                    12.5x10.5                    12.5x10.5
2 434                   24 x 19 x 13                      24 x 17                      24 x 17                      21 x 16
3 437                        40 x 30                   20 x 20 mm                      20 x 20                      25 x 18
4 440                        26 x 24                      26 x 24                      26 x 24                      26 x 24
5 498                         13x6.4                     14.8x8.7                    19.4x12.3                    21.7x13.5

如您所见，数据记录了肿瘤的二维“xy”轴数据。 但是，有两个问题：

(1)那些注册数据的人不小心记录了一些患者的三维，“xyz”轴。 这在p$debut_extramea_xy_dimension_MR的第 2 行中进行了演示，对应于p$id == 434

和

(2)在某些情况下，测量单位被意外记录，例如。 “mm”，如p$fu1_extramea_xy_dimension_MR的第 3 行，对应于p$id == 437

我需要filter和pivot_longer ，所以我获得了一个包含三列的 dataframe：(1) id，(2) 在什么跟进和 (3) 什么错误。 我需要将 go 手动输入数据库才能更改此信息，因此这些信息会有很大帮助。

预计 output

   id  name        value
1 434 debut 24 x 19 x 13
2 437   fu1   20 x 20 mm

数据

p <- structure(list(id = c(134L, 434L, 437L, 440L, 498L), debut_extramea_xy_dimension_MR = c("14x14", 
                                                                                    "24 x 19 x 13", "40 x 30", "26 x 24", "13x6.4"), fu1_extramea_xy_dimension_MR = c("14x14", 
                                                                                                                                                                  "24 x 17", "20 x 20 mm", "26 x 24", "14.8x8.7"), fu2_extramea_xy_dimension_MR = c("12.5x10.5", 
                                                                                                                                                                                                                                                 "24 x 17", "20 x 20", "26 x 24", "19.4x12.3"), fu3_extramea_xy_dimension_MR = c("12.5x10.5", 
                                                                                                                                                                                                                                                                                                                                 "21 x 16", "25 x 18", "26 x 24", "21.7x13.5")), row.names = c(NA, 
                                                                                                                                                                                                                                                                                                                                                                                               -5L), class = "data.frame")

Answer 1

这是一个解决方案

library(tidyverse)                                                                                                                                                                                                                                                                                                                                                                                               -5L), class = "data.frame")
p %>%
  filter(if_any(- id, ~ str_detect(., rgx <<- "x.*x|mm"))) %>% 
  pivot_longer(-id) %>% 
  filter(str_detect(value, rgx)) %>% 
  mutate(name = str_remove(name, "_extramea_xy_dimension_MR"))

# A tibble: 2 × 3
     id name  value       
  <int> <chr> <chr>       
1   434 debut 24 x 19 x 13
2   437 fu1   20 x 20 mm