これは、こちらの投稿のフォローアップです: .
@Arun が提供するコードは次のとおりです。このコードは、異なるディレクトリのファイルに対して実行され、異なるデータ フレームを比較します。
f1 <- list.files("<path1>", full.names = TRUE)
f2 <- list.files("<path2>", full.names = TRUE)
f3 <- list.files("<path3>", full.names = TRUE)
get_idx <- function(in_df) {
sapply( 1:nrow(in_df), function(idx)
which(df1[idx, 2:4] > df1[idx, 1]))
}
get_result <- function(idx.v, in_df2, in_df3) {
sapply(1:length(idx.v), function(ix) {
col.idx <- idx.v[[ix]]
len.idx <- length(col.idx)
if (len.idx > 0) {
res <- sum(in_df2[ix, col.idx] - in_df3[ix, col.idx])
} else {
res <- NA
}
})
}
最後の部分は次のとおりです。
out <- lapply(1:length(f1), function(f.idx) {
df1 <- read.table(f1[f.idx], header = T)
df2 <- read.table(f2[f.idx], header = T)
df3 <- read.table(f3[f.idx], header = T)
idx.v <- get_idx(df1)
result <- get_result(idx.v, df2, df3)
transform(df3, result = result)
})
このコードを実行すると、次のエラー メッセージが生成されました。
Error in which(df1[idx, 2:4] > df1[idx, 1]) : object 'df1' not found