Использование ddply внутри функции

Я пытаюсь создать функцию, используя внутри него ddply. Однако я не могу приступить к работе. Это фиктивный пример, воспроизводящий то, что я получаю. Это имеет какое-то отношение эта ошибка ?

library(ggplot2)
data(diamonds)

foo <- function(data, fac1, fac2, bar) {
  res <- ddply(data, .(fac1, fac2), mean(bar))
  res
}

foo(diamonds, "color", "cut", "price")