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.