Domestic Beer in the U.S. 2013 | Dollar Salessource: The Atlantic, April 201418%7%6%6%3%3%2%2%1%1%50%Bud LightCoors LightBudweiserMiller LightNatural LightBusch LightMichelob UltraBuschKeystone LightMiller High LifeOther

  1. require(magrittr)
  2. require(dplyr)
  3. require(rCharts)
  5. beerPie <- rCharts$new()
  6. beerPie$setLib("//timelyportfolio.github.io/rChartsExtra/d3pie")
  8. # source : The Atlantic April 2014 "The State of American Beer"
  9. # //www.theatlantic.com/business/archive/2014/04/the-state-of-american-beer/360583/
  10. beerData <- rbind(
  11.   c("Bud Light",5946776000),
  12.   c("Coors Light",2360430000),
  13.   c("Budweiser",2110352000),
  14.   c("Miller Light",1868866000),
  15.   c("Natural Light",1122770000),
  16.   c("Busch Light",844276000),
  17.   c("Michelob Ultra",777196700),
  18.   c("Busch",673394400),
  19.   c("Keystone Light",493993000),
  20.   c("Miller High Life",476895100),
  21.   c("Category total",23707870000)
  22. ) %>% data.frame(stringsAsFactors = F) %>%  #make data.frame
  23.   set_colnames(c("label","value")) %>%      #set our column names
  24.   mutate(value = as.numeric(value))       #make our values numeric
  26. #change total row to an other row
  27. beerData[nrow(beerData),1] <- "Other"
  28. beerData[nrow(beerData),2] <- sum(beerData[-nrow(beerData),2]) 
  31. beerPie$params$chartspec <- list(
  32.   header = list(
  33.     title = list(
  34.       text = "Domestic Beer in the U.S. 2013 | Dollar Sales"
  35.     ),
  36.     subtitle = list(
  37.       text = "source: The Atlantic, April 2014"
  38.     )
  39.   )
  40.   ,data = list(
  41.     content = beerData
  42.   )
  43.   ,labels = list(
  44.       lines = list(style = "straight")
  45.   )
  46. )
  48. beerPie