Ich habe eine anständige Grafik, die ich mit @ gezeichnet ha

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

Jetzt möchte ich ein paar Punkte auf dem Graphen hervorheben,

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
}

wenn ich Parameter übergebe

r -> graphPoint(r,500)

dies gibt Fehler

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

Ich bin nicht so toll mit R. Hoffe es ist möglich, aber ich fehle irgendwann .. Danke.