Tidy Assessment

Casey’s Dashboard

This is my dashboard yeahh!

Does running distances change when players player matches at altitude?

No! There are no significant differences in running per minute (total or high speed running) BUT the players perceive the breathlessness load to be higher by about 11 AU on the RPE Scale -From “very hard” to “extremely hard” ..

ggplot(match_run) +
  aes(x = rpe_breathe, y = rpe_leg) +
  geom_point(size = 1.45, colour = "#112446") + 
  geom_smooth(method = "lm", se = TRUE, colour = "red", linetype = "dashed") +
  theme_minimal() + facet_wrap(~altitude_code)

`geom_smooth()` using formula = 'y ~ x'

match_run %>%
  filter(altitude_code == "sea") %>%  # Using '==' for a single value
  ggplot() +
  aes(x = rpe_leg, y = rpe_session) +
  geom_point(colour = "#112446", size = 3, alpha = 0.7) +  # Points with transparency
  geom_smooth(method = "lm", se = TRUE, color = "blue", linetype = "dashed") +  # Best fit line
  theme_minimal() +
  labs(
    title = "RPE Session vs RPE Leg at Sea Level",
    x = "RPE Leg",
    y = "RPE Session"
  )

`geom_smooth()` using formula = 'y ~ x'

Warning: Removed 3 rows containing non-finite outside the scale range
(`stat_smooth()`).

Warning: Removed 3 rows containing missing values or values outside the scale range
(`geom_point()`).

match_run %>%
  filter(altitude_code == "low") %>%  # Using '==' for a single value
  ggplot() +
  aes(x = rpe_leg, y = rpe_session) +
  geom_point(colour = "#112446", size = 3, alpha = 0.7) +  # Points with slight transparency
  geom_smooth(method = "lm", se = TRUE, color = "red", linetype = "dashed") +  # Best fit line
  theme_minimal() +
  labs(
    title = "RPE Session vs RPE Leg at Low Altitude",
    x = "RPE Leg",
    y = "RPE Session"
  )

`geom_smooth()` using formula = 'y ~ x'

Warning: Removed 1 row containing non-finite outside the scale range
(`stat_smooth()`).

Warning: Removed 1 row containing missing values or values outside the scale range
(`geom_point()`).

match_run %>%
  filter(altitude_code == "high") %>%  # Using '==' for a single value
  ggplot() +
  aes(x = rpe_leg, y = rpe_session) +
  geom_point(colour = "#112446", size = 3, alpha = 0.7) +  # Points with slight transparency
  geom_smooth(method = "lm", se = TRUE, color = "red", linetype = "dashed") +  # Best fit line
  theme_minimal() +
  labs(
    title = "RPE Session vs RPE Leg at High Altitude",
    x = "RPE Leg",
    y = "RPE Session"
  )

`geom_smooth()` using formula = 'y ~ x'

Warning: Removed 2 rows containing non-finite outside the scale range
(`stat_smooth()`).

Warning: Removed 2 rows containing missing values or values outside the scale range
(`geom_point()`).