agelengthdemo.R

library(highcharter)

## Warning: package 'highcharter' was built under R version 3.2.5

## Highcharts (www.highcharts.com) is a

## Highsoft software product which is

## not free for commercial and Governmental use

setwd("C:/Users/Costco/Documents/Dropbox/gmfmc/april 2017/highcharter")
ag <- read.csv("AgeLength.csv") ##these are the data I downloaded from the plot in the app. 
colnames(ag) <- c("age", "length")
ag$length <- round(ag$length,0)

ag2 <- list_parse2(ag)
hc <- highchart() %>% 
  hc_add_series(name= "Red Drum", data=ag2) %>% 
  hc_tooltip(crosshairs = TRUE,backgroundColor = "#D3D3D3", pointFormat = "<b>Species: </b>  <b>{series.name} <br> Age = {point.x}, Length = {point.y}",
             headerFormat = "", borderWidth=3)
hc