chr <- c("1","1","2")
pos <- c("1000","2000","2000")
df1=data.frame(cbind(tmp1,tmp2))
df1

chr    pos
1      1000
1      2000
2      2000

chr <- c("1","1","1","2","2")
start <- c("500","1500","2500","500","1500")
end <- c("1499","2499","3499","1499","2499")
state <- c("state1", "state2", "state1", "state3", "state4")
df2=data.frame(cbind(chr,start,end,state))
df2

chr start  end  state
1   500    1499 state1
1   1500   2499 state2
1   2500   3499 state1
2   500    1499 state3
2   1500   2499 state4

chr    pos     state
1      1000    state1
1      2000    state2
2      2000    state4