R 中數據幀中每行滿足條件的百分比

Question

我有一個數據框（調用“dat”）和一個包含 6 個元素的向量（調用 v）

我想在數據框中添加6 個新列

第一個新列：每行中大於向量第一個元素的元素數

第二個新列：每行中大於向量第二個元素的元素數

第三個新列：每行中大於向量第三個元素的元素數

等等.....

dat<-data.frame(replicate(10,sample(0:6,50,rep=TRUE)))
v<-c(2,4,1,3,5,6)

謝謝

Answer 1

在基礎 R 中，您可以執行以下操作：

dat[paste0('greater_than_', v)] <- lapply(v, function(x) rowSums(dat >= x))

在purrr中，您可以執行以下操作：

dat[paste0('greater_than_', v)] <- map(v, ~rowSums(dat >= .x))

Answer 2

我們可以通過這種方式使用tidyverse

library(dplyr)
library(purrr)
library(stringr)
map_dfc(v, ~rowSums(dat >= .x)) %>% 
     rename_all(~str_c('greater_than_', v)) %>% 
     bind_cols(dat, .)

---

或者在base R中使用for循環

for(i in seq_along(v)) dat[paste0('greater_than_', v[i])] <- rowSums(dat >= v[i])