여러 열의 집합 수집
저는 응답자들이 질문의 루프를 1-3번 반복하는 온라인 설문조사의 데이터를 가지고 있습니다.설문 조사 소프트웨어(Qualtrics)는 이 데이터를 여러 열에 기록합니다. 즉, 설문 조사의 Q3.2에 열이 있습니다.Q3.2.1.,Q3.2.2.,그리고.Q3.2.3.:
df <- data.frame(
id = 1:10,
time = as.Date('2009-01-01') + 0:9,
Q3.2.1. = rnorm(10, 0, 1),
Q3.2.2. = rnorm(10, 0, 1),
Q3.2.3. = rnorm(10, 0, 1),
Q3.3.1. = rnorm(10, 0, 1),
Q3.3.2. = rnorm(10, 0, 1),
Q3.3.3. = rnorm(10, 0, 1)
)
# Sample data
id time Q3.2.1. Q3.2.2. Q3.2.3. Q3.3.1. Q3.3.2. Q3.3.3.
1 1 2009-01-01 -0.2059165 -0.29177677 -0.7107192 1.52718069 -0.4484351 -1.21550600
2 2 2009-01-02 -0.1981136 -1.19813815 1.1750200 -0.40380049 -1.8376094 1.03588482
3 3 2009-01-03 0.3514795 -0.27425539 1.1171712 -1.02641801 -2.0646661 -0.35353058
...
모든 QN.N* 열을 정리된 개별 QN.N 열로 결합하여 궁극적으로 다음과 같은 결과를 얻고자 합니다.
id time loop_number Q3.2 Q3.3
1 1 2009-01-01 1 -0.20591649 1.52718069
2 2 2009-01-02 1 -0.19811357 -0.40380049
3 3 2009-01-03 1 0.35147949 -1.02641801
...
11 1 2009-01-01 2 -0.29177677 -0.4484351
12 2 2009-01-02 2 -1.19813815 -1.8376094
13 3 2009-01-03 2 -0.27425539 -2.0646661
...
21 1 2009-01-01 3 -0.71071921 -1.21550600
22 2 2009-01-02 3 1.17501999 1.03588482
23 3 2009-01-03 3 1.11717121 -0.35353058
...
그tidyr도서관은gather()열 집합 하나를 결합하는 데 효과적인 함수:
library(dplyr)
library(tidyr)
library(stringr)
df %>% gather(loop_number, Q3.2, starts_with("Q3.2")) %>%
mutate(loop_number = str_sub(loop_number,-2,-2)) %>%
select(id, time, loop_number, Q3.2)
id time loop_number Q3.2
1 1 2009-01-01 1 -0.20591649
2 2 2009-01-02 1 -0.19811357
3 3 2009-01-03 1 0.35147949
...
29 9 2009-01-09 3 -0.58581232
30 10 2009-01-10 3 -2.33393981
결과 데이터 프레임에는 예상대로 30개의 행이 있습니다(10명, 각각 3개의 루프).그러나 두 번째 열 집합을 수집하면 올바르게 작동하지 않습니다. 두 개의 열이 성공적으로 결합됩니다.Q3.2그리고.Q3.3그러나 30개가 아닌 90개의 행으로 끝납니다(10개의 개인, 3개의 Q3.2 루프, 3개의 Q3.3 루프의 모든 조합; 실제 데이터의 각 열 그룹에 대해 조합이 상당히 증가합니다).
df %>% gather(loop_number, Q3.2, starts_with("Q3.2")) %>%
gather(loop_number, Q3.3, starts_with("Q3.3")) %>%
mutate(loop_number = str_sub(loop_number,-2,-2))
id time loop_number Q3.2 Q3.3
1 1 2009-01-01 1 -0.20591649 1.52718069
2 2 2009-01-02 1 -0.19811357 -0.40380049
3 3 2009-01-03 1 0.35147949 -1.02641801
...
89 9 2009-01-09 3 -0.58581232 -0.13187024
90 10 2009-01-10 3 -2.33393981 -0.48502131
여러 통화를 사용할 수 있는 방법이 있습니까?gather()행의 수를 정확하게 유지하면서 열의 작은 부분 집합을 결합하는 것이 이와 같습니까?
이 접근법은 저에게 매우 자연스러운 것처럼 보입니다.
df %>%
gather(key, value, -id, -time) %>%
extract(key, c("question", "loop_number"), "(Q.\\..)\\.(.)") %>%
spread(question, value)
먼저 모든 질문 열을 수집하고 사용합니다.extract()로 분리되다question그리고.loop_number,그리고나서spread()질문을 다시 열로 보냅니다.
#> id time loop_number Q3.2 Q3.3
#> 1 1 2009-01-01 1 0.142259203 -0.35842736
#> 2 1 2009-01-01 2 0.061034802 0.79354061
#> 3 1 2009-01-01 3 -0.525686204 -0.67456611
#> 4 2 2009-01-02 1 -1.044461185 -1.19662936
#> 5 2 2009-01-02 2 0.393808163 0.42384717
이 작업은 다음을 사용하여 수행할 수 있습니다.reshape으로 가능합니다.dplyr그래도.
colnames(df) <- gsub("\\.(.{2})$", "_\\1", colnames(df))
colnames(df)[2] <- "Date"
res <- reshape(df, idvar=c("id", "Date"), varying=3:8, direction="long", sep="_")
row.names(res) <- 1:nrow(res)
head(res)
# id Date time Q3.2 Q3.3
#1 1 2009-01-01 1 1.3709584 0.4554501
#2 2 2009-01-02 1 -0.5646982 0.7048373
#3 3 2009-01-03 1 0.3631284 1.0351035
#4 4 2009-01-04 1 0.6328626 -0.6089264
#5 5 2009-01-05 1 0.4042683 0.5049551
#6 6 2009-01-06 1 -0.1061245 -1.7170087
또는 사용dplyr
library(tidyr)
library(dplyr)
colnames(df) <- gsub("\\.(.{2})$", "_\\1", colnames(df))
df %>%
gather(loop_number, "Q3", starts_with("Q3")) %>%
separate(loop_number,c("L1", "L2"), sep="_") %>%
spread(L1, Q3) %>%
select(-L2) %>%
head()
# id time Q3.2 Q3.3
#1 1 2009-01-01 1.3709584 0.4554501
#2 1 2009-01-01 1.3048697 0.2059986
#3 1 2009-01-01 -0.3066386 0.3219253
#4 2 2009-01-02 -0.5646982 0.7048373
#5 2 2009-01-02 2.2866454 -0.3610573
#6 2 2009-01-02 -1.7813084 -0.7838389
갱신하다
의 새 버전과 함께tidyr우리는 사용할 수 있습니다.pivot_longer여러 열의 모양을 변경합니다.(변경된 열 이름 사용)gsub위)
library(dplyr)
library(tidyr)
df %>%
pivot_longer(cols = starts_with("Q3"),
names_to = c(".value", "Q3"), names_sep = "_") %>%
select(-Q3)
# A tibble: 30 x 4
# id time Q3.2 Q3.3
# <int> <date> <dbl> <dbl>
# 1 1 2009-01-01 0.974 1.47
# 2 1 2009-01-01 -0.849 -0.513
# 3 1 2009-01-01 0.894 0.0442
# 4 2 2009-01-02 2.04 -0.553
# 5 2 2009-01-02 0.694 0.0972
# 6 2 2009-01-02 -1.11 1.85
# 7 3 2009-01-03 0.413 0.733
# 8 3 2009-01-03 -0.896 -0.271
#9 3 2009-01-03 0.509 -0.0512
#10 4 2009-01-04 1.81 0.668
# … with 20 more rows
참고: 입력 데이터 집합을 만들 때 설정된 시드가 없었기 때문에 값이 다릅니다.
최근 업데이트와 함께melt.data.table이제 여러 개의 열을 녹일 수 있습니다.이를 통해 다음을 수행할 수 있습니다.
require(data.table) ## 1.9.5
melt(setDT(df), id=1:2, measure=patterns("^Q3.2", "^Q3.3"),
value.name=c("Q3.2", "Q3.3"), variable.name="loop_number")
# id time loop_number Q3.2 Q3.3
# 1: 1 2009-01-01 1 -0.433978480 0.41227209
# 2: 2 2009-01-02 1 -0.567995351 0.30701144
# 3: 3 2009-01-03 1 -0.092041353 -0.96024077
# 4: 4 2009-01-04 1 1.137433487 0.60603396
# 5: 5 2009-01-05 1 -1.071498263 -0.01655584
# 6: 6 2009-01-06 1 -0.048376809 0.55889996
# 7: 7 2009-01-07 1 -0.007312176 0.69872938
개발 버전은 여기서 구할 수 있습니다.
"tidyr" 및 "dplyr"과는 전혀 관련이 없지만 고려해야 할 다른 옵션이 있습니다.merged.stack"분할 스택 모양" 패키지인 V1.4.0 이상에서 사용할 수 있습니다.
library(splitstackshape)
merged.stack(df, id.vars = c("id", "time"),
var.stubs = c("Q3.2.", "Q3.3."),
sep = "var.stubs")
# id time .time_1 Q3.2. Q3.3.
# 1: 1 2009-01-01 1. -0.62645381 1.35867955
# 2: 1 2009-01-01 2. 1.51178117 -0.16452360
# 3: 1 2009-01-01 3. 0.91897737 0.39810588
# 4: 2 2009-01-02 1. 0.18364332 -0.10278773
# 5: 2 2009-01-02 2. 0.38984324 -0.25336168
# 6: 2 2009-01-02 3. 0.78213630 -0.61202639
# 7: 3 2009-01-03 1. -0.83562861 0.38767161
# <<:::SNIP:::>>
# 24: 8 2009-01-08 3. -1.47075238 -1.04413463
# 25: 9 2009-01-09 1. 0.57578135 1.10002537
# 26: 9 2009-01-09 2. 0.82122120 -0.11234621
# 27: 9 2009-01-09 3. -0.47815006 0.56971963
# 28: 10 2009-01-10 1. -0.30538839 0.76317575
# 29: 10 2009-01-10 2. 0.59390132 0.88110773
# 30: 10 2009-01-10 3. 0.41794156 -0.13505460
# id time .time_1 Q3.2. Q3.3.
당신이 나와 같아서 "포획 그룹이 있는 정규식"을 사용하는 방법을 알아낼 수 없는 경우.extract다음 코드는 다음을 복제합니다.extract(...)해들리의 대답은 다음과 같습니다.
df %>%
gather(question_number, value, starts_with("Q3.")) %>%
mutate(loop_number = str_sub(question_number,-2,-2), question_number = str_sub(question_number,1,4)) %>%
select(id, time, loop_number, question_number, value) %>%
spread(key = question_number, value = value)
여기서 문제는 초기 수집이 실제로 두 키의 조합인 키 열을 형성한다는 것입니다.사용하기로 선택했습니다.mutate이 열을 동등한 정보를 가진 두 개의 열로 분할하기 위한 코멘트에 있는 나의 원래 솔루션에서,loop_number 및 a 과aquestion_number기둥. spread 키 값롱 폼하는 데 할 수 .(question_number, value)광범위한 형식의 데이터입니다.
언급URL : https://stackoverflow.com/questions/25925556/gather-multiple-sets-of-columns
'programing' 카테고리의 다른 글
| 내 ASP.NET 웹 사이트를 wwwroot 폴더에 넣어야 합니까? (0) | 2023.07.10 |
|---|---|
| 찾기 명령을 사용하여 실행 파일 검색 (0) | 2023.07.10 |
| 사전 개체를 web.config 파일에 저장하려면 어떻게 해야 합니까? (0) | 2023.07.10 |
| 테이블에 허용되는 최대 열 수는 몇 개입니까? (0) | 2023.07.10 |
| C 부동 소수점을 int로 변환 (0) | 2023.07.10 |