情節經緯度點？

Question

我有一個數據幀包含名爲ID變量，經度（LON），緯度（LAT），你可以download。

gg <- ggplot() 
gg <- gg + geom_map(data=skorea, map=skorea, 
        aes(x=long, y=lat, map_id=id, group=group), 
        fill=NA, color="black") 
gg <- gg + geom_point(data=st, aes(x=LON, y=LAT, color=color), 
         alpha=1, na.rm=TRUE) 
gg <- gg + scale_size(range=c(2,7)) 
gg <- gg + scale_color_identity() 
gg <- gg + labs(title= "coordinate data of id", 
       x="Longitude", y= "Latitude") 
gg <- gg + coord_map() 
gg <- gg + theme_map() 
gg <- gg + theme(title= element_text(hjust = 0.5, vjust=1, face="bold")) 
gg 

我想以這樣的方式，在usertxt1我要繪製Loss_ratio地圖：我一直在使用GGPLOT2包同一張地圖上用下面的代碼繪製一些經度緯度的國家地圖用不同的顏色不同的ID對3級1級，級別2，級別3我想繪製3個地圖對於每個這些水平的usertxt1.In每個映射它應包含在顏色的色光對應的丟失率與變化等最高值應該是最暗的和最小的值應爲最輕。

Answer 1

你的意思是這樣的？

require(dplyr) 

#filter out those without USERTXT1 value 
data = filter(data,USERTXT1!="") 

#some data fomatting 
data$Latitude = as.numeric(data$Latitude) 
data$Longitude = as.numeric(data$Longitude) 
data$Loss_ratio = as.numeric(data$Loss_ratio) 
data$USERTXT1 = as.factor(data$USERTXT1) 


require(ggmap) 
#get basemap 
basemap <- get_map(location = c(lon = 0.5*(min(data$Longitude)+max(data$Longitude)), 
         lat = 0.5*(min(data$Latitude)+max(data$Latitude))), 
         color = "color", 
         source = "google", 
         maptype = "satellite", 
         zoom = 4) 

#take logarithm of loss ratio to reduce dispersion 
data$Loss_ratio = log(data$Loss_ratio+1) 

#create ggmap object 
map = ggmap(basemap, 
      ylab = "Latitude", 
      xlab = "Longitude") 
map = map + geom_point(data=data,aes(y=Latitude, 
            x=Longitude, 
            color=Loss_ratio)) 
map = map + facet_grid(~USERTXT1) 
map