Вот один из способов сделать это.
x <- .xts(rnorm(100), as.POSIXct("2011-01-06 10:00:00")-100:1*3600)
x[with(as.POSIXlt(index(x)), !(wday==1 & hour > 12 & hour < 18)),]
И если вам нужно только время между 12: 00-18: 00, вы можете использовать xts-subsetting следующим образом:
x["T12:00/T18:00"]