Question

我正在努力将颜色编码与Y变量（Lon）和X Var（Lat）图中的Z变量（ShipSpeedGPS.Knots。）相结合。

我已通过以下命令映射路线

NWSMAP = qmap('brunei', zoom=3)

NWSMAP + geom_point(aes(x=Lon, y=Lat), data=D3)

另外，我已经能够通过以下命令对没有基本地图的路线进行颜色编码

D3Plot = ggplot(data = D3, aes(x=Lat, y=Lon, colour=yval))

D3Plot + geom_point(aes(colour = D3$ShipSpeedGPS.Knots.))

理想情况下，我想将这两个功能组合到一个图表中。＆＃39; brunei＆＃39;使用基于船速的编码路线颜色绘制地图。这样我就可以直观地展示船只的船长，他们不必要地快速行驶并浪费燃料。

str(D3)
'data.frame':   74843 obs. of  15 variables:

$ Date                   : Date, format: "2015-04-27" 
$ Time                   : Factor w/ 86401 levels "","0:00:00"
$ Lat                    : num  -19.9
$ Lon                    : num  117
$ ShipCourse.Deg.        : int  182
$ ShipSpeedGPS.Knots.    : num  13.4 
$ ShipSpeedLog.Knots.    : num  13.6
$ ShipSpeedPropllr.Knots.: num  14.3
$ Wind.Dir..Rel...Deg.   : int  0
$ Wind.Speed.Abs...Knots.: num  13.3
$ WindSpeedRel...Knots.  : num  0 
$ ShaftPower.kW.         : int  7526 
$ ShaftSpeed.rpm.        : num  58.8
$ ShaftTorque.kNm.       : int  1222
$ ShaftThrust..kN.       : int  915

Answer 1

计算解决方案

NWSMAP2 = get_map(location = "brunei", zoom = 3)

ggmap(NWSMAP2) + geom_point(data = D3, aes(x = Lon, y = Lat, color = ShipSpeedGPS.Knots.)) + scale_colour_gradient(low="green", high="red", limits=c(10,16))

图3变量在ggplot中

1 个答案: