내가 가지고 있다고 :
df<-data.frame(ID=c('1', '1', '1', '1', '1', '1', '1'),
int=c(NA,NA,1,2,3,2, NA),
ab=c('a', 'a', 'b', 'b', 'b', 'b', 'c'))
df
ID int ab
1 1 NA a
2 1 NA a
3 1 1 b
4 1 2 b
5 1 3 b
6 1 2 b
7 1 NA c
int비 NA 그룹에 대한 모든 값에 대해 추가 행을 삽입해야하는 ab다른 값으로 확장하고 싶습니다 ab. 따라서 ab == a 및 ab == c에 대해 1, 2 및 3 값이 표시되기를 원합니다. 다음과 같은 것 :
dfwant<-data.frame(ID=c('1','1', '1', '1', '1', '1', '1', '1', '1', '1'),
int=c(NA, NA,NA,1,2,3,2, NA, NA, NA),
ab=c('a','a', 'a', 'b', 'b', 'b', 'b', 'c', 'c', 'c'),
want=c(1,2,3,1,2,3,2, 1,2,3))
ID int ab want
1 1 NA a 1
2 1 NA a 2
3 1 NA a 3
4 1 1 b 1
5 1 2 b 2
6 1 3 b 3
7 1 2 b 2
8 1 NA c 1
9 1 NA c 2
10 1 NA c 3
다른 방법이있을 수 있지만 .NET 내부의 int모든 ab값 과 연결된 1, 2, 3 값 을 갖고 싶습니다 ID. 열이 더 필요할 수도 있습니다. 도와주세요.
편집 : 또한 고유 번호가 다른 다른 그룹에서 작동하기를 원합니다 int.
df<-data.frame(ID=c('1', '1', '1', '1', '1', '1', '1', '2', '2', '2', '2', '2', '2', '2'),
int=c(NA,NA,1,2,3,2, NA, NA,NA,5,6,7,8, NA),
ab=c('a', 'a', 'b', 'b', 'b', 'b', 'c', 'd', 'd', 'e', 'e', 'e', 'e', 'f'))
ID int ab
1 1 NA a
2 1 NA a
3 1 1 b
4 1 2 b
5 1 3 b
6 1 2 b
7 1 NA c
8 2 NA d
9 2 NA d
10 2 5 e
11 2 6 e
12 2 7 e
13 2 8 e
14 2 NA f
ID want ab
1 1 1 a
2 1 2 a
3 1 3 a
4 1 1 b
5 1 2 b
6 1 3 b
7 1 2 b
8 1 1 c
9 1 2 c
10 1 3 c
11 2 5 d
12 2 6 d
13 2 7 d
14 2 8 d
15 2 5 e
16 2 6 e
17 2 7 e
18 2 8 e
19 2 5 f
20 2 6 f
21 2 7 f
22 2 8 f
한 가지 옵션은 complete
library(dplyr)
library(tidyr)
df %>%
mutate(want = int) %>%
group_by(ID, ab) %>%
complete(want = unique(na.omit(.$want))) %>%
filter(!is.na(want))
# A tibble: 10 x 4
# Groups: ID, ab [3]
# ID ab want int
# <fct> <fct> <dbl> <dbl>
# 1 1 a 1 NA
# 2 1 a 2 NA
# 3 1 a 3 NA
# 4 1 b 1 1
# 5 1 b 2 2
# 6 1 b 2 2
# 7 1 b 3 3
# 8 1 c 1 NA
# 9 1 c 2 NA
#10 1 c 3 NA
업데이트 된 데이터
library(purrr)
df %>%
mutate(want = int) %>%
group_split(ID = as.character(ID)) %>%
map_dfr(~ .x %>%
group_by(ab) %>%
complete(want = unique(na.omit(.$want))) %>%
filter(!is.na(want))) %>%
ungroup %>%
fill(ID, .direction = 'downup')
# A tibble: 22 x 4
# ab want ID int
# <fct> <dbl> <chr> <dbl>
# 1 a 1 1 NA
# 2 a 2 1 NA
# 3 a 3 1 NA
# 4 b 1 1 1
# 5 b 2 1 2
# 6 b 2 1 2
# 7 b 3 1 3
# 8 c 1 1 NA
# 9 c 2 1 NA
#10 c 3 1 NA
# … with 12 more rows
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다