View source: R/amDumbbellChart.R
amDumbbellChart | R Documentation |
Create a HTML widget displaying a Dumbbell chart.
amDumbbellChart( data, data2 = NULL, category, values, seriesNames = NULL, hline = NULL, yLimits = NULL, expandY = 5, valueFormatter = "#.", chartTitle = NULL, theme = NULL, animated = TRUE, draggable = FALSE, tooltip = NULL, segmentsStyle = NULL, bullets = NULL, backgroundColor = 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 |
a character matrix with two columns; each row corresponds to
a series and provides the names of two columns of |
seriesNames |
a character vector providing the names of the series
to appear in the legend; its length must equal the number of rows of the
|
hline |
an optional horizontal line to add to the chart; it must be a
named list of the form |
yLimits |
range of the y-axis, a vector of two values specifying
the lower and the upper limits of the y-axis; |
expandY |
if |
valueFormatter |
a
number formatting string;
it is used to format the values displayed in the cursor tooltips,
the labels of the y-axis unless you specify
your own formatter in the |
chartTitle |
chart title, it can be |
theme |
theme, |
animated |
Boolean, whether to animate the rendering of the graphic |
draggable |
|
tooltip |
settings of the tooltips; |
segmentsStyle |
settings of the segments; |
bullets |
settings of the bullets; |
backgroundColor |
a color for the chart background; it can be
given by the name of a R color, the name of a CSS color, e.g.
|
xAxis |
settings of the category axis given as a list, or just a string
for the axis title; the list of settings has four possible fields:
a field |
yAxis |
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 |
scrollbarX |
logical, whether to add a scrollbar for the category axis |
scrollbarY |
logical, whether to add a scrollbar for the value axis |
legend |
either a logical value, whether to display the legend, or
a list of settings for the legend created with |
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 |
dat <- data.frame( x = c("T0", "T1", "T2"), y1 = c(7, 15, 10), y2 = c(20, 25, 23), z1 = c(5, 10, 5), z2 = c(25, 20, 15) ) amDumbbellChart( width = "500px", data = dat, draggable = TRUE, category = "x", values = rbind(c("y1","y2"), c("z1","z2")), seriesNames = c("Control", "Treatment"), yLimits = c(0, 30), segmentsStyle = list( "Control" = amSegment(width = 2), "Treatment" = amSegment(width = 2) ), bullets = list( y1 = amTriangle(strokeWidth = 0), y2 = amTriangle(rotation = 180, strokeWidth = 0), z1 = amTriangle(strokeWidth = 0), z2 = amTriangle(rotation = 180, strokeWidth = 0) ), tooltip = amTooltip("upper: {openValueY}\nlower: {valueY}", scale = 0.75), xAxis = list( title = amText( "timepoint", fontSize = 17, fontWeight = "bold", fontFamily = "Helvetica" ) ), yAxis = list( title = amText( "response", fontSize = 17, fontWeight = "bold", fontFamily = "Helvetica" ), gridLines = amLine("silver", width = 1, opacity = 0.4) ), legend = amLegend(position = "right", itemsWidth = 15, itemsHeight = 15), backgroundColor = "lightyellow", theme = "dataviz" )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.