Find point-to-range overlaps

Question

I have a dataframe df1:

df1 <- read.table(text=\" Chr06  79641   
Chr06   82862   
Chr06   387314  
Chr06   656098  
Chr06   678491  
Chr06   1018696\", heade         


        

Answer 1

You can do this using sapply:

sapply(1:nrow(df1), function(x) any(df1[x,2] >= df2$V2 &
                                    df1[x,2] <= df2$V3 &
                                    df1[x, 1] == df2$V1))
[1] FALSE  TRUE  TRUE FALSE FALSE  TRUE