Изменение формы данных со значениями в именах переменных

Question

У меня очень широкий набор данных (2000+ переменных), который я пытаюсь привести в порядок, но я застреваю, пытаясь извлечь значение из имени переменной.Если у меня есть переменная "E1Time1_Date", я бы хотел изменить ее на три переменные: E=1, Time=1 и Date = исходное значение даты.

Возможно ли это вообще?Я пытался использовать gather(), но я предполагаю, что мне нужно сделать первый шаг, который я пропустил.Спасибо за вашу помощь!

А вот примерный набор данных, если кто-то хотел, чтобы волшебство произошло:

structure(list(ID = c(123, 225), UnrelatedV1 = c("Unrelated1", 
"Unrelated1"), UnrelatedV2 = c("Unrelated2", "Unrelated2"), E1T1_Date = structure(c(1506816000, 
1513296000), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    E1T1_v1 = c(10, 20), E1T1_v2 = c(20, 20), E1T1_v3 = c(30, 
    20), E1T1_v4 = c(40, 20), E1T2_Date = structure(c(1512086400, 
    NA), class = c("POSIXct", "POSIXt"), tzone = "UTC"), E1T2_v1 = c(10, 
    NA), E1T2_v2 = c(10, NA), E1T2_v3 = c(10, NA), E1T2_v4 = c(10, 
    NA), E2T1_Date = structure(c(1522540800, 1525132800), class = c("POSIXct", 
    "POSIXt"), tzone = "UTC"), E2T1_v1 = c(10, 20), E2T1_v2 = c(20, 
    20), E2T1_v3 = c(10, 20), E2T1_v4 = c(10, 20), E2T2_Date = structure(c(1533859200, 
    NA), class = c("POSIXct", "POSIXt"), tzone = "UTC"), E2T2_v1 = c(10, 
    NA), E2T2_v2 = c(30, NA), E2T2_v3 = c(10, NA), E2T2_v4 = c(10, 
    NA)), .Names = c("ID", "UnrelatedV1", "UnrelatedV2", "E1T1_Date", 
"E1T1_v1", "E1T1_v2", "E1T1_v3", "E1T1_v4", "E1T2_Date", "E1T2_v1", 
"E1T2_v2", "E1T2_v3", "E1T2_v4", "E2T1_Date", "E2T1_v1", "E2T1_v2", 
"E2T1_v3", "E2T1_v4", "E2T2_Date", "E2T2_v1", "E2T2_v2", "E2T2_v3", 
"E2T2_v4"), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-2L))

Answer 1

Похоже, у вас есть сочетание числовых значений и значений даты, что сделает сбор немного сложнее.Один из способов сделать это - преобразовать даты в числовые, а затем изменить их обратно, как только вы достигнете окончательного формата.Это должно начать вас.

library(tidyverse)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    -2L))
data %>%  
  #convert dates to numeric so we can gather them in the same column
  mutate_if(is.POSIXct, as.integer) %>%
  gather(-ID, -contains("Unrelated"), key = variable, value = value) %>% 

  #add an underscore between E and T to make separating them easier
  mutate(loc = gregexpr("T", variable)[[1]],
         variable = paste0(substr(variable, 1, loc - 1), "_",
                           substr(variable, loc, nchar(variable)))) %>% 
  select(-loc) %>% 

  #separate into three distinct columns
  separate(variable, into = c("E", "T", "vDate"), sep = "_")

# A tibble: 40 x 7
ID      UnrelatedV1 UnrelatedV2     E     T vDate      value
<dbl>       <chr>       <chr>   <chr> <chr> <chr>      <dbl>
1   123  Unrelated1  Unrelated2    E1    T1  Date 1506816000
2   225  Unrelated1  Unrelated2    E1    T1  Date 1513296000
3   123  Unrelated1  Unrelated2    E1    T1    v1         10
4   225  Unrelated1  Unrelated2    E1    T1    v1         20
5   123  Unrelated1  Unrelated2    E1    T1    v2         20
6   225  Unrelated1  Unrelated2    E1    T1    v2         20
7   123  Unrelated1  Unrelated2    E1    T1    v3         30
8   225  Unrelated1  Unrelated2    E1    T1    v3         20
9   123  Unrelated1  Unrelated2    E1    T1    v4         40
10   225  Unrelated1  Unrelated2    E1    T1    v4         20