update

KittJonathan · Nov 15, 2024 · d4be438 · d4be438
1 parent 9be72ce
commit d4be438
Show file tree

Hide file tree

Showing 27 changed files with 49 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241110_130400.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241110_130400.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241111_060000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241111_060000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241111_100000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241111_100000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241111_140000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241111_140000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241111_180000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241111_180000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241111_220000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241111_220000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_020000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_020000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_060000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_060000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_100000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_100000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_140000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_140000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_180000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_180000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241112_220000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241112_220000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241113_020000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241113_020000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241113_060000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241113_060000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241113_140000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241113_140000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241113_180000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241113_180000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241113_220000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241113_220000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241114_020000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241114_020000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241114_100000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241114_100000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241114_140000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241114_140000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241114_180000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241114_180000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241114_220000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241114_220000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241115_020000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241115_020000.xlsx
diff --git a/01-DATA_RAW/vendeeglobe_leaderboard_20241115_060000.xlsx b/01-DATA_RAW/vendeeglobe_leaderboard_20241115_060000.xlsx
diff --git a/02-SCRIPTS/clean_data.R b/02-SCRIPTS/clean_data.R
@@ -0,0 +1,32 @@
+library(tidyverse)
+library(readxl)
+library(maps)
+library(parzer)
+
+df <- readxl::read_xlsx("01-DATA_RAW/vendeeglobe_leaderboard_20241115_060000.xlsx", 
+                        range = "B6:U45", col_names = FALSE)
+
+names(df) <- c("Rank", "Nat", "Skipper", "Hour_FR", "Latitude", "Longitude",
+               "Last30min_heading", "Last30min_speed", "Last30min_VMG", "Last30min_distance",
+               "SinceLastStandings_heading", "SinceLastStandings_speed", "SinceLastStandings_VMG",
+               "SinceLastStandings_distance", "Last24hrs_heading", "Last24hrs_speed", 
+               "Last24hrs_VMG", "Last24hrs_distance", "Distance_to_finish", "Distance_to_leader")
+
+df <- df |> 
+  select(Latitude, Longitude) |> 
+  mutate(lon = parzer::parse_lon(Longitude),
+         lat = parzer::parse_lat(Latitude))
+
+world <- map_data("world")
+
+
+
+ggplot() +
+  geom_polygon(data = world, aes(x = long, y = lat, group = group),
+               fill = "#afcfdf") +
+  geom_point(data = df, aes(x = lon, y = lat),
+             col = "#f4f0f0") +
+  coord_fixed(ratio = 1.3, xlim = c(-26, -12), ylim = c(25, 36)) +
+  theme_void() +
+  theme(panel.background = element_rect(colour = "#485fb0",
+                                        fill = "#485fb0"))
diff --git a/VENDEE_GLOBE.Rproj b/VENDEE_GLOBE.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX