Skip to content

Instantly share code, notes, and snippets.

@stillmatic
Created March 28, 2017 18:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save stillmatic/1b1a7057194c97c2a26e3136c16a1df1 to your computer and use it in GitHub Desktop.
Save stillmatic/1b1a7057194c97c2a26e3136c16a1df1 to your computer and use it in GitHub Desktop.
``` r
library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 3.3.2
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
scores <- dplyr::data_frame(
date = 1:12,
score = runif(12))
scores %>%
ggplot(aes(x = date, y = 1, fill = -score)) + geom_bar(stat = "identity")
```
![](http://i.imgur.com/a5Tq83z.png)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment