座標で指定されたポイントでマップを作成する必要がありますが、変数に応じて色が異なります (「猫」としましょう)。
data1=data.frame(X=c(-122,-122,-122), Y=c(37,37,38), cat=c('A', 'A', 'B'))
map <- qmap('San Francisco', zoom = 12, maptype = 'hybrid')
map + geom_point(data = data1, aes(x = X, y = Y), color="red", size=1, alpha=0.5)
color=cat を導入しようと思ったのですがうまくいきませんでした。