PGA Majors Data 2019-2025

Author

Filip Kovac

Introduction to my Data

My data is from the last 7 years of PGA majors (2019-2025). The majors I am pulling data from are The Masters, PGA Championship, U.S Open, and The Open.

Loading in my Data

Loading in the data from The Masters (2019-2025).

library(tidyverse)
masters <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/kovacf_xavier_edu/IQB9eY_EvAz7S7WSK45PWItgASnCqB2Dlc4ApGE0y_F0HPE?download=1")

Creating a Filter

In this code chunk I decided to only look at The Masters tournament of 2025. I had to make a filter of 2025, and those who made the cut.

masters_2025 <- masters %>% 
  filter(year == 2025, total_score > 250)

Example Visualization

Using the filter made above, I am able to create a visualization.

masters_2025 %>% 
  ggplot(aes(x = final_score))+
  geom_histogram(bins = 10)+
  labs(title = "Distribution of the final scores of the Masters in 2025",
       x = "Score",
       y = "amount of times that score occured")

This graph shows the distribution of final scores in the 2025 masters