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
library(tidyr)
library(highcharter)
## Highcharts (www.highcharts.com) is a Highsoft software product which is
## not free for commercial and Governmental use
# example 1 ---------------------------------------------------------------
data(citytemp)
citytemp$int <- seq_len(12L)

citytemp2 <- citytemp %>% 
  select(-new_york, -london) %>% 
  gather(city, temp, berlin, tokyo)

highchart() %>% 
  hc_xAxis(categories = citytemp$int) %>% 
  hc_add_series(name = "Berlin", data = citytemp$berlin) %>% 
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) 
highchart() %>% 
  hc_xAxis(categories = citytemp$int) %>%
  hc_add_series(citytemp2, "line",  hcaes(x = int, y = temp, group = city)) 
highchart() %>% 
  hc_xAxis(categories = citytemp$int) %>%
  hc_add_series(citytemp2, "line",  hcaes(x = as.character(int), y = temp, group = city)) 
hchart(citytemp2, "line",  hcaes(x = as.character(int), y = temp, group = city))
hchart(citytemp2, "line",  hcaes(x = as.integer(int), y = temp, group = city))
# example 2 ---------------------------------------------------------------
year <- seq.int(from = 1750, to = 2050, by = 50)
Asia <- c(502, 635, 809, 947, 1402, 3634, 5268)
Africa <-  c(106, 107, 111, 133, 221, 767, 1766)
Europe <-  c(163, 203, 276, 408, 547, 729, 628) 
America <-  c(18, 31, 54, 156, 339, 818, 1201) 
Oceania <-  c(2, 2, 2, 6, 13, 30, 46)
df_area <- data.frame(year,Asia,Africa,Europe,America,Oceania) %>% gather(continent, pop, -year) 

hchart(df_area, "area", hcaes(x = year, y = pop, group = continent)) 
highchart() %>% 
  hc_add_series(df_area, "area", hcaes(x = year, y = pop, group = continent)) 
hchart(df_area, "area",
       hcaes(x = year, y = pop, group = continent)) %>% 
  hc_plotOptions(area = list(marker = list(enabled = FALSE)))
highchart() %>% 
  hc_add_series(df_area, "area", 
                hcaes(x = year, y = pop, group = continent)) %>% 
  hc_plotOptions(area = list(marker = list(enabled = FALSE)))
# session -----------------------------------------------------------------
devtools::session_info()
## Session info --------------------------------------------------------------
##  setting  value                       
##  version  R version 3.3.3 (2017-03-06)
##  system   x86_64, mingw32             
##  ui       RTerm                       
##  language (EN)                        
##  collate  Spanish_Chile.1252          
##  tz       America/Santiago            
##  date     2017-04-28
## Packages ------------------------------------------------------------------
##  package     * version    date       source                              
##  assertthat    0.2.0      2017-04-11 CRAN (R 3.3.3)                      
##  backports     1.0.5      2017-01-18 CRAN (R 3.3.2)                      
##  bindr         0.1        2016-11-13 CRAN (R 3.3.2)                      
##  bindrcpp    * 0.1        2016-12-11 CRAN (R 3.3.2)                      
##  broom         0.4.2      2017-02-13 CRAN (R 3.3.2)                      
##  data.table    1.10.4     2017-02-01 CRAN (R 3.3.2)                      
##  DBI           0.6        2017-03-09 CRAN (R 3.3.3)                      
##  devtools      1.12.0     2016-06-24 CRAN (R 3.3.3)                      
##  digest        0.6.12     2017-01-27 CRAN (R 3.3.3)                      
##  dplyr       * 0.5.0.9000 2017-03-14 Github (hadley/dplyr@63d4a9f)       
##  evaluate      0.10       2016-10-11 CRAN (R 3.3.2)                      
##  foreign       0.8-67     2016-09-13 CRAN (R 3.3.3)                      
##  highcharter * 0.5.0.9999 2017-04-28 Github (jbkunst/highcharter@22f0d5b)
##  htmltools     0.3.5      2016-03-21 CRAN (R 3.3.3)                      
##  htmlwidgets   0.8        2016-11-09 CRAN (R 3.3.2)                      
##  igraph        1.0.1      2015-06-26 CRAN (R 3.3.0)                      
##  jsonlite      1.4        2017-04-08 CRAN (R 3.3.3)                      
##  knitr         1.15.1     2016-11-22 CRAN (R 3.3.3)                      
##  lattice       0.20-34    2016-09-06 CRAN (R 3.3.3)                      
##  lazyeval      0.2.0      2016-06-12 CRAN (R 3.3.3)                      
##  lubridate     1.6.0      2016-09-13 CRAN (R 3.3.3)                      
##  magrittr      1.5        2014-11-22 CRAN (R 3.3.3)                      
##  memoise       1.0.0      2016-01-29 CRAN (R 3.3.3)                      
##  mnormt        1.5-5      2016-10-15 CRAN (R 3.3.2)                      
##  nlme          3.1-131    2017-02-06 CRAN (R 3.3.3)                      
##  plyr          1.8.4      2016-06-08 CRAN (R 3.3.3)                      
##  psych         1.6.12     2017-01-08 CRAN (R 3.3.2)                      
##  purrr         0.2.2      2016-06-18 CRAN (R 3.3.3)                      
##  quantmod      0.4-8      2017-04-19 CRAN (R 3.3.3)                      
##  R6            2.2.0      2016-10-05 CRAN (R 3.3.3)                      
##  Rcpp          0.12.10    2017-03-19 CRAN (R 3.3.3)                      
##  reshape2      1.4.2      2016-10-22 CRAN (R 3.3.3)                      
##  rlist         0.4.6.1    2016-04-04 CRAN (R 3.3.3)                      
##  rmarkdown     1.4        2017-03-24 CRAN (R 3.3.3)                      
##  rprojroot     1.2        2017-04-03 Github (krlmlr/rprojroot@6d1069c)   
##  stringi       1.1.5      2017-04-07 CRAN (R 3.3.3)                      
##  stringr       1.2.0      2017-02-18 CRAN (R 3.3.3)                      
##  tibble        1.3.0      2017-04-01 CRAN (R 3.3.3)                      
##  tidyr       * 0.6.1      2017-01-10 CRAN (R 3.3.2)                      
##  TTR           0.23-1     2016-03-21 CRAN (R 3.3.3)                      
##  withr         1.0.2      2016-06-20 CRAN (R 3.3.3)                      
##  xts           0.9-7      2014-01-02 CRAN (R 3.3.3)                      
##  yaml          2.1.14     2016-11-12 CRAN (R 3.3.2)                      
##  zoo           1.8-0      2017-04-12 CRAN (R 3.3.3)