วิธีใช้ Apply เพื่อเปลี่ยนองค์ประกอบของ Dataframe หนึ่งตามคอลัมน์ของอีกคอลัมน์หนึ่ง

ฉันมีกรอบข้อมูลที่มีสองคอลัมน์ทำเครื่องหมายจุดเริ่มต้นและจุดสิ้นสุดของขอบเขตที่ฉันต้องจัดการในกรอบข้อมูลอื่น แทนที่จะใช้ a ฉันตัดสินใจสร้างเวกเตอร์เชิงตรรกะกับแถวที่ฉันสนใจ

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 มากเกินไป แสดงว่าไม่มีหน่วยความจำเพียงพอที่จะจัดสรรเมทริกซ์ที่เป็นผลมาจากการนำไปใช้

คุณมีทางออกที่ดีกว่านี้ไหม?

ขอบคุณ!


r apply
person RMelo    schedule 27.02.2020    source แหล่งที่มา

คำตอบ (2)


arrow_upward
2
arrow_downward

เราสามารถใช้ mapply/Map เพื่อสร้างลำดับระหว่างค่า b ถึง e และเปลี่ยนให้เป็น TRUE

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

arrow_upward
0
arrow_downward

เรายังสามารถทำได้ด้วย map2

library(dplyr)
library(purrr)
df %>% 
   transmute(new = map2(b, e, `:`)) %>%
   pull(new) %>% 
   flatten_int %>%
   replace(logint, ., TRUE)
person akrun    schedule 27.02.2020