我希望在我遇到的问题上得到一些帮助!
我有一个示例数据框如下(已创建 dput 结构):
df <- structure(list(id = structure(1:3, .Label = c("1", "2", "3"), class = "factor"),
result.1 = structure(1:3, .Label = c("10", "34", "60"), class = "factor"),
date.1 = structure(1:3, .Label = c("10.6.13", "21.6.13",
"30.6.13"), class = "factor"), result.2 = structure(c(1L,
2L, NA), .Label = c("23", "43"), class = "factor"), date.2 = structure(c(1L,
2L, NA), .Label = c("11.6.13", "14.12.14"), class = "factor"),
result.3 = structure(c(NA, 1L, NA), .Label = "34", class = "factor"),
date.3 = structure(c(NA, 1L, NA), .Label = "1.1.15", class = "factor")), .Names = c("id", "result.1", "date.1", "result.2", "date.2", "result.3", "date.3"), row.names = c(NA, -3L), class = "data.frame")
df
每一行代表一位可以在不同日期进行多项测试的患者
我需要数据以长格式显示，如下所示(给定 dput 输出)使用结果和日期
structure(list(id.2 = structure(c(1L, 1L, 2L, 2L, 2L, 3L), .Label = c("1",
"2", "3"), class = "factor"), test.result = structure(c(1L, 2L,
1L, 2L, 3L, 1L), .Label = c("result.1", "result.2", "result.3"
), class = "factor"), test.value = structure(c(1L, 2L, 3L, 4L,
3L, 5L), .Label = c("10", "23", "34", "43", "56"), class = "factor"),
test.date = structure(c(1L, 2L, 1L, 2L, 3L, 1L), .Label = c("date.1",
"date.2", "date.3"), class = "factor"), date = structure(c(2L,
3L, 5L, 4L, 1L, 6L), .Label = c("1.1.15", "10.6.13", "11.6.13",
"14.12.14", "21.6.13", "30.6.13"), class = "factor")), .Names = c("id.2",
"test.result", "test.value", "test.date", "date"), row.names = c(NA,
-6L), class = "data.frame")
非常感谢任何帮助!!
阿努普
最佳答案
Base R 的 reshape() 在这里完成了繁重的工作。这是一个非常有用的功能，但众所周知，它既强大又难以使用!
x <- reshape(df, idvar=1, varying=2:7, direction="long", timevar="n")
x <- x[complete.cases(x),] ## to get rid of rows with NA's in them
# id n result date
# 1.1 1 1 10 10.6.13
# 2.1 2 1 34 21.6.13
# 3.1 3 1 60 30.6.13
# 1.2 1 2 23 11.6.13
# 2.2 2 2 43 14.12.14
# 2.3 2 3 34 1.1.15
## And, to complete the job _exactly_ as you described it
with(x, data.frame(id.2=id,
test.result=paste0("result.",n), test.value=result,
test.date=paste0("date.",n), date=date))
# id.2 test.result test.value test.date date
# 1 1 result.1 10 date.1 10.6.13
# 2 2 result.1 34 date.1 21.6.13
# 3 3 result.1 60 date.1 30.6.13
# 4 1 result.2 23 date.2 11.6.13
# 5 2 result.2 43 date.2 14.12.14
# 6 2 result.3 34 date.3 1.1.15
关于r - 使用两个变量将数据更改为长格式，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/28488786/