计算多个数据同时性的 ICC

Question

我想为多个 data.frame 同时计算 ICC。我所有的 data.frame 都具有相同的结构（5 列 x 83 行）。我创建了一个生成 ICC 并将结果放入 table 的函数 (my_icc)。我在这个网站上看到，当你想同时对多个 data.frame 应用一个函数时，你需要将你的数据放入一个列表中。 () 不过我的函数好像不支持列表元素，因为我用的是函数select。我使用 select 函数是因为我想用我的 3:5 列进行 ICC。如果我当时在一个 data.frame 上应用我的功能，我没有任何问题。

my_icc <- function(data) {
  data %>%
    select(3:4) %>%       # select just the rating columns             
    irr::icc() %>%        # calculate the ICC
    unlist() %>%          # turn the output list into a vector
    t() %>%               # transpose this vector
    as_tibble() %>%       # turn the vector into a table 
    select(               # select just the columns you want
      icc = value,        # rename value to icc
      F.value=Fvalue,
      df1,
      df2,
      p.value,
      conf.level,
      lower.bound=lbound, 
      uper.ubound=ubound
    ) 
}

my_icc(Radiomics.CSV[[1]])

Icc Result

这是我试图创建以获得ICC同时性的循环。我创建了一个包含 3 data.frame 的小列表。实际上，我想计算 1258 ICC 的同时性。我所有的数据。框架，在 R 中使用此功能导入。


library(dplyr)

files <- list.files(path = "Tableau des features/", pattern="*.csv")
 Radiomics.CSV <- lapply(files, function(x) {
    read.csv(paste0("Tableau des features/", x))
})


my_list <- c(Radiomics.CSV[[1]], Radiomics.CSV[[2]],Radiomics.CSV[[3]])
for(i in my_list){
 my_icc <- function(i) {
  i %>%
    select(3:4) %>%       # select just the rating columns             
    irr::icc() %>%        # calculate the ICC
    unlist() %>%          # turn the output list into a vector
    t() %>%               # transpose this vector
    as_tibble() %>%       # turn the vector into a table 
    select(               # select just the columns you want
      icc = value,        # rename value to icc
      F.value=Fvalue,
      df1,
      df2,
      p.value,
      conf.level,
      lower.bound=lbound, 
      uper.ubound=ubound
    ) 
} 
}
my_icc(my_list)

Error: `select()` doesn't handle lists.

Answer 1

在这种情况下，您不需要列表。因为你的文件名是数字，你只需要在你的for循环中指定代表名称的数字间隔。

my_icc <- function(i) {
  i %>%
    select(3:5) %>%       # select just the rating columns             
    irr::icc() %>%        # calculate the ICC
    unlist() %>%          # turn the output list into a vector
    t() %>%               # transpose this vector
    as_tibble() %>%       # turn the vector into a table 
    select(               # select just the columns you want
      icc = value,        # rename value to icc
      F.value=Fvalue,     # un peu enlever les paramètres que nous ne voulons pas
      df1,
      df2,
      p.value,
      conf.level,
      lower.bound=lbound, 
      uper.ubound=ubound
    ) 
} 

for (x in 1:1258) { 
  write.csv(data.frame(my_icc(Data[[x]])), paste0('/Users/T/Desktop/Rstudio/ICCs/',x,'.csv'), row.names = T)
}

这个循环将 return 你 1258 个分隔文件。

计算多个数据同时性的 ICC

Calculate ICC for multiple data simultaneity

r

csv

icc