Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
sparkbars in R Markdown
---
output: html_document
---
```{r, fig.show='hide', include=FALSE}
library(colformat)
x1 <- c("Using R Markdown and the colformats package we can put a sparkbar in
line with the text using inline R code, like this `` `r '\x60r spark_bar(x)\x60'` ``.
Here's a sparkbar showing a histogram of the number of characters
in each word in this text: `r spark_bar(x2)`. And here is a sparkbar
with the number of words per sentence: `r spark_bar(x3)`.
Pretty neat! In RStudio we do need to 'File -> Save with Encoding...'
and choose UTF-8 to ensure the bars appear correctly.")
# fn to convert values to a 0-1 range
range01 <- function(x, ...){(x - min(x, ...)) / (max(x, ...) - min(x, ...))}
x2 <- range01(hist(unname(sapply(unlist(strsplit(x1, " ")), nchar)))$counts)
x3 <- range01(sapply(strsplit(unlist(strsplit(x1, "\\. |\\? |\\! ")), " "), length))
```
Using R Markdown and the colformats package we can put a sparkbar in
line with the text using inline R code, like this `` `r '\x60r spark_bar(x)\x60'` ``.
Here's a sparkbar showing a histogram of the number of characters
in each word in this text: `r spark_bar(x2)`. And here is a sparkbar
with the number of words per sentence: `r spark_bar(x3)`.
Pretty neat! In RStudio we do need to 'File -> Save with Encoding...'
and choose UTF-8 to ensure the bars appear correctly.
```{r}
library(htmlwidgets)
library(sparkline)
x = rnorm(10)
sparkline(x, spotColor = "")
```
With the htmlwidgets & sparkline pkgs we can do authentic sparklines `r sparkline(x, spotColor = "")` in the middle of the text.
```{r, echo = TRUE}
library(colformats)
x <- seq(0, 1, length = 10)
spark_line(x)
```
Where is the sparkline? `r spark_line(x)` Should be here.
Roses are <span style="color:red">red `r spark_line(x)`...</span>
Violets are <span style="color:blue">blue `r spark_line(x)`...</span>
<mark>Little sparkline `r spark_line(x)`</mark>
<span style="background-color: #FFFF00">Where are you? `r spark_line(x)`</span>
@TysonStanley

This comment has been minimized.

Copy link

commented Jun 12, 2017

Love it!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.