# Plot to illustrate the difference in vertical alignment
library(grid)
grid.newpage()
grid.draw(
marquee_grob(
c("### Textbox justification (default)",
"### Bounding box justification (using `ink()`)"),
x = 0.5,
y = c(0.95, 0.45),
hjust = 0.5,
width = NA
)
)
# Standard justification
grid.draw(
marquee_grob(
"mean",
x = 0.5,
y = 0.75,
hjust = "right",
vjust = 0.5,
width = NA
)
)
grid.draw(
marquee_grob(
"median",
x = 0.5,
y = 0.75,
hjust = "left",
vjust = 0.5,
width = NA
)
)
# Justification using `ink()`
grid.draw(
marquee_grob(
"mean",
x = 0.5,
y = 0.25,
hjust = "right",
vjust = ink(0.5),
width = NA
)
)
grid.draw(
marquee_grob(
"median",
x = 0.5,
y = 0.25,
hjust = "left",
vjust = ink(0.5),
width = NA
)
)
Run the code above in your browser using DataLab