选择性地应用pivot_wider()函数
选择性地应用pivot_wider()函数
提问于 2021-11-12 14:02:41
背景：我们要求每个参与者识别多种情绪，然后收集关于每种情绪的数据，这样他们识别的第一种情绪有一列，第二种，然后是针对每一种情绪的后续问题的单独列。在宽格式下，它看起来如下所示：
rows <- 1:4
cols <- c("PID", "Stage", "Emo1_", "Emo2_",
"Emo1_Intense", "Emo2_Intense",
"Emo1_Desc", "Emo2_Desc", "Keyword")
df <- data.frame(matrix(NA,
nrow = length(rows),
ncol = length(cols),
dimnames = list(rows, cols)))
df$PID <- c("A-001", "A-002", "A-003", "A-004")
df$Stage <- c("Beginning", "End", "Middle", "Middle")
df$Emo1_ <- c("Fear", "Sadness", "Happy", "Anger")
df$Emo2_ <- c("Content", "Depressed", "Lost", "Sad")
df$Emo1_Intense <- 5:8
df$Emo2_Intense <- 1:4
df$Emo1_Desc <- c("E", "F", "G", "H")
df$Emo2_Desc <- c("A", "B", "C", "D")
df$Keyword <- c("Bus", "Ceiling", "Chainsaw", "Floor")# PID Stage Emo1_ Emo2_ Emo1_Intense Emo2_Intense Emo1_Desc Emo2_Desc Keyword
#1 A-001 Beginning Fear Content 5 1 E A Bus
#2 A-002 End Sadness Depressed 6 2 F B Ceiling
#3 A-003 Middle Happy Lost 7 3 G C Chainsaw
#4 A-004 Middle Anger Sad 8 4 H D FloorPROBLEM：我的脑子在放屁，我不知道如何将这个数据转换成下面的格式，其中我们有单个列，每个列都捕获:1)。一种情绪被命名为哪个位置，2.)哪种情绪被命名，3.)每一种情绪的后续问题：
rows <- 1:8
cols <- c("PID", "Stage", "Number", "Emo", "Intense", "Desc", "Keyword")
df <- data.frame(matrix(NA,
nrow = length(rows),
ncol = length(cols),
dimnames = list(rows, cols)))
df$PID <- sort(rep(c("A-001", "A-002", "A-003", "A-004"), 2))
df$Stage <- sort(rep(c("Beginning", "Middle", "Middle", "End"), 2))
df$Number <- rep(1:2, 4)
df$Emo <- c("Fear", "Content", "Sadness", "Depressed", "Happy", "Lost", "Anger", "Sad")
df$Intense <- c(5,1,6,2,7,3,4,8)
df$Desc <- c("E", "A", "F", "B", "G", "C", "H", "D")
df$Keyword <- rep(c("Bus", "Ceiling", "Chainsaw", "Floor"),2)# PID Stage Number Emo Intense Desc Keyword
#1 A-001 Beginning 1 Fear 5 E Bus
#2 A-001 Beginning 2 Content 1 A Ceiling
#3 A-002 End 1 Sadness 6 F Chainsaw
#4 A-002 End 2 Depressed 2 B Floor
#5 A-003 Middle 1 Happy 7 G Bus
#6 A-003 Middle 2 Lost 3 C Ceiling
#7 A-004 Middle 1 Anger 4 H Chainsaw
#8 A-004 Middle 2 Sad 8 D Floor我可以手动完成这个操作，但是它比这个数据集大得多，我知道我已经使用了pivot_longer上千次了，我现在只是在努力使它工作起来。它要么过于保守，要么在专栏整合中过于自由，我很难找到平衡。
命名约定是任意的。如果以另一种方式重新格式化可能会更好，请做我的客人！
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-11-12 14:40:11
这个解决方案怎么样？
需要更新以"_“结尾的列的名称，并对数字的列进行一些修饰。我相信这可以在一条线上完成。
#rename columns that end with _
torename<-grep("(Emo._)$", names(df))
names(df)[torename] <- paste0(names(df)[torename], "Emo")
answer<- pivot_longer(df, cols= starts_with("Emo"), names_to=c( "Number", ".value"),
names_sep = "_", names_repair="unique")
#clean-up the Number column
answer$Number <- gsub("Emo", "", answer$Number)
answer
# A tibble: 8 × 7
PID Stage Keyword Number Emo Intense Desc
<chr> <chr> <chr> <chr> <chr> <int> <chr>
1 A-001 Beginning Bus 1 Fear 5 E
2 A-001 Beginning Bus 2 Content 1 A
3 A-002 End Ceiling 1 Sadness 6 F
4 A-002 End Ceiling 2 Depressed 2 B
5 A-003 Middle Chainsaw 1 Happy 7 G
6 A-003 Middle Chainsaw 2 Lost 3 C
7 A-004 Middle Floor 1 Anger 8 H
8 A-004 Middle Floor 2 Sad 4 D 页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/69944122
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号