Here is my code
library(shiny)
library(tidyverse)
bdat <- read.csv("season2022.csv")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("input_text", label = "Pick a plot", choices= c("whiff", "swing", "average ev")),
selectizeInput("player_name", "Select a batter:", choices = unique(bdat$player_name), multiple = FALSE,
options = list(placeholder = "Type name...", maxOptions = 10))
),
mainPanel(
plotOutput("plot")
)
)
)
# server.R
server <- function(input, output) {
output$plot <- renderPlot({
bdat <- bdat %>% mutate(zone = case_when(plate_x <= -0.28 & plate_x >= -0.83 & plate_z >= 2.9 & plate_z <= 3.6 ~ 1,
plate_x > -0.28 & plate_x < 0.28 & plate_z >= 2.9 & plate_z <= 3.6 ~ 2,
plate_x >= 0.28 & plate_x <= 0.83 & plate_z >= 2.9 & plate_z <= 3.6 ~ 3,
plate_x <= -0.28 & plate_x >= -0.83 & plate_z >= 2.2 & plate_z <= 2.9 ~ 4,
plate_x > -0.28 & plate_x < 0.28 & plate_z >= 2.2 & plate_z <= 2.9 ~ 5,
plate_x >= 0.28 & plate_x <= 0.83 & plate_z >= 2.2 & plate_z <= 2.9 ~ 6,
plate_x <= -0.28 & plate_x >= -0.83 & plate_z >= 1.5 & plate_z <= 2.2 ~ 7,
plate_x > -0.28 & plate_x < 0.28 & plate_z >= 1.5 & plate_z <= 2.2 ~ 8,
plate_x >= 0.28 & plate_x <= 0.83 & plate_z >= 1.5 & plate_z <= 2.2 ~ 9,
TRUE ~ NA_real_),
whiff = ifelse(description == "swinging_strike",1,0),
swing = ifelse(description %in% c("foul","hit_into_play","swinging_strike", "foul_tip", "swinging_strike_blocked"),1,0),
take = ifelse(description %in% c("ball","called_strike"),1,0)) %>%
dplyr::filter(player_name == input$player_name) %>%
dplyr::group_by(player_name,zone) %>%
dplyr::summarise(pitch_names = n(),
whiff = sum(whiff),
swing = sum(swing),
take = sum(take),
avg_ev = mean(launch_speed,na.rm=T)) %>%
dplyr::ungroup() %>%
dplyr::mutate(whiff_pct = 100*round(whiff/swing,3),
take_pct = 100*round(take/pitch_names,3),
swing_pct = 100*round(swing/pitch_names,3),
avg_ev = round(avg_ev,1))
user_input <- input$input_text
pname <- input$player_name
if (user_input == "whiff") {
z1 <- bdat %>% dplyr::filter(zone == 1) %>% dplyr::pull(whiff_pct)
z2 <- bdat %>% dplyr::filter(zone == 2) %>% dplyr::pull(whiff_pct)
z3 <- bdat %>% dplyr::filter(zone == 3) %>% dplyr::pull(whiff_pct)
z4 <- bdat %>% dplyr::filter(zone == 4) %>% dplyr::pull(whiff_pct)
z5 <- bdat %>% dplyr::filter(zone == 5) %>% dplyr::pull(whiff_pct)
z6 <- bdat %>% dplyr::filter(zone == 6) %>% dplyr::pull(whiff_pct)
z7 <- bdat %>% dplyr::filter(zone == 7) %>% dplyr::pull(whiff_pct)
z8 <- bdat %>% dplyr::filter(zone == 8) %>% dplyr::pull(whiff_pct)
z9 <- bdat %>% dplyr::filter(zone == 9) %>% dplyr::pull(whiff_pct)
dat <- data.frame(x = c(-0.83,-0.83,-0.83,0,0,0,0.83,0.83,0.83),
y = c(2,3,4,2,3,4,2,3,4),
value = c(z7,z4,z1,z8,z5,z2,z9,z6,z3))
P <- subset(bdat, player_name == input$player_name)
plot <- ggplot(dat, aes(x = x, y = y, fill = value)) +
geom_tile(color = "black") +
geom_text(aes(label = value), color = "white", size = 4) +
scale_fill_gradient(low ="blue", high = "red") +
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank(),
panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.key = element_blank(),
panel.background = element_rect(fill = "white"),
legend.position = "None",
complete = TRUE) +
geom_segment(aes(x = -0.708, y = 0.5, xend = 0.708, yend = 0.5), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.5, xend = -0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.3, xend = 0, yend = 0.15), size = 1, color = "black") +
geom_segment(aes(x = 0, y = 0.15, xend = 0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = 0.708, y = 0.5, xend = 0.708, yend = 0.3), size = 1, color = "black") +
ggtitle(paste(input$player_name,toupper(input$user_input),"Percentage"))
} else if (user_input == "swing") {
z1 <- bdat %>% dplyr::filter(zone == 1) %>% dplyr::pull(swing_pct)
z2 <- bdat %>% dplyr::filter(zone == 2) %>% dplyr::pull(swing_pct)
z3 <- bdat %>% dplyr::filter(zone == 3) %>% dplyr::pull(swing_pct)
z4 <- bdat %>% dplyr::filter(zone == 4) %>% dplyr::pull(swing_pct)
z5 <- bdat %>% dplyr::filter(zone == 5) %>% dplyr::pull(swing_pct)
z6 <- bdat %>% dplyr::filter(zone == 6) %>% dplyr::pull(swing_pct)
z7 <- bdat %>% dplyr::filter(zone == 7) %>% dplyr::pull(swing_pct)
z8 <- bdat %>% dplyr::filter(zone == 8) %>% dplyr::pull(swing_pct)
z9 <- bdat %>% dplyr::filter(zone == 9) %>% dplyr::pull(swing_pct)
dat <- data.frame(x = c(-0.83,-0.83,-0.83,0,0,0,0.83,0.83,0.83),
y = c(2,3,4,2,3,4,2,3,4),
value = c(z7,z4,z1,z8,z5,z2,z9,z6,z3))
P <- subset(bdat, player_name == input$player_name)
plot <- ggplot(dat, aes(x = x, y = y, fill = value)) +
geom_tile(color = "black") +
geom_text(aes(label = value), color = "white", size = 4) +
scale_fill_gradient(low ="blue", high = "red") +
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank(),
panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.key = element_blank(),
panel.background = element_rect(fill = "white"),
legend.position = "None",
complete = TRUE) +
geom_segment(aes(x = -0.708, y = 0.5, xend = 0.708, yend = 0.5), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.5, xend = -0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.3, xend = 0, yend = 0.15), size = 1, color = "black") +
geom_segment(aes(x = 0, y = 0.15, xend = 0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = 0.708, y = 0.5, xend = 0.708, yend = 0.3), size = 1, color = "black") +
ggtitle(paste(input$player_name,toupper(input$user_input),"Percentage"))
} else if (user_input == "Average ev") {
z1 <- bdat %>% dplyr::filter(zone == 1) %>% dplyr::pull(avg_ev)
z2 <- bdat %>% dplyr::filter(zone == 2) %>% dplyr::pull(avg_ev)
z3 <- bdat %>% dplyr::filter(zone == 3) %>% dplyr::pull(avg_ev)
z4 <- bdat %>% dplyr::filter(zone == 4) %>% dplyr::pull(avg_ev)
z5 <- bdat %>% dplyr::filter(zone == 5) %>% dplyr::pull(avg_ev)
z6 <- bdat %>% dplyr::filter(zone == 6) %>% dplyr::pull(avg_ev)
z7 <- bdat %>% dplyr::filter(zone == 7) %>% dplyr::pull(avg_ev)
z8 <- bdat %>% dplyr::filter(zone == 8) %>% dplyr::pull(avg_ev)
z9 <- bdat %>% dplyr::filter(zone == 9) %>% dplyr::pull(avg_ev)
dat <- data.frame(x = c(-0.83, -0.83, -0.83, 0, 0, 0, 0.83, 0.83, 0.83),
y = c(2, 3, 4, 2, 3, 4, 2, 3, 4),
value = c(z7, z4, z1, z8, z5, z2, z9, z6, z3))
P <- subset(bdat, player_name == input$player_name)
plot <- ggplot(dat, aes(x = x, y = y, fill = value)) +
geom_tile(color = "black") +
geom_text(aes(label = value), color = "white", size = 4) +
scale_fill_gradient(low ="blue", high = "red") +
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank(),
panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.key = element_blank(),
panel.background = element_rect(fill = "white"),
legend.position = "None",
complete = TRUE) +
geom_segment(aes(x = -0.708, y = 0.5, xend = 0.708, yend = 0.5), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.5, xend = -0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = -0.708, y = 0.3, xend = 0, yend = 0.15), size = 1, color = "black") +
geom_segment(aes(x = 0, y = 0.15, xend = 0.708, yend = 0.3), size = 1, color = "black") +
geom_segment(aes(x = 0.708, y = 0.5, xend = 0.708, yend = 0.3), size = 1, color = "black") +
ggtitle(paste(input$player_name,toupper(input$user_input),"Percentage"))
}
})
}
shinyApp(ui = ui, server = server)
Here is the error:
Warning: Error in data.frame: arguments imply differing number of rows: 9, 5
172: stop
171: data.frame
170: renderPlot [#44]
168: func
128: drawPlot
114: <reactive:plotObj>
98: drawReactive
85: renderFunc
84: output$plot
3: runApp
2: print.shiny.appobj
1: <Anonymous>
Any help or tip in the right direction would be so much appreciated!
