View source: R/amHorizontalBarChart.R
amHorizontalBarChart | R Documentation |
Create a HTML widget displaying a horizontal bar chart.
amHorizontalBarChart( data, data2 = NULL, category, values, valueNames = NULL, showValues = TRUE, vline = NULL, xLimits = NULL, expandX = 5, valueFormatter = "#.", chartTitle = NULL, theme = NULL, animated = TRUE, draggable = FALSE, tooltip = NULL, columnStyle = NULL, threeD = FALSE, bullets = NULL, alwaysShowBullets = FALSE, backgroundColor = NULL, cellWidth = NULL, columnWidth = NULL, xAxis = NULL, yAxis = NULL, scrollbarX = FALSE, scrollbarY = FALSE, legend = NULL, caption = NULL, image = NULL, button = NULL, cursor = FALSE, width = NULL, height = NULL, export = FALSE, chartId = NULL, elementId = NULL )
data |
a dataframe |
data2 |
|
category |
name of the column of |
values |
name(s) of the column(s) of |
valueNames |
names of the values variables, to appear in the legend;
|
showValues |
logical, whether to display the values on the chart |
vline |
an optional vertical line to add to the chart; it must be a
named list of the form |
xLimits |
range of the x-axis, a vector of two values specifying the
left and the right limits of the x-axis; |
expandX |
if |
valueFormatter |
a
number formatting string;
it is used to format the values displayed on the chart if
|
chartTitle |
chart title, it can be |
theme |
theme, |
animated |
Boolean, whether to animate the rendering of the graphic |
draggable |
|
tooltip |
settings of the tooltips; |
columnStyle |
settings of the columns; |
threeD |
logical, whether to render the columns in 3D |
bullets |
settings of the bullets; |
alwaysShowBullets |
logical, whether to always show the bullets;
if |
backgroundColor |
a color for the chart background; a color can be
given by the name of a R color, the name of a CSS
color, e.g. |
cellWidth |
cell width in percent; for a simple bar chart, this is the
width of the columns; for a grouped bar chart, this is the width of the
clusters of columns; |
columnWidth |
column width, a percentage of the cell width; set to 100
for a simple bar chart and use |
xAxis |
settings of the value axis given as a list, or just a string
for the axis title; the list of settings has five possible fields:
a field |
yAxis |
settings of the category axis given as a list, or just a string
for the axis title; the list of settings has three possible fields:
a field |
scrollbarX |
logical, whether to add a scrollbar for the value axis |
scrollbarY |
logical, whether to add a scrollbar for the category axis |
legend |
|
caption |
|
image |
option to include an image at a corner of the chart;
|
button |
|
cursor |
option to add a cursor on the chart; |
width |
the width of the chart, e.g. |
height |
the height of the chart, e.g. |
export |
logical, whether to enable the export menu |
chartId |
a HTML id for the chart |
elementId |
a HTML id for the container of the chart; ignored if the chart is displayed in Shiny, in which case the id is given by the Shiny id |
# a simple horizontal bar chart #### dat <- data.frame( country = c("USA", "China", "Japan", "Germany", "UK", "France"), visits = c(3025, 1882, 1809, 1322, 1122, 1114) ) amHorizontalBarChart( data = dat, data2 = dat, width = "600px", height = "550px", category = "country", values = "visits", draggable = TRUE, tooltip = "[font-style:italic #ffff00]{valueX}[/]", chartTitle = amText(text = "Visits per country", fontSize = 22, color = "orangered"), xAxis = list( title = amText(text = "Country", color = "maroon"), gridLines = amLine(opacity = 0.4, width = 1, dash = "3,1") ), yAxis = list(title = amText(text = "Visits", color = "maroon")), xLimits = c(0, 4000), valueFormatter = "#,###", caption = amText(text = "Year 2018", color = "red"), theme = "moonrisekingdom") # a grouped horizontal bar chart #### set.seed(666) dat <- data.frame( country = c("USA", "China", "Japan", "Germany", "UK", "France"), visits = c(3025, 1882, 1809, 1322, 1122, 1114), income = rpois(6, 25), expenses = rpois(6, 20) ) amHorizontalBarChart( data = dat, width = "700px", category = "country", values = c("income", "expenses"), valueNames = list(income = "Income", expenses = "Expenses"), tooltip = amTooltip( text = "[bold]{name}:\n{valueX}[/]", textColor = "white", backgroundColor = "#101010", borderColor = "silver" ), draggable = list(income = TRUE, expenses = FALSE), backgroundColor = "#30303d", columnStyle = list( income = amColumn( color = "darkmagenta", strokeColor = "#cccccc", strokeWidth = 2 ), expenses = amColumn( color = "darkred", strokeColor = "#cccccc", strokeWidth = 2 ) ), chartTitle = amText(text = "Income and expenses per country"), yAxis = list(title = amText(text = "Country")), xAxis = list( title = amText(text = "Income and expenses"), gridLines = amLine(color = "whitesmoke", width = 1, opacity = 0.4) ), xLimits = c(0, 41), valueFormatter = "#.#", caption = amText(text = "Year 2018"), theme = "dark")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.