---

title: “lab4” author: “Joshua Hawk” date: “2026-02-12” output: html_document

Position	Count	Minimum	Average	Maximum
Center	4	40.8	50.85	59.9
Forward	4	50.9	54.25	59.1
Guard	4	46.6	52.90	58.0

Below is the code that will show the table for each positon of the basketball players combined with their minimum, average, and maxium field goal percentages.

# ----------------------------------------------------------
# Installing required packages
# ----------------------------------------------------------

if (!require("tidyverse"))
  install.packages("tidyverse")
if (!require("gt"))
  install.packages("gt")

library(tidyverse)
library(gt)

# ----------------------------------------------------------
# Specify made-up data for 12 players
# ----------------------------------------------------------

Player <- c(
  "Player 1","Player 2","Player 3","Player 4","Player 5","Player 6",
  "Player 7","Player 8","Player 9","Player 10","Player 11","Player 12"
)

Position <- c(
  "Guard","Center","Center","Guard","Forward","Center",
  "Forward","Guard","Center","Forward","Guard","Forward"
)

FG_Percentage <- c(
  58.0,44.9,40.8,46.6,59.1,57.8,53.9,52.8,59.9,53.1,54.2,50.9
)

basketball_players <- data.frame(Player, Position, FG_Percentage)

# ----------------------------------------------------------
# Create summary table by position
# ----------------------------------------------------------

summary_table <- basketball_players %>%
  group_by(Position) %>%
  summarise(
    Count = n(),
    Minimum = min(FG_Percentage),
    Average = mean(FG_Percentage),
    Maximum = max(FG_Percentage)
  ) %>%
  arrange(Position)

# ----------------------------------------------------------
# Display summary table using gt
# ----------------------------------------------------------

gt(summary_table) %>%
  tab_header(title = "Player stats by position") %>%
  fmt_number(
    columns = c(Minimum, Average, Maximum),
    decimals = 1
  )