0

Y 変数 (経度) と X 変数 (緯度) プロットで、カラー コーディングを 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.))

理想的には、これらの機能の両方を 1 つのグラフに結合したいと考えています。船の速度に基づいてルートが色分けされた「ブルネイ」マップ ベース。これは、船舶が不必要に速く進んで燃料を浪費している場所を船長に視覚的に示すことができるようにするためです。

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
4

1 に答える 1

0

解決策を考え出した

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))
于 2015-07-16T05:08:15.823 に答える