library(mschart)
library(officer)
chart_01 <- ms_linechart(
data = us_indus_prod,
x = "date", y = "value",
group = "type")
chart_01 <- chart_ax_y(x = chart_01, limit_min = 0, limit_max = 150)
chart_01 <- chart_ax_x(
x = chart_01, num_fmt = "[$-fr-FR]mmm yyyy",
limit_min = min(us_indus_prod$date),
limit_max = as.Date("1992-01-01"))
chart_01 <- chart_theme(chart_01,
grid_major_line_x = fp_border(width = 0),
grid_minor_line_x = fp_border(width = 0)
)
Run the code above in your browser using DataLab