使用using时试图维护索引
使用using时试图维护索引
提问于 2020-11-09 15:40:12
我试图将数据从wide转换为long，但由于某种原因，ID列在转换后没有显示。我的数据就是这样的：
> head(dca)
# A tibble: 6 x 11
ResponseId Q9 Q10 Q11 Q12 Q13 Q14 Q15 Q16 Q17 Q18
<chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 "Response … "Regardi… "Regardi… "Regardi… "Regardi… "Regardi… "Regardi… "Regard… "Regard… "Regard… "Regard…
2 "{\"Import… "{\"Impo… "{\"Impo… "{\"Impo… "{\"Impo… "{\"Impo… "{\"Impo… "{\"Imp… "{\"Imp… "{\"Imp… "{\"Imp…
3 "R_2V7lrA7… "Using F… "Using T… "Using Y… "Using T… "Using T… "Using I… "Using … "Using … "Using … "Using …
4 "R_3nozPOT… "Using F… "Using T… "Using T… "Using T… "Using T… "Using I… "Using … "Using … "Using … "Using …
5 "R_2TB0Wwy… "Using Y… "Using T… "Using T… "Using T… "Using T… "Using F… "Using … "Using … "Using … "Using …
6 "R_2woFtS9… "Using Y… "Using T… "Using Y… "Using T… "Using I… "Using I… "Using … "Using … "Using … "Using …在应用以下转换之后：
library(tidyr)
keycol <- "ResponseId"
valuecol <- "Response"
gathercols <- c("Q9","Q10","Q11","Q12","Q13","Q14","Q15","Q16","Q17","Q18" )
dca_long<- gather_(dca,dca$ResponseId, keycol, valuecol, gathercols)我得到的是：
> head(dca_long)
# A tibble: 6 x 2
ResponseId 'Response`
<chr> <chr>
1 Q9 "Regarding the use of social media, which of the following options would you prefer?"
2 Q9 "{\"ImportId\":\"QID12\"}"
3 Q9 "Using Facebook on PC for utility"
4 Q9 "Using Facebook on PC for utility"
5 Q9 "Using Youtube on mobile for entertainment"
6 Q9 "Using Youtube on mobile for entertainment" 本质上，我希望在dca_long中有一个列来匹配来自dca的ResponseId值。我这样做是为了进一步使dca适合mlogit()。
注释中的某个人请求提供此输出以更好地理解代码：
> dput(head(dca))
structure(list(ResponseId = c("Response ID", "{\"ImportId\":\"_recordId\"}",
"R_2V7lrA7n29xU0i6", "R_3nozPOTbJBE1OBa", "R_2TB0WwyWCugTyEg",
"R_2woFtS93jHyiv8F"), Q9 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID12\"}", "Using Facebook on PC for utility",
"Using Facebook on PC for utility", "Using Youtube on mobile for entertainment",
"Using Youtube on mobile for entertainment"), Q10 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID13\"}", "Using TikTok on PC for utility",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Twitter on mobile for entertainment"), Q11 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID14\"}", "Using Youtube on PC for utility",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Youtube on PC for utility"), Q12 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID15\"}", "Using Twitter on mobile for utility",
"Using Twitter on mobile for utility", "Using Twitter on mobile for utility",
"Using Twitter on mobile for utility"), Q13 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID16\"}", "Using TikTok on Mobile for utility",
"Using TikTok on Mobile for utility", "Using TikTok on Mobile for utility",
"Using Instagram on PC for entertainment"), Q14 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID17\"}", "Using Instagram on PC for utility",
"Using Instagram on PC for utility", "Using Facebook on Mobile for entertainment",
"Using Instagram on PC for utility"), Q15 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID18\"}", "Using Twitter on mobile for entertainment",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Facebook on mobile for utility"), Q16 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID19\"}", "Using Facebook on PC for entertainment",
"Using Facebook on PC for entertainment", "Using Tiktok on mobile for utility",
"Using Facebook on PC for entertainment"), Q17 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID20\"}", "Using Youtube on PC for entertainment",
"Using Youtube on PC for entertainment", "Using Instagram on mobile for utility",
"Using Instagram on mobile for utility"), Q18 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID21\"}", "Using Instagram on mobile for entertainment",
"Using Youtube on PC for utility", "Using Instagram on mobile for entertainment",
"Using Instagram on mobile for entertainment")), row.names = c(NA,
-6L), class = c("tbl_df", "tbl", "data.frame"))回答 2
Stack Overflow用户
回答已采纳
发布于 2020-11-09 16:33:46
这个例子可能会帮助您解决问题。
#simulated wide data for reproducibility
wide_data <- read.table(header=TRUE, text='
subject sex time_1 time_2 time_3
1 M 15 16 23
2 F 25 20 48
3 F 30 25 55
4 M 35 32 60
')使用gather，您应该得到如下内容。
gather(data = olddata_wide,
key = alternative,
value = time,
c(time_1, time_2, time_3),
factor_key=TRUE)
subject sex alternative time
1 1 M time_1 15
2 2 F time_1 25
3 3 F time_1 30
4 4 M time_1 35
5 1 M time_2 16
6 2 F time_2 20
7 3 F time_2 25
8 4 M time_2 32
9 1 M time_3 23
10 2 F time_3 48
11 3 F time_3 55
12 4 M time_3 60如果这没有帮助的话。请复制您的数据片段(dca)，以便在其中解决问题。最好的！
编辑的
使用您发布的数据：
df<- structure(list(ResponseId = c("Response ID", "{\"ImportId\":\"_recordId\"}",
"R_2V7lrA7n29xU0i6", "R_3nozPOTbJBE1OBa", "R_2TB0WwyWCugTyEg",
"R_2woFtS93jHyiv8F"), Q9 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID12\"}", "Using Facebook on PC for utility",
"Using Facebook on PC for utility", "Using Youtube on mobile for entertainment",
"Using Youtube on mobile for entertainment"), Q10 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID13\"}", "Using TikTok on PC for utility",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Twitter on mobile for entertainment"), Q11 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID14\"}", "Using Youtube on PC for utility",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Youtube on PC for utility"), Q12 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID15\"}", "Using Twitter on mobile for utility",
"Using Twitter on mobile for utility", "Using Twitter on mobile for utility",
"Using Twitter on mobile for utility"), Q13 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID16\"}", "Using TikTok on Mobile for utility",
"Using TikTok on Mobile for utility", "Using TikTok on Mobile for utility",
"Using Instagram on PC for entertainment"), Q14 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID17\"}", "Using Instagram on PC for utility",
"Using Instagram on PC for utility", "Using Facebook on Mobile for entertainment",
"Using Instagram on PC for utility"), Q15 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID18\"}", "Using Twitter on mobile for entertainment",
"Using Twitter on mobile for entertainment", "Using Twitter on mobile for entertainment",
"Using Facebook on mobile for utility"), Q16 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID19\"}", "Using Facebook on PC for entertainment",
"Using Facebook on PC for entertainment", "Using Tiktok on mobile for utility",
"Using Facebook on PC for entertainment"), Q17 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID20\"}", "Using Youtube on PC for entertainment",
"Using Youtube on PC for entertainment", "Using Instagram on mobile for utility",
"Using Instagram on mobile for utility"), Q18 = c("Regarding the use of social media, which of the following options would you prefer?",
"{\"ImportId\":\"QID21\"}", "Using Instagram on mobile for entertainment",
"Using Youtube on PC for utility", "Using Instagram on mobile for entertainment",
"Using Instagram on mobile for entertainment")), row.names = c(NA,
-6L), class = c("tbl_df", "tbl", "data.frame"))并使用我之前发布的部分片段：
df_long<- gather(data = df,
key = alternative,
value = value_answer,
Q9:Q18,
factor_key=TRUE) 您应该能够得到如下内容，它保留了Response ID变量：
ResponseId alternative value_answer
<chr> <fct> <chr>
1 "Response ID" Q9 "Regarding the use of social media, which of the foll~
2 "{\"ImportId\":\"_rec~ Q9 "{\"ImportId\":\"QID12\"}"
3 "R_2V7lrA7n29xU0i6" Q9 "Using Facebook on PC for utility"
4 "R_3nozPOTbJBE1OBa" Q9 "Using Facebook on PC for utility"
5 "R_2TB0WwyWCugTyEg" Q9 "Using Youtube on mobile for entertainment"
6 "R_2woFtS93jHyiv8F" Q9 "Using Youtube on mobile for entertainment" 我希望这能帮到你。最好的！
Stack Overflow用户
发布于 2020-11-09 16:43:35
这接近你想要完成的目标吗？
library(tidyr)
library(dplyr)
dca_long <- dca %>%
gather(key = "question",
value = "response",
2:ncol(.))
# # A tibble: 60 x 3
# ResponseId question response
# <chr> <chr> <chr>
# 1 "Response ID" Q9 "Regarding the use of social media, which of the following options would you prefer?"
# 2 "{\"ImportId\":\"_recordId\"}" Q9 "{\"ImportId\":\"QID12\"}"
# 3 "R_2V7lrA7n29xU0i6" Q9 "Using Facebook on PC for utility"
# 4 "R_3nozPOTbJBE1OBa" Q9 "Using Facebook on PC for utility"
# 5 "R_2TB0WwyWCugTyEg" Q9 "Using Youtube on mobile for entertainment"
# 6 "R_2woFtS93jHyiv8F" Q9 "Using Youtube on mobile for entertainment"
# 7 "Response ID" Q10 "Regarding the use of social media, which of the following options would you prefer?"
# 8 "{\"ImportId\":\"_recordId\"}" Q10 "{\"ImportId\":\"QID13\"}"
# 9 "R_2V7lrA7n29xU0i6" Q10 "Using TikTok on PC for utility"
# 10 "R_3nozPOTbJBE1OBa" Q10 "Using Twitter on mobile for entertainment"
# # … with 50 more rows看来你的数据还需要清理。
本质上，我希望在dca_long中有一个列来匹配来自dca的ResponseId值。
all(unique(dca$ResponseId) == unique(dca_long$ResponseId))
# [1] TRUE页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64754693
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号