情节经纬度点？

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