DFDS density of reported AIS positions in Europe;

DFDS: The one European Passenger carrier you need to know about

I used to travel quite often with DFDS from Newcastle (North Shields) to Amsterdam (Ijmuiden) when I was a business analyst and partner in a company in Germany. As such I spent many nights on the North Sea on DFDS ships and saw many of the ships and ATons, Wind farms.

I see them now again as data points.

Wind farms in the North Sea
Wind farms in the North Sea

 

On board the Princess Seaways
On board the Princess Seaways

 

Havendienst Ijmuiden
Havendienst Ijmuiden

 

Leaving Newcastle
Leaving Newcastle

 

291826 AIS positional signals were detected from 36 ships that have the word “Seaways” in their name and whose AIS signals were transmitted over AISHUB. Data was recorded from 2017-12-17 01:22:23 to 2018-01-05 00:56:17.

DFDS operates mostly in Europe, although some (probably wrongly transmitted) positions were picked up along longitude 0. Dark to grey dots under Africa.

DFDS positions along longitude 0
DFDS positions along longitude 0

Otherwise the density of recorded AIS positions is mostly in Europe.

DFDS density of reported AIS positions in Europe;
DFDS density of reported AIS positions in Europe;

Here is a point map of these densities

Points of reported DFDS AIS positions
Points of reported DFDS AIS positions

Maps were generated with ggplot and ggmap in R.

library(ggplot2)
library(ggmap)
library(grid)
lonlat <- read.csv("C:/Users/X/Documents/AIS/dfdslog.csv", header=TRUE)

lon <- lonlat$Lon
lat <- lonlat$LAT
MMSI <- lonlat$MMSI
NAME <- lonlat$NAME

df <- as.data.frame(cbind(lon,lat))

mapgilbert <- get_map(location = c(lon = median(df$lon), lat = median(df$lat)), source = "stamen", zoom = 4,maptype = "toner-lite", scale = 1)
#density
ggmap(mapgilbert, extent = "device") + geom_density2d(data = df, aes(x = lon, y = lat), size = 0.3) + stat_density2d(data = df, aes(x = lon, y = lat, fill = ..level.., alpha = ..level..), size = 0.01, bins = 256, geom = "polygon") + scale_fill_gradient(low = "green", high = "red") + scale_alpha(range = c(0, 1), guide = FALSE)
#points
ggmap(mapgilbert, extent = "device")+ geom_point(aes(x = lon, y = lat), colour = "red", alpha = 0.1, size = 1, data = df)

Here is the table of the ships and how often they reported their position over AISHUB,

NameFrequency
CALAIS SEAWAYS18756
DOVER SEAWAYS18209
DUNKERQUE SEAWAYS17999
PEARL SEAWAYS16888
DELFT SEAWAYS15399
CROWN SEAWAYS14156
SELANDIA SEAWAYS11678
SUECIA SEAWAYS11076
BRITANNIA SEAWAYS10183
PETUNIA SEAWAYS9693
GARDENIA SEAWAYS9312
PRINCESS SEAWAYS9228
ANGLIA SEAWAYS9183
KING SEAWAYS9166
TULIPA SEAWAYS8962
BEGONIA SEAWAYS8906
LYSVIK SEAWAYS7940
PRIMULA SEAWAYS7673
FICARIA SEAWAYS7273
FREESIA SEAWAYS6669
LYSBRIS SEAWAYS6669
REGINA SEAWAYS6400
MAGNOLIA SEAWAYS6124
FIONIA SEAWAYS5782
HAFNIA SEAWAYS5674
CORONA SEAWAYS5484
JUTLANDIA SEAWAYS5210
FINLANDIA SEAWAYS4864
LIVERPOOL SEAWAYS3448
PATRIA SEAWAYS2777
VILNIUS SEAWAYS2630
VICTORIA SEAWAYS2502
ATHENA SEAWAYS2115
KAUNAS SEAWAYS1909
OPTIMA SEAWAYS1141
BOTNIA SEAWAYS748