examples/d3_format.R

In dreamRs/d3.format: Interface to 'd3.format' 'JavaScript' Library

x <- c(123456.789, 987654.321)
d3_format(",.2s")(x)


# Percentage
d3_format(".0%")(0.123)
d3_format(".1%")(0.123)
d3_format(".2%")(0.123)


# Fixed width
d3_format("20")(c(1, 10, 100))

# Grouped thousands with two significant digits
d3_format(",.2r")(c(4223, 8445, 24556))


# Use a locale
d3_format(",.2r", locale = "fr-FR")(c(4223, 8445, 24556))



# Use with ggplot2

library(ggplot2)

dat <- data.frame(
  x = c("format", "numeric", "values", "with ease"),
  y = c(1233172L, 1467863L, 1953877L, 1382088L)
)

ggplot(dat) +
  geom_col(aes(x, y)) +
  scale_y_continuous(labels = d3_format("$,.3~s"))