Crear una función usando ggplot2 [duplicar]

Esta pregunta ya tiene una respuesta aquí:

Acceder a una variable en una función ggplot 1 respuesta

Por alguna razón cuando hago lo siguiente:

Fruit <- c(rep("Apple",3),rep("Orange",5))
Bug <- c("worm","spider","spider","worm","worm","worm","worm","spider")
Numbers <- runif(8)
df <- data.frame(Fruit,Bug,Numbers)

Para el recuento de factores

bar.plot <- function(dat,j,c){
ggplot(dat, aes(j, ..count..)) + 
geom_bar(aes(fill = c), position = "dodge")
}
bar.plot(df,Fruit,Bug)

yo obtengo

Don't know how to automatically pick scale for object of type function. Defaulting to continuous
    Error in eval(expr, envir, enclos) : object 'j' not found

Estoy principalmente preocupado por la segunda línea del error Error en eval ... ¿Alguien sabe por qué sucede esto? Tengo muchos gráficos de barras que hacer, por lo que esta función me facilitaría la vida.

Respuestas a la pregunta(1)

Su respuesta a la pregunta