Question

我有一个数据帧，其中两列标记了我需要在另一个数据帧中操作的区域的开始和结束。我决定不使用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;return(logint)})

但是，结果是df每行只有一列的矩阵。我知道我可以用

解决

log_vec <- Reduce(`|`,as.data.frame(log_vec))

但是如果df中的行数太大，则没有足够的内存来分配apply所产生的矩阵。

您有更好的解决方案吗？

谢谢！

Answer 1

我们可以使用mapply / Map在b和e值之间创建一个序列，并将它们转换为TRUE。

logint <- rep(FALSE,50)
logint[unlist(Map(`:`, df$b, df$e))] <- TRUE

Answer 2

我们也可以使用render() { const { gamesList, isPending } = this.props; return ( <div className='tc'> <ul> {gamesList.map(game => <li>{game.name}</li>)} </ul> </div> );

map2

如何使用Apply来更改一个数据框的元素（基于另一列的元素）？

2 个答案: