R 如何使用apply更改一个数据帧中基于另一个数据帧的列的元素?
我有一个数据框,其中两列标记我需要在另一个数据框中操作的区域的开始和结束。我决定用感兴趣的行创建一个逻辑向量,而不是应用forR 如何使用apply更改一个数据帧中基于另一个数据帧的列的元素?,r,apply,R,Apply,我有一个数据框,其中两列标记我需要在另一个数据框中操作的区域的开始和结束。我决定用感兴趣的行创建一个逻辑向量,而不是应用for df <- data.frame(b=c(7,25,32,44),e=c(11,27,39,48),n=c('a','b','c','d')) logint <- rep(F,50) log_vec <- apply(df[,c('b','e')],1, function(x){logint[x['b']:x['e']] <- T;retur
df <- data.frame(b=c(7,25,32,44),e=c(11,27,39,48),n=c('a','b','c','d'))
logint <- rep(F,50)
log_vec <- apply(df[,c('b','e')],1, function(x){logint[x['b']:x['e']] <- T;return(logint)})
但是如果df
中的行数太大,则没有足够的内存来分配apply生成的矩阵
你有更好的解决办法吗
谢谢 我们可以使用
mappy
/Map
在b
和e
值之间创建一个序列,并将它们转换为TRUE
logint <- rep(FALSE,50)
logint[unlist(Map(`:`, df$b, df$e))] <- TRUE
logint我们可以使用mapply
/Map
在b
和e
值之间创建一个序列,并将它们转换为TRUE
logint <- rep(FALSE,50)
logint[unlist(Map(`:`, df$b, df$e))] <- TRUE
logint我们也可以使用map2
library(dplyr)
library(purrr)
df %>%
transmute(new = map2(b, e, `:`)) %>%
pull(new) %>%
flatten_int %>%
replace(logint, ., TRUE)
我们也可以使用map2
library(dplyr)
library(purrr)
df %>%
transmute(new = map2(b, e, `:`)) %>%
pull(new) %>%
flatten_int %>%
replace(logint, ., TRUE)