label_dollar | R Documentation |
Format numbers as currency, rounding values to dollars or cents using a convenient heuristic.
label_dollar( accuracy = NULL, scale = 1, prefix = "$", suffix = "", big.mark = ",", decimal.mark = ".", trim = TRUE, largest_with_cents = 1e+05, negative_parens = deprecated(), ... )
accuracy, largest_with_cents |
Number to round to. If |
scale |
A scaling factor: |
prefix, suffix |
Symbols to display before and after value. |
big.mark |
Character used between every 3 digits to separate thousands. |
decimal.mark |
The character to be used to indicate the numeric decimal point. |
trim |
Logical, if |
negative_parens |
|
... |
Other arguments passed on to |
All label_()
functions return a "labelling" function, i.e. a function that
takes a vector x
and returns a character vector of length(x)
giving a
label for each input value.
Labelling functions are designed to be used with the labels
argument of
ggplot2 scales. The examples demonstrate their use with x scales, but
they work similarly for all scales, including those that generate legends
rather than axes.
Other labels for continuous scales:
label_bytes()
,
label_number_auto()
,
label_number_si()
,
label_ordinal()
,
label_parse()
,
label_percent()
,
label_pvalue()
,
label_scientific()
demo_continuous(c(0, 1), labels = label_dollar()) demo_continuous(c(1, 100), labels = label_dollar()) # Customise currency display with prefix and suffix demo_continuous(c(1, 100), labels = label_dollar(prefix = "USD ")) euro <- label_dollar( prefix = "", suffix = "\u20ac", big.mark = ".", decimal.mark = "," ) demo_continuous(c(1000, 1100), labels = euro) # Use negative_parens = TRUE for finance style display demo_continuous(c(-100, 100), labels = label_dollar(style_negative = "parens")) # Use scale_cut to use K/M/B where appropriate demo_log10(c(1, 1e16), breaks = log_breaks(7, 1e3), labels = label_dollar(scale_cut = cut_short_scale()) ) # cut_short_scale() uses B = one thousand million # cut_long_scale() uses B = one million million demo_log10(c(1, 1e16), breaks = log_breaks(7, 1e3), labels = label_dollar(scale_cut = cut_long_scale()) ) # You can also define your own breaks gbp <- label_dollar( prefix = "\u00a3", scale_cut = c(0, k = 1e3, m = 1e6, bn = 1e9, tn = 1e12) ) demo_log10(c(1, 1e12), breaks = log_breaks(5, 1e3), labels = gbp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.