My First Vignette

Andrew Ryan’s Speech

Andrew Ryan is a character from a video game titled BioShock. He believed that people should not be limited by societal norms and thus created a city for people that were restricted by these norms. This is one of his speeches:

I am Andrew Ryan, and I’m here to ask you a question. Is a man not entitled to the sweat of his brow? ‘No!’ says the man in Washington, ‘It belongs to the poor.’ ‘No!’ says the man in the Vatican, ‘It belongs to God.’ ‘No!’ says the man in Moscow, ‘It belongs to everyone.’ I rejected those answers; instead, I chose something different. I chose the impossible. I chose… Rapture. A city where the artist would not fear the censor. Where the scientist would not be bound by petty morality. Where the great would not be constrained by the small! And with the sweat of your brow, Rapture can become your city as well.

Figures

Here, we have three different types of figures.

• One is basic non-interactive graph created using R.

dat1 <- iris
plot(iris$Sepal.Length, 
     iris$Petal.Length, 
     xlab="Sepal Length",
     ylab = "Petal Length",
     col=c("#7aa457"))

• The second graph is an interactive network graph that requires loading of packages: library(plotly) and library(networkD3)

library(plotly)
#> Loading required package: ggplot2
#> 
#> Attaching package: 'plotly'
#> The following object is masked from 'package:ggplot2':
#> 
#>     last_plot
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:graphics':
#> 
#>     layout
library(networkD3)
src <- c("A", "A", "A", "A",
        "B", "B", "C", "C", "D")
target <- c("B", "C", "D", "J",
            "E", "F", "G", "H", "I")
networkData <- data.frame(src, target)
simpleNetwork(networkData)

• The last type of data visualization is a map.

Here is the map

More Examples

You can write math expressions, like Einstein’s \[E = mc^{2}\].

Also we can use a quote using >:

“If you’re going through hell, keep going.” - Winston Churchill (via),

and tables, e.g. using knitr::kable().