Hi, so I have code written that shows how often a pitch is different than the previous pitch. Now, I am curious to see when the pitch is "FF", how often the next pitch is different. Is there an easy way to do this with my already written code? Thank you.
p <- data.frame(stringsAsFactors=FALSE,
pitcher_name = c("Jacob deGrom", "Jacob deGrom", "Jacob deGrom",
"Jacob deGrom", "Jacob deGrom", "Jacob deGrom",
"Jacob deGrom", "Jacob deGrom", "Jacob deGrom", "Jacob deGrom",
"Jacob deGrom", "Jacob deGrom", "Jacob deGrom", "Jacob deGrom",
"Jacob deGrom", "Jacob deGrom", "Jacob deGrom", "Jacob deGrom",
"Jacob deGrom", "Jacob deGrom"),
pitch_type = c("FF", "FF", "FF", "FF", "FF", "FF", "CH", "FF", "SL", "SL",
"FF", "FF", "FF", "SL", "SL", "FF", "FF", "SL", "FF",
"FF")
)
p <- fridaypitchers%>%
select(pitcher_name, pitch_type, gameday_link)%>%
group_by(pitcher_name)%>%
mutate(diff_pitch = pitch_type != lag(pitch_type))%>%
print()
p%>%
summarize(diff_pitch_pct = mean(diff_pitch, na.rm = TRUE))%>%
arrange(desc(diff_pitch_pct))->Q