将列表中的多个元素与 r 中的不同索引组合起来

Question

我有一个列表，我需要将具有不同索引的元素相加。我正在苦苦挣扎，因为我想在不同的索引处创建一个循环。

data(aSAH)
rocobj <- roc(aSAH$outcome, aSAH$s100b)
dat<-coords(rocobj, "all", ret=c("threshold","sensitivity", "specificity"), as.list=TRUE)

我想创建一个函数，我可以在其中查看新数据框中所有阈值处的所有sensitivity/1-specificity 组合。我知道阈值在dat[1,]，敏感性在dat[2,]，特异性在dat[3,]。所以我尝试了：

for (i in length(dat)) {
print(dat[1,i]
  print(dat[2,i]/(1-dat[3,i]))
}

我最终应该得到一个包含threshold 和sensitivity/1-specificity 的数据框。

数据

dput(head(aSAH))
structure(list(gos6 = structure(c(5L, 5L, 5L, 5L, 1L, 1L), .Label = c("1", 
"2", "3", "4", "5"), class = c("ordered", "factor")), outcome = structure(c(1L, 
1L, 1L, 1L, 2L, 2L), .Label = c("Good", "Poor"), class = "factor"), 
    gender = structure(c(2L, 2L, 2L, 2L, 2L, 1L), .Label = c("Male", 
    "Female"), class = "factor"), age = c(42L, 37L, 42L, 27L, 
    42L, 48L), wfns = structure(c(1L, 1L, 1L, 1L, 3L, 2L), .Label = c("1", 
    "2", "3", "4", "5"), class = c("ordered", "factor")), s100b = c(0.13, 
    0.14, 0.1, 0.04, 0.13, 0.1), ndka = c(3.01, 8.54, 8.09, 10.42, 
    17.4, 12.75)), .Names = c("gos6", "outcome", "gender", "age", 
"wfns", "s100b", "ndka"), row.names = 29:34, class = "data.frame")

编辑 一个答案：

dat_transform <- as.data.frame(t(dat))
dat_transform <- dat_transform %>% mutate(new=sensitivity/(1-specificity))

Answer 1

你可以使用：

transform(t, res = sensitivity/(1-specificity))[c(1, 4)]

或者dplyr：

library(dplyr)

t %>%
  mutate(res = sensitivity/(1-specificity)) %>%
  select(threshold, res)

另请注意t 是 R 中用于转置数据帧的默认函数，因此最好为数据帧使用其他变量名。