# NOT RUN {
#read SVG file
fpath <- system.file("extdata", "fig3.svg", package="svgtools")
svg <- read_svg(file = fpath)
#adjust some elements of SVG
svg <- stackedBar(svg = svg, frame_name = "frame", group_name = "overall",
scale_real = c(0,160), values = c(10,42,106),
alignment = "vertical")
# }
# NOT RUN {
#write SVG file to disk and remove all groupings
write_svg(svg = svg, file = "myChart.svg", flatten = TRUE)
# }
Run the code above in your browser using DataLab