highchart() %>%
  hc_chart(type=list('bar')) %>%
  hc_xAxis(list(categories=c('Apples', 'Oranges', 'Pears', 'Grapes', 'Bananas'))) %>%
  hc_plotOptions(bar=list(stacking = 'normal')) %>%
  hc_series(
    list(
      name =  'John and Joe',
      data = c(5, 3, 4, 7, 2),
      stack = 'Male'
    ),
    list(
      linkedTo ='Previous',
      name = "Joe",
      data =c(2, 5, 6, 2, 1),
      stack = 'Male'
      ),
      list(
        name =  'Jane and Janet',
        data = c(2, 5, 6, 2, 1),
        stack = 'Female'
      ),
      list(
        linkedTo ='Previous',
        name = "Janet",
        data =c(3, 0, 4, 4, 3),
        stack = 'Female'
      ))