Вы можете попробовать:
sum(df[df$date >="2018-08-10" & df$date<="2018-08-16",]$Sales)
или
sum(subset(df, date>="2018-08-10" & date<="2018-08-16")$Sales)
Для воспроизводства:
df <- data.table::fread("Guest Sales date
A 50 2018-08-10
B 180 2018-08-10
C 20 2018-08-15
D 390 2018-08-20")