r将具有模式的列名的数据集从宽转换为长
让我们假设下面这样一个数据集r将具有模式的列名的数据集从宽转换为长,r,reshape,reshape2,melt,dcast,R,Reshape,Reshape2,Melt,Dcast,让我们假设下面这样一个数据集 ID Gender ColA_1 ColB_1 ColC_1__1 ColC_1__2 ColA_2 ColB_2 ColC_2__1 ColC_2__2 1 Male No Yes Yes No No Yes No No 2 Female Yes No Yes No No Yes Yes
ID Gender ColA_1 ColB_1 ColC_1__1 ColC_1__2 ColA_2 ColB_2 ColC_2__1 ColC_2__2
1 Male No Yes Yes No No Yes No No
2 Female Yes No Yes No No Yes Yes No
我想做的是像下面这样转换这个数据集
ID Index Gender ColA ColB ColC_1 ColC_2
1 1 Male No Yes Yes No
1 2 Male No Yes No No
2 1 Female Yes No Yes No
2 2 Female No Yes Yes No
不知道怎么做,需要帮助。提前感谢。这里有一个选项,使用pivot\u更长
数据
这里有一个较长的pivot_选项
数据
您可以使用data.table软件包解决问题:
您可以使用data.table软件包解决问题:
@akurn,如果列名严格地不以关键字Col开头,它们可以以任何单词开头,但结尾顺序相同,该怎么办。@akurn,如果列名严格地不以关键字Col开头,它们可以以任何单词开头,但结尾顺序相同,该怎么办。
library(dplyr)
library(tidyr)
library(stringr)
df1 %>%
rename_at(vars(starts_with('ColC')), ~ str_replace(., "_(\\d+)__(\\d+)",
"\\2_\\1")) %>%
pivot_longer(cols = 3:ncol(.), names_to = c(".value", "Index"),
names_sep="_")
# A tibble: 4 x 7
# ID Gender Index ColA ColB ColC1 ColC2
# <int> <chr> <chr> <chr> <chr> <chr> <chr>
#1 1 Male 1 No Yes Yes No
#2 1 Male 2 No Yes No No
#3 2 Female 1 Yes No Yes No
#4 2 Female 2 No Yes Yes No
df1 <- structure(list(ID = 1:2, Gender = c("Male", "Female"), ColA_1 = c("No",
"Yes"), ColB_1 = c("Yes", "No"), ColC_1__1 = c("Yes", "Yes"),
ColC_1__2 = c("No", "No"), ColA_2 = c("No", "No"), ColB_2 = c("Yes",
"Yes"), ColC_2__1 = c("No", "Yes"), ColC_2__2 = c("No", "No"
)), class = "data.frame", row.names = c(NA, -2L))
library(data.table)
melt(data = setDT(df),
measure = patterns(ColA="ColA", ColB="ColB", ColC_1="ColC_.+1$", ColC_2="ColC_.+2$"),
variable.name = "index")