Eu tenho um gráfico de aparência decente, que plotei usando

r <- ggplot(data=data2.Gurgaon,aes(x=createdDate,y=count))+geom_point()

Agora, quero destacar alguns pontos no gráfico, digamos 500,1000,5000 etc. Então, estou tentando escrever uma função na qual posso passar o ponto que quero marcar. Abaixo está a função que escrevi.

graphPoint <- function(graph,point) {
  g <- graph
  g <- g+geom_point(aes(x=createdDate[point],y=count[point]),pch=1,size=8,col='black')
  g <- g+ geom_point(aes(x=createdDate[point],y=count[point]),pch=16,size=5,col='red')
  g
}

quando estou passando parâmetros

r -> graphPoint(r,500)

isso está dando erro

Error in lapply(X = x, FUN = "[", ..., drop = drop) : 
  object 'point' not found

Eu não sou tão bom com R. Espero que seja possível, mas estou ausente em algum momento .. Obrigado.