In jr-packages/jrAutomate: R Automate Exercises

library(flexdashboard)
library(jrAutomate)
library("ggplot2movies")
library(ggplot2)
library(flexdashboard)
data(movies, package="ggplot2movies")
movies = movies[!is.na(movies$budget) & movies$budget > 0,]
top_movies = movies[order(-movies$rating), c("title", "year", "budget", "rating"), ]
colnames(top_movies)  = c("Title", "Year", "Budget", "Rating")
an = movies[movies$Animation==1,]

theme_set(theme_bw())

Standard text can be added at the top of page if you want. You can include sections and bullet points. As well as

• Equations
• Static pictures
• links

To add text within a pane, use the block quote >

Tables

Column {.tabset .tabset-fade}

Top 10 movies (static)

knitr::kable(top_movies[1:10,], row.names = FALSE)

Top 10 movies (dynamic)

DT::datatable(top_movies, rownames = FALSE)

Base graphics

Animation movies: Rating vs Length

setnicepar()
plot(an$rating, an$length, ylab="Length", xlab="Rating", 
      pch=21, bg="steelblue", ylim=c(0, 140), xlim=c(1, 10))
grid()

Animation movies: Length

setnicepar()
hist(an$length, breaks="fd", col="steelblue", xlab="Movie Length", 
     main="Histogram of movie length")

htmlwidget and value boxes

Column 1 {data-width=200}

Length vs rating

This example makes use of the plotly and ggplot2. There is also a valuebox showing the number of terrible movies.

library(plotly)
g = ggplot(movies, aes(length, rating)) + 
  geom_point(size=0.5, aes(text=paste("Film: ", title))) + 
  xlab("Length") + ylab("Rating") + 
  ylim(c(1, 10)) 
ggplotly(g)

Value boxes

valueBox(sum(movies$rating <2), icon = "ion-videocamera", caption="Movies Rated less than 2", 
         color="red")

Column 2 {data-width=300}

Movie ratings over number

This example makes use of the dygraphs R package. The dygraphs package provides rich facilities for charting time-series data in R.

library(dygraphs)
years = movies[movies$year > 1929,]
rat_by_year = tapply(years$rating, years$year, mean)

x = ts(as.vector(rat_by_year), start=1930)
y = cbind(Rating=x)
dygraph(y, main = "Ratings over the years", 
        ylab = "Ratings", group="Ratings") %>% 
  dyRangeSelector() %>%
   dyOptions(stepPlot = TRUE) %>%
  dySeries("V1", label = "Rating")

Number of movies made

library(dygraphs)
years = movies[movies$year > 1929,]
num_by_year = tapply(years$rating, years$year, sum)
x = ts(as.vector(num_by_year), start=1930)
y = cbind(Rating=x)
dygraph(y, main = "Number of movies over the years", 
        ylab = "No. of movies",group="Ratings") %>% 
  dyRangeSelector() %>%
   dyOptions(stepPlot = TRUE) %>%
  dySeries("V1", label = "No. of Movies made")

jr-packages/jrAutomate documentation built on Dec. 14, 2019, 6:35 p.m.