这是使用dplyr的另一种解决方案：

library(dplyr)

df1 %>% 
  mutate(Date = as.Date(Date,"%d.%m.%y")) %>% 
  group_by(Order,Place,DateLag = !((Date - lag(Date,default = first(Date)))>1)) %>% 
  summarise(Date = first(Date),Count = n()) %>% 
  ungroup %>% select(-DateLag) %>% 
  arrange(Order,Date)

># # A tibble: 5 x 4
>#   Order Place Date       Count
>#   <int> <chr> <date>     <int>
># 1    11 A     2019-11-01     2
># 2    11 A     2019-11-05     1
># 3    22 B     2019-11-01     1
># 4    22 D     2019-11-02     2
># 5    33 A     2019-11-01     1

数据：

read.table(text=" Order  Place  Date     
 11     A      01.11.19 
 11     A      01.11.19 
 11     A      05.11.19 
 22     B      01.11.19 
 22     D      02.11.19 
 22     D      03.11.19 
 33     A      01.11.19",header=T,stringsAsFactors=F) -> df1