uline(labels = "This is a test.", new_plot = "blank") # create a new blank plot
uline(labels = "More testing here...", y = .33, col_bg = pal_pinky[[2]]) # add to plot
# 2 basic cases:
# (a) Underline text on an existing plot:
plot(x = 0, y = 0, type = "n", xlim = c(0, 1), ylim = c(0, 1), xlab = "", ylab = "")
uline(x = 0, y = .8, labels = "Underline text (on an existing plot)") # add to plot
# (b) Underline text on a new plot:
uline(x = .02, y = .80, labels = "Underline text (on a new plot)",
new_plot = "slide") # create a new plot
# Example:
lbl_line <- c("This is neat, true, and terribly important.")
uline(labels = lbl_line, new_plot = "blank") # create a new plot
uline(labels = "(which is why we underline it).", y = .40, cex = 1.2) # add to plot
# Using x_layout and y_layout:
uline(labels = c("Ene,", "mene, miste,", "es rappelt", "in der Kiste."),
cex = 1.4, font = 2, col = Grau, col_bg = Pinky,
x = 1.2, y = .85, x_layout = "right", y_layout = "even", new_plot = "slide")
Run the code above in your browser using DataLab