есть ли код R для преобразования из широкого в длинный, когда у вас более 1 уникального идентификатора в R?

Question

У меня есть следующие данные, которые я хочу преобразовать из широкого в длинный.

id_1<-c(1,2,2,2)
s02.0<-c(1,1,4,7)
s02.1<-c(2,2,5,8)
s02.2<-c(NA,3,6,NA)
id_2<-c(1,1,2,3)
df1<-data.frame(id_1,s02.0,s02.1,s02.2,id_2)

Я бы хотел sh получить следующий результат на основе двух уникальных идентификаторов, и добавил новую переменную, скажем, n , который определяет позицию 's02' в каждой строке

id_1<-c(1,1,1,2,2,2,2,2,2,2,2,2)
id_2<-c(1,1,1,1,1,1,2,2,2,3,3,3)
s02<-c(1,2,NA,1,2,3,4,5,6,7,8,NA)
n<-c(1,2,3,1,2,3,1,2,3,1,2,3)
df2<-data.frame(id_1,id_2,s02,n)

Answer 1

Мы можем использовать pivot_longer

library(tidyr)
library(dplyr)
df1 %>% 
  pivot_longer(cols = starts_with('s02'), values_to = 's02') %>%    
  group_by(id_1, id_2) %>% 
  mutate(n = row_number())