ggmakeプロットにポイントを追加する際にエラーが発生しました

Question

ggmakeを使用してプロットを作成しようとしていますが、プロットが作成されましたが、geom_pointを使用してポイントを追加したいのですが、これは都市の経度と緯度を与えました。下に、経度と緯度を含むコードとデータフレームを貼り付けました。

City Longitude Latitude 
Mastung 66.84691 29.4087 
Khuzdaar 66.611691 27.812 
Khaich 63.01475 26.156 
Panjgore 64.112336 26.97524 
Quetta 66.998734 30.1829713 
Dera Bugti 69.159609 29.035158 
Kohlo 69.24901 29.8975 
Kalat 66.5878 29.0303 
Kharaan 65.4222 28.5812 
Nooshki 66.0195 29.555 

kl <- read.csv(file.choose()) 
map <- get_map(location=c(66.214995,28.538837), zoom=7) + geom_point(data =  
kl,aes(x =longitude,y = latitude,size =4),color='red') 
Error:Error in Ops.raster(get_map(location = c(66.214995, 28.538837), zoom = 7), 
: operator not meaningful for raster objects 

これらの点をプロットしてこのエラーを取り除くにはどうすればよいですか？

Answer 1

kl <- read.table(text=' 
City longitude latitude 
"Mastung" 66.84691 29.4087 
"Khuzdaar" 66.611691 27.812 
"Khaich" 63.01475 26.156 
"Panjgore" 64.112336 26.97524 
"Quetta" 66.998734 30.1829713 
"Dera Bugti" 69.159609 29.035158 
"Kohlo" 69.24901 29.8975 
"Kalat" 66.5878 29.0303 
"Kharaan" 65.4222 28.5812 
"Nooshki" 66.0195 29.555 
', header=T) 

library(ggmap) 

mp <- get_map(location=c(66.214995,28.538837), zoom=7) 
ggmap(mp) + 
geom_point(data=kl, aes(x=longitude, y=latitude), color='red', size=4)