Пожалуйста, позвольте мне начать с предоставления синтетического набора данных, который показывает проблемы:Почему mapply повторяет один и тот же список несколько раз?
Do <- rep(c(0,2,4,6,8,10,15,20,30,40,45,50,55,60,65,70,80,85,90,92,94,96,98,100), each=16,times=16)
Cl <- rep(c("K", "Y","M","C"), each= 384, times=4)
In <- rep(c("A", "S"), each=3072)
Sa <- rep(c(1,2), each=1536)
Data <- rnorm(6144)
DataFrame <- cbind.data.frame(Do,Cl,In,Sa,Data); head(DataFrame)
rm(Do,Cl,In,Sa,Data)
attach(DataFrame)
Далее, я разделил объект «» DataFrame в несколько списков, чтобы избежать непредсказуемого утилизации. В принципе, я помещаю каждое подмножество данных в отдельный список, чтобы цикличность была предсказуемой и обеспечивала правильный вывод в моем симуляторе.
DFSplit <- split(DataFrame[ , "Data"], list(Do, Cl, In, Sa))
Объект 'DFSplit' имеет 384 списков
length(names(DFSplit))
Затем я создал функцию 'IdS', чтобы определить списки имен
ids <- function(Do, Cl, In, Sa){
grep(paste("^" , Do, "\\.",
Cl, "\\.",
In,
"\\.", Sa,sep=""),
names(DFSplit), value = TRUE)}
mapply(ids, Do, Cl, In, Sa, SIMPLIFY = FALSE)
Я понимаю, что каждый из 'IdS' длина аргументов 6144. mapply производит 384 списка, каждый раз повторяется 16 раз. Как изменить функцию ids, чтобы mapply не повторял одно и то же имя 16 раз. В качестве уродливого и дорогостоящего решения я использовал уникальный; Мне нужно лучшее фундаментальное решение.
unique(mapply(ids, Do, Cl, In, Sa, SIMPLIFY = FALSE))
Я также создал функцию для работы с списками «DFSplit». Он имеет ту же проблему, что и предыдущая функция. Дело в том, что оно принимает предыдущую функцию как вход.
dG <- function(Do,Cl, In, Sa){
dg <- 100*
(1-10^-(DFSplit[[ids(Do, Cl, In, Sa)]] - DFSplit[[ids(0, Cl, In, Sa)]]))/
(1-10^-(DFSplit[[ids(100, Cl, In, Sa)]] - DFSplit[[ids(0, Cl, In, Sa)]])) - Do
dg}
mapply(dG, Do, Cl, In, Sa, SIMPLIFY = FALSE)
То, что я пытаюсь сделать, но безуспешно, если я могу сказать, чтобы применить функцию Д.Г. внутри каждого из 384 списков. Я признаю, что функция dG также нуждается в изменении, и я не знаю, как это сделать. Я хочу, чтобы ввод функции dG был именем 384 списков, каждый из которых содержал 16 номеров. Я хочу, чтобы выход был списком 384 с примененным dG.
Пожалуйста, не стесняйтесь предлагать другое решение. Важно то, что мне нужно применить функцию «dG» к набору данных.
Что именно вы хотите достичь? Ваше решение выглядит довольно сложно ... –
Привет, Пол, я работаю над этим в течение недели без успеха. Я пытаюсь применить функцию «dG» к моим данным: «DataFrame». К сожалению, я не был успешным, так как аргументы отличаются друг от друга, и переработка привела к неправильному вычислению. Поэтому я разделил файл на списки, определил имя каждого списка, а затем применил функцию dG. –
Я не могу понять, что вы на самом деле пытаетесь выполнить из этого кода. Но я удивлен, что вы удивлены, что ваш результат имеет длину 6144. Каждый аргумент, который вы передаете функции 'dG', имеет длину 6144. – joran