1,000 gold medals in the Summer Olympics of team USA:
https://www.washingtonpost.com/graphics/sports/olympics/the-1000-medals-of-the-united-states/
Gapminder world poster:
https://www.gapminder.org/tools/#_chart-type=bubbles
Visual proof of why vaccines do more good than harm:
http://www.sciencemag.org/news/2017/04/here-s-visual-proof-why-vaccines-do-more-good-harm
| Package | Description |
|---|---|
| ggvis | interactive plots from the maker of ggplot2 |
| plotly | convert ggplot2 figures to interactive plots easily |
| googleVis | use Google Chart Tools from R |
| highcharter | R interface for highcharts, a javascript charting library |
| crosstalk | extends htmlwidgets with a set of classes, functions, and conventions for implementing cross-widget interactions |
dat1<-(read_csv("stock_price.csv")
%>% select(c(Company,Date,Close,Volume)))## Parsed with column specification:
## cols(
## Company = col_character(),
## Date = col_date(format = ""),
## Open = col_double(),
## High = col_double(),
## Low = col_double(),
## Close = col_double(),
## Volume = col_integer(),
## Dividend = col_double(),
## Split = col_integer(),
## Adj_Open = col_double(),
## Adj_High = col_double(),
## Adj_Low = col_double(),
## Adj_Close = col_double(),
## Adj_Volume = col_integer()
## )head(dat1)## # A tibble: 6 x 4
## Company Date Close Volume
## <chr> <date> <dbl> <int>
## 1 GoldmanSachs 2017-12-31 255 2519253
## 2 GoldmanSachs 2017-11-30 248 6362854
## 3 GoldmanSachs 2017-10-31 242 2658731
## 4 GoldmanSachs 2017-09-30 237 1902308
## 5 GoldmanSachs 2017-08-31 224 2240611
## 6 GoldmanSachs 2017-07-31 225 1999637gg1<-(ggplot(dat1,aes(x=Date,y=Close,colour=Company))+
geom_line()
)
ggp1<-ggplotly(gg1)
ggp1