DATEPART() в sqldf

DATEPART(...) является частью Transact-SQL, которая является собственностью Microsoft и Sybase, поэтому нет, она не поддерживается в sqldf.

sqldf работает путем создания временной базы данных на основе механизма, определенного в аргументе drv=. Поэтому любая версия SQL, поддерживаемая этим движком, должна поддерживаться sqldf. См. в документации список поддерживаемых движков. Если вы не укажете механизм, он поддерживает словарь, определенный в SQLite, который является подмножеством стандартного языка SQL (документация здесь).

Одна из проблем в вашем примере заключается в том, что ваши значения ORDER_TIME используют 12-часовой формат времени. SQLite поддерживает ISO-8601, для которого требуется 24-часовой формат. Итак, в вашем конкретном случае единственный вариант, который я могу придумать, - это создать столбец HOURS в R и использовать его при вызове sqldf(...).

library(sqldf)
# create sample data...
set.seed(1)
# ORDER_TIME in 12-hour format; does not conform with ISO-8601
data <- data.frame(ORDER_TIME=strftime(as.POSIXct("1:00:00",format="%H:%M:%S")+seq(12*3600,24*3600,60),format="%I:%M:%S %p"),
                   ORDER.DATE=strftime(as.Date("2013-01-01")+rep(0:30,each=721),format="%m/%d/%Y"),
                   DISCHARGE_UNIT=sample(1:10,721,replace=T))

# add hours column based on ORDER_TIME
data$HOURS <- as.numeric(strftime(as.POSIXct(data$ORDER_TIME,format="%I:%M:%S %p"),format="%H"))
sqldf("select DISCHARGE_UNIT,
      round(avg(HOURS),2) `avg order time`
      from data
      group by DISCHARGE_UNIT")
#    DISCHARGE_UNIT avg order time
# 1               1          16.91
# 2               2          16.69
# 3               3          16.64
# 4               4          17.10
# 5               5          15.78
# 6               6          15.01
# 7               7          17.09
# 8               8          15.12
# 9               9          17.68
# 10             10          17.17

Если ваши данные о времени были в 24-часовом формате (кстати, настоятельно рекомендуется), вы могли бы использовать SQLite функции даты и времени:

set.seed(1)
# ORDER_TIME in 24-hour format; conforms to ISO-8601
data <- data.frame(ORDER_TIME=strftime(as.POSIXct("1:00:00",format="%H:%M:%S")+seq(12*3600,24*3600,60),format="%H:%M:%S"),
                   ORDER.DATE=strftime(as.Date("2013-01-01")+rep(0:30,each=721),format="%m/%d/%Y"),
                   DISCHARGE_UNIT=sample(1:10,721,replace=T))
sqldf("select DISCHARGE_UNIT,
      round(avg(strftime('%H',ORDER_TIME)),2) `avg order time`
      from data
      group by DISCHARGE_UNIT",drv="SQLite")
#    DISCHARGE_UNIT avg order time
# 1               1          16.91
# 2               2          16.69
# 3               3          16.64
# 4               4          17.10
# 5               5          15.78
# 6               6          15.01
# 7               7          17.09
# 8               8          15.12
# 9               9          17.68
# 10             10          17.17