Run scoring trends: using Shiny to create dynamic charts and tables in R
[This article was first published on Bayes Ball, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Or, Retracing my steps
As I’ve been learning the functionality of Shiny, the web app for R, I have used the helpful tutorials available from the developers at RStudio. At some point, though, one needs to break out and develop one’s own application. My Shiny app “MLB run scoring trends” can be found at (https://monkmanmh.shinyapps.io/MLBrunscoring_shiny/).
Note: this app is a work in progress! If you have any thoughts on how it might be improved, please leave a comment.
All of the files associated with this app, including the code, can be found on github.com, at MonkmanMH/MLBrunscoring_shiny.
This Shiny app is a return to my earlier analysis on run scoring trends in Major League Baseball, last seen in my blog post “Major League Baseball run scoring trends with R’s Lahman package”; see the “References” tab in the Shiny app for more). This project gave me the opportunity to update the underlying data, as well as to introduce some of the coding improvements I’ve learned along the way (notably the packages
ggplot2
and dplyr
.)Some notable changes in the code:
- In the original version (starting here), I treated each league separately, starting with subsetting (now, with
dplr
, filtering) the Lahman “Teams” table on thelgID
variable into two separate data frames which were then used to separately generate the two charts. Now, withggplot2
, I have used the faceting to plot the two leagues, and given the reader the option of making that split or not. This is both more flexible from the reader’s point of view, and more efficient code. - In my original approach, the trend lines were generated using the
loess
function, embedded in a discrete object, and then added to the plot as a separately plottedline
. By usingggplot2
, a LOESS trendline can be quickly added to the plot call with thestat_smooth()
option, a much more efficient approach. - The
stat_smooth()
makes it possible to adjust the degree of smoothing of the tend line through changes to thespan
specification. Originally this was hard-coded, but is now dynamic, controlled in the Shiny app through a slider widget. - The
stat_smooth()
also includes the option of showing a confidence interval. This is achieved through thelevel
specification. For this, I used a set of radio buttons in the Shiny user interface. (I had initially tried a slider, but was not able to specify a set of pre-defined points for the confidence intervals.) - The start and end dates of the league plots are also user-controlled through a slider widget. You will notice that the date in the chart title changes along with the range of the plot.
- Radio buttons return factors, even if they look numeric in the ui.r code. In order to get the values that are input by the user to work in the
stat_smooth()
, I wrapped them inas.numeric()
. - I already knew that I was struggling to keep up with the changes in the R coding environment, but this exercise opened my eyes to even more potential opportunities. The latest version of Shiny (0.10.2.2 as of 2015-01-06) has added a lot of new functionality, but I hadn’t realized the degree of integration with other visualization tools. This recent blog entry, “Goodbye static graphs, hello shiny, ggvis, rmarkdown” by Simon Jackman, gives some hints as to where an integrated analytic & reporting environment might go. Exciting stuff, indeed.
-30-
To leave a comment for the author, please follow the link and comment on their blog: Bayes Ball.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.