# NOT RUN {
library(rAmCharts4)
dat <- data.frame(
year = c("2004", "2005", "2006"),
europe = c(10, 15, 20),
asia = c( 9, 10, 13),
africa = c( 5, 6, 8),
meast = c( 7, 8, 12),
namerica = c(12, 15, 19),
samerica = c(10, 16, 14)
)
dat2 <- data.frame(
year = c("2004", "2005", "2006"),
europe = c( 7, 12, 16),
asia = c( 8, 13, 10),
africa = c( 7, 7, 10),
meast = c( 8, 6, 14),
namerica = c(10, 17, 17),
samerica = c(12, 18, 17)
)
stacks <- list(
c("europe", "namerica"),
c("asia", "africa", "meast", "samerica")
)
seriesNames <- list(
europe = "Europe",
namerica = "North America",
asia = "Asia",
africa = "Africa",
meast = "Middle East",
samerica = "South America"
)
amStackedBarChart(
dat,
data2 = dat2,
category = "year",
stacks = stacks,
seriesNames = seriesNames,
yLimits = c(0, 60),
chartTitle = amText(
"Stacked bar chart",
fontFamily = "Trebuchet MS",
fontSize = 30,
fontWeight = "bold"
),
xAxis = "Year",
yAxis = "A quantity...",
theme = "kelly",
button = amButton("Update", position = 1),
height = 450
)
# }
Run the code above in your browser using DataLab