kyle.belanger/learning_Julia
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

update Makie Graph

Browse source
This commit is contained in:
Kyle Belanger 2024-08-14 07:15:44 -04:00
parent 2ac17a08e2
commit c48d1aac77
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
LearnJulia/src/amtrak.jl
View file

@ -7,6 +7,7 @@ using Dates
using Statistics using Statistics
using AlgebraOfGraphics using AlgebraOfGraphics
using CairoMakie using CairoMakie
using CategoricalArrays
url = "https://juckins.net/amtrak_status/archive/html/history.php?train_num=97%2C98&station=&date_start=07%2F01%2F2024&date_end=07%2F31%2F2024" url = "https://juckins.net/amtrak_status/archive/html/history.php?train_num=97%2C98&station=&date_start=07%2F01%2F2024&date_end=07%2F31%2F2024"
@ -58,6 +59,7 @@ mod_df = @chain df begin
@rtransform :hour = if occursin(r"hr", :delay) match(r"[1-9]* hr", :delay).match |> @rtransform :hour = if occursin(r"hr", :delay) match(r"[1-9]* hr", :delay).match |>
x -> parse(Int,match(r"[1-9]*", x).match) |> x -> x*60 else Int(0) end x -> parse(Int,match(r"[1-9]*", x).match) |> x -> x*60 else Int(0) end
@rtransform :total_delay_mins = :min + :hour |> x -> ifelse(occursin(r"late", :delay), x, x *-1) @rtransform :total_delay_mins = :min + :hour |> x -> ifelse(occursin(r"late", :delay), x, x *-1)
@transform :station = categorical(:station)
end end
@ -71,6 +73,7 @@ gd = @chain mod_df begin
@orderby :station :train @orderby :station :train
@groupby :station @groupby :station
@transform :diff = [missing; diff(:mean)] @transform :diff = [missing; diff(:mean)]
@rtransform :station_code = levelcode(:station)
end end
# plot(bar(gd.station, gd.mean), xticks = (1:length(gd.station), gd.station), xrotation = 90, legend = false, title = "Mean Delay by Station", xlabel = "Station", ylabel = "Delay (mins)") # plot(bar(gd.station, gd.mean), xticks = (1:length(gd.station), gd.station), xrotation = 90, legend = false, title = "Mean Delay by Station", xlabel = "Station", ylabel = "Delay (mins)")
@ -81,4 +84,4 @@ mean_delay = data(gd) * mapping(:station, :mean, color = :train => "Train", dodg
draw(mean_delay; axis = axis) draw(mean_delay; axis = axis)
CairoMakie.barplot(gd.station_code, gd.mean)