sales <- data.frame(quarter = c("Q1", "Q2"), revenue = c(10, 25))
chart <- xl_chart("column",
xl_chart_series(values = list(sheet = "Data",
cols = "revenue")))
write_xlsx(list(Data = sales, Overview = xl_chartsheet(chart)),
tempfile(fileext = ".xlsx"))
Run the code above in your browser using DataLab