# NOT RUN {
#preparing data frames
data <- data.frame(
city = c("Berlin", "Paris", "London", "Munich", "Vienna"),
AC = c(592, 1166, 618, 795, 538),
PL = c(570, 950, 800, 780, 460),
triangles = c(545, 800, 900, 600, 538) #AC toten bardziej na wierzchu
)
#preparing the styles data frame
df_styles <- data.frame(
AC = c("actual","actual","actual","actual","actual"),
PL = c("plan","plan","plan","plan","plan"),
triangles = c("previous", "previous","previous","previous","previous"))
#creating the svg string
barchart_grouped <- bar_chart_grouped(data,
data$city, "AC", "PL","triangles", c("triangles", "AC", "PL"), df_styles)
#showing the plot
barchart_grouped
# }
Run the code above in your browser using DataLab