library(dplyr); library(magrittr); library(ggplot2) ;library (ggsci)
fuel = read.csv("Fuel.csv")

Endurance Table

library(knitr)
fuel %>% filter(Dist > -1) %>% select(LogPlatform, Speed, Rate, EffSpd, maxFuel, Dist, DaysOfFuel)%>% kable()
LogPlatform Speed Rate EffSpd maxFuel Dist DaysOfFuel
HIMARS Batallion EAB 0 42.0 35 0 0 0.000000
AMD Battery EAB 0 11.0 35 0 0 0.000000
MEU EAB 0 1146.0 0 0 0 0.000000
MEU Aviation Combat Element EAB 0 181.0 0 0 0 0.000000
FFG_X 25 1200.0 15 4286 2143 3.571667
DDG 30 2900.0 12 10518 2611 3.626897
FFG_X 20 730.0 15 4286 2818 5.871233
DDG 5 400.0 12 10518 3155 26.295000
T-AKM 20 1500.0 9 10000 3200 6.666667
T-AKM 15 1000.0 9 10000 3600 10.000000
DDG 25 1700.0 12 10518 3712 6.187059
DDG 20 1200.0 12 10518 4207 8.765000
FFG_X 15 350.0 15 4286 4408 12.245714
T-AKM 5 250.0 9 10000 4800 40.000000
T-AKM 10 500.0 9 10000 4800 20.000000
Pipefish 5 100.0 6 4000 4800 40.000000
Pipefish 10 200.0 6 4000 4800 20.000000
DDG 10 500.0 12 10518 5049 21.036000
FFG_X 5 100.0 15 4286 5143 42.860000
FFG_X 10 200.0 15 4286 5143 21.430000
DDG 15 650.0 12 10518 5825 16.181538
LUSV 25 600.0 12 6000 6000 10.000000
LUSV 5 100.0 12 6000 7200 60.000000
LUSV 10 200.0 12 6000 7200 30.000000
LUSV 15 300.0 12 6000 7200 20.000000
AS 20 1500.0 11 24000 7680 16.000000
MUSV 25 200.0 16 2663 7989 13.315000
T-AKE 20 2000.0 9 34000 8160 17.000000
LUSV 20 350.0 12 6000 8229 17.142857
LHA 25 3000.0 13 43091 8618 14.363667
LHD 25 3000.0 13 43091 8618 14.363667
LPD 20 1200.0 10 23750 9500 19.791667
AS 5 300.0 11 24000 9600 80.000000
AS 15 900.0 11 24000 9600 26.666667
LHA 20 2000.0 13 43091 10342 21.545500
LHD 20 2000.0 13 43091 10342 21.545500
T-AKE 15 1000.0 9 34000 12240 34.000000
LPD 5 230.0 10 23750 12391 103.260870
MUSV 5 25.0 16 2663 12782 106.520000
MUSV 10 50.0 16 2663 12782 53.260000
MUSV 15 75.0 16 2663 12782 35.506667
MUSV 20 100.0 16 2663 12782 26.630000
LSD 20 700.0 13 19150 13131 27.357143
LPD 15 630.0 10 23750 13571 37.698413
LHA 15 1100.0 13 43091 14103 39.173636
LHD 15 1100.0 13 43091 14103 39.173636
T-ESB 5 200.0 15 24000 14400 120.000000
AS 10 400.0 11 24000 14400 60.000000
T-EPF 30 1200.0 18 24000 14400 20.000000
LHA 5 350.0 13 43091 14774 123.117143
LHD 5 350.0 13 43091 14774 123.117143
LHA 10 700.0 13 43091 14774 61.558571
LHD 10 700.0 13 43091 14774 61.558571
LSD 5 150.0 13 19150 15320 127.666667
T-ESB 10 375.0 15 24000 15360 64.000000
T-EPF 25 900.0 18 24000 16000 26.666667
LPD 10 350.0 10 23750 16286 67.857143
T-AKE 5 250.0 9 34000 16320 136.000000
T-AKE 10 500.0 9 34000 16320 68.000000
T-ESB 15 513.0 15 24000 16842 46.783626
T-AO 20 2570.0 9 90260 16858 35.120623
LSD 15 370.0 13 19150 18632 51.756757
T-EPF 5 150.0 18 24000 19200 160.000000
T-EPF 10 300.0 18 24000 19200 80.000000
T-EPF 15 450.0 18 24000 19200 53.333333
T-EPF 20 600.0 18 24000 19200 40.000000
OSV 10 80.0 12 6600 19800 82.500000
OSV 15 120.0 12 6600 19800 55.000000
LSV 10 175.0 6 14660 20105 83.771429
LSD 10 210.0 13 19150 21886 91.190476
T-AOL 15 350.0 12 22565 23210 64.471429
T-AO 15 1285.0 9 90260 25287 70.241245
T-AO 5 424.0 9 90260 25542 212.852258
T-AO 10 848.0 9 90260 25542 106.426129
T-AOT (CONSOL Capable) 15 1500.0 8 118500 28440 79.000000
T-AOT (with MFDS) 15 1500.0 8 118500 28440 79.000000
T-AOT (Lightering Only) 15 1500.0 8 118500 28440 79.000000
T-AOT (Lightering Only) 5 375.0 8 118500 37920 316.000000
T-AOT (CONSOL Capable) 10 750.0 8 118500 37920 158.000000
T-AOT (with MFDS) 10 750.0 8 118500 37920 158.000000
T-AOT (Lightering Only) 10 750.0 8 118500 37920 158.000000
OSV 5 20.0 12 6600 39600 330.000000
LSV 5 40.0 6 14660 43980 366.500000
T-AOL 5 50.0 12 22565 54156 451.300000
T-AOL 10 100.0 12 22565 54156 225.650000
T-AOT (with MFDS) 5 12.5 8 118500 1137600 9480.000000
T-AOT (CONSOL Capable) 5 25.0 8 118500 568800 4740.000000
OTS Barge and Tug (OTS) 10 50.0 8 50000 240000 1000.000000
OTS Barge and Tug (OTS) 7 24.0 8 50000 350000 2083.333333

Endurance vs. Speed - All Platforms

theme_set(theme_minimal())

fuel %>%  ggplot(aes(x = maxFuel, y = Dist, label = LogPlatform, color = as.factor(Speed))) + geom_label(size = 1) + scale_y_continuous(labels = scales::comma) + scale_color_startrek() + labs(color = "Speed") + scale_x_continuous(labels = scales::comma) + xlab("Fuel Capacity") + ylab("Maximum Distance")

fuel %>% filter(maxFuel < 40000) %>% ggplot(aes(x = maxFuel, y = Dist, label = LogPlatform, color = as.factor(Speed))) + geom_label(size = 1) + scale_y_continuous(labels = scales::comma) + scale_color_startrek() + labs(color = "Speed") + scale_x_continuous(labels = scales::comma) + xlab("Fuel Capacity") + ylab("Maximum Distance") + geom_smooth(method = "lm", se = FALSE)