pivot_wide전체 시작 프로세스를 캡처 할 수 있도록 항목을 '복제'해야한다는 점을 제외하면 작업 과 거의 비슷 합니다.
나는 이것이 네트워크 분석에서 빈번한 루틴이 될 수 있다고 생각하지만 그러한 변환을 쉽게 얻을 수있는 기능이 있는지 확실하지 않습니다.
감사합니다
ID <- c(rep('A',2), rep('B',3))
process <- c('Category_8', 'Category_1', 'Category_3', 'Category_4', 'Category_1')
have <- tibble(
ID,
process
)
have
# A tibble: 5 x 2
ID process
<chr> <chr>
1 A Category_8
2 A Category_1
3 B Category_3
4 B Category_4
5 B Category_1
ID <- c(rep('A',1), rep('B',2))
From <- c('Category_8', 'Category_3', 'Category_4')
To <- c('Category_1', 'Category_4', 'Category_1')
want <- tibble(
ID,
From,
To
)
want
# A tibble: 3 x 3
ID From To
<chr> <chr> <chr>
1 A Category_8 Category_1
2 B Category_3 Category_4
3 B Category_4 Category_1
를 사용 lead하여 process각각 의 다음 값을 가져 ID오고 NA값이있는 행을 삭제할 수 있습니다.
library(dplyr)
have %>%
group_by(ID) %>%
transmute(ID, from = process, to = lead(process)) %>%
na.omit()
# ID from to
# <chr> <chr> <chr>
#1 A Category_8 Category_1
#2 B Category_3 Category_4
#3 B Category_4 Category_1
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다