我有一个包含两列的数据框 - 一列是开始日期，另一列是结束日期。我需要获取一个包含两列的新数据框 - 一个是日期列，另一列是第一个数据框的观察计数，其中日期位于开始和结束之间。
有：
dates<-data.frame("Start"=seq(as.Date("2017/1/1"),by="day", length.out = 5),"End"=seq(as.Date("2017/1/3"),by="day", length.out = 5))
Start End
2017-01-01 2017-01-03
2017-01-02 2017-01-04
2017-01-03 2017-01-05
2017-01-04 2017-01-06
2017-01-05 2017-01-07
想：
Date Count
2017-01-01 1
2017-01-02 2
2017-01-03 3
2017-01-04 3
2017-01-05 3
2017-01-06 2
2017-01-07 1
我可以使用 for 循环，但是在 R 中有更好的方法吗？