cyanophyta
02/09/2017
library(ggplot2, warn.conflicts = FALSE, quietly = TRUE)
data("faithfuld")
dim(faithfuld)## [1] 5625 3
str(faithfuld)## Classes 'tbl_df', 'tbl' and 'data.frame': 5625 obs. of 3 variables:
## $ eruptions: num 1.6 1.65 1.69 1.74 1.79 ...
## $ waiting : num 43 43 43 43 43 43 43 43 43 43 ...
## $ density : num 0.00322 0.00384 0.00444 0.00498 0.00542 ...
Using this app, user can
summat <- as.matrix(summary(faithfuld$waiting))
rownames(summat) <- c("Minimum", "1st quartile", "Median", "Mean", "3rd quartile", "Maximum")
colnames(summat) <- "Summary"
summat## Summary
## Minimum 43.00000
## 1st quartile 55.89189
## Median 69.50000
## Mean 69.50000
## 3rd quartile 83.10811
## Maximum 96.00000
User selects one of the variables of the dataset in the Shiny app. Based on this selection, and type of graph/color, one of the available graph is displayed by the app.