# NOT RUN {
#prepare the data frame
data <- data.frame(
city = c("Berlin", "Munich", "Cologne", "London", "Vienna", "Paris", "Zurich"),
Products = c(538, 250, 75, 301, 227, 100, 40),
Services = c(621, 545, 302, 44, 39, 20, 34)
)
#create svg string
barchart_normalized <- bar_chart_normalized(
data = data,
cat = data$city,
series = c("Products", "Services"))
#show the plot
barchart_normalized
# }
Run the code above in your browser using DataLab