A few days ago there was an interesting R based article by diffuseprior on the decline and fall in the quality of The Simpsons
The author scraped results from GEOS, an online survey of TV programs, and applied the R package changepoint to offer an analysis of the show over time
This seemed a candidate for a Shiny App, as there are another gross of shows on GEOS. 24 follows a similar pattern to ‘The Simpsons’ although this well-defined decline is by no means universal
. Although using this app multiplies the quantity of charts available, its automation precludes some of the difficult-to-accomplish, data munging done in the original post e.g excluding specials. This will cause some distortion
I have adapted diffuseprior’s code in a few respects
- I used the the readHTMLTable from the XML package as the data is contained in a tabular form
- I used ggplot for the graph rather than base plot. This took a bit more work but enabled me to display visually the relative number of voters for each episode of a show
- It is now available as a Shiny App , covering 145 shows, with any new GEOS votes incorporated in real-time
The code is available as a gist 5498431
Ooops…but shinyIncubator is not available to R 3.0.0.?
Actually not sure it needs shinyIncubator . I carried it over by default from another app. I have removed
from script now. Can you check you can access the page now/
This is VERY (very!) cool.
Ideas for improvement: having the ylim fixed (from 0 to 10), add error bars to each dot.
Cheers,
Tal
Thank Tal
It’s always a toss-up between showing the full scale and not wasting space. I think if I was comparing shows I would probably have followed your suggestion
Also I would have been more rigorous on analysis inc showing variance if it was other than a fun App
I have now added a checkbox so that you can now switch scales
That is great! Thanks for posting the gist.
Thanks Matt
One of the rare occasions when I have the discipline to present it relatively cleanly!