estoy probando el paquete de R ggplot2.
He probado de distintas maneras y nunca consigo un resultado satisfactorio (mejor dicho, siempre fracaso). Estoy intentando hacer un grafico que me muestre el numero de consultas por año. Usando un plot
por defecto de R funciona.
output$grafico <- renderPlot({
conn <- odbcConnect("ORAC11.ORACLE11G", uid="l21", pwd="l21", rows_at_time = 500, believeNRows=FALSE)
a <- as.character(input$dateRange[1])
b <- as.character(input$dateRange[2])
consultaAgrupada <- sqlExecute(conn,
query="select count(COCODIGO) NUMCOD, extract(year from COFECHA) ANIO from L2113T00 where extract(year from COFECHA) > extract(year from TO_DATE( ? ,'yyyy-mm-dd')) and extract(year from COFECHA) < extract(year from TO_DATE( ? ,'yyyy-mm-dd')) group by extract(year from COFECHA) ",
data=data.frame(a,b),
fetch = TRUE
)
close(conn)
plot(consultaAgrupada$ANIO, consultaAgrupada$NUMCOD, main="Numero de consultas por año" , xlab="FECHA (AÑO)", ylab="Nº CONSULTAS",col = c("blue","red","darkgreen"))
})
Hasta ahi todo bien, me muestra un grafico con puntos de las consultas por año, pero cuando pruebo con los graficos de ggplot2, o no se visualiza nada o me da un error
Por ejemplo, el codigo que tengo que no me visualiza nada es el siguiente( omito la parte en la que ejecuto la consulta ya que es lo mismo que en el primer ejemplo):
p <- ggplot(consultaAgrupada,aes(consultaAgrupada$ANIO,consultaAgrupada$NUMCOD))
print(p)
Esto me carga un grafico pero no me muestra datos
La otra manera que he probado ha sido introducirle un geomBar()
p <- ggplot(consultaAgrupada,aes(consultaAgrupada$ANIO,consultaAgrupada$NUMCOD)+geomBar())
print(p)
Pero esto me da el error
Error: non-numeric argument to binary operator
No he conseguido entender muy bien como crear los graficos en ggplot2 (como se puede ver ) asi que si alguien que me ilumina con su infinita sabiduria le estare eternamente agradecido :P