Chartist.js for R, powered by htmlwidgets. Github repo is here: https://github.com/yutannihilation/chartist

devtools::install_github("yutannihilation/chartist")

library(chartist)
set.seed(324)
data <- data.frame(
  day = paste0("day", 1:10),
  A   = runif(10, 0, 10),
  B   = runif(10, 0, 10),
  C   = runif(10, 0, 10),
  stringsAsFactors = FALSE
)

Pie() draws a pie chart. Only the first data series is used for Pie().

interp <- create_labelInterporationFnc(prefix = "Item ")
chartist(data[1:4, ], day) + Pie(labelInterpolationFnc = interp)

Donut chart.

chartist(data[1:4, ], day) + Pie(donut = TRUE, donutWidth = 100)

Limitation

By default, Chartist knows only four colours (c.f. https://github.com/gionkunz/chartist-js/issues/79) Corrently Pie() cannot work well with data whose length is more than four

chartist(data, day) + Pie()