Support direct labels

[grantmcdermott]

From the user perspective, operationalised via legend = "direct". Best suited for line-based and/or x-ordered data.

pkgload::load_all("~/Documents/Projects/tinyplot/")
#> ℹ Loading tinyplot
tinytheme("clean2")

aq = airquality
aq$Month = factor(month.name[aq$Month], levels = month.name[5:9])

plt(Temp ~ Day | Month, data = aq, type = "l", legend = "direct")

Margin spacing automatically adjusts based on the amount text that would otherwise be cliipped.

iris2 = iris
levels(iris2$Species) = c("A very long species name", "Medium", "Short")
plt(
  Sepal.Length ~ Petal.Length | Species, data = iris2,
  type = "lm",
  legend = "direct"
)

levels(iris2$Species) = rev(c("A very long species name", "Medium", "Short"))
plt(
  Sepal.Length ~ Petal.Length | Species, data = iris2,
  type = "lm",
  legend = "direct"
)

(Quite pleased with how this has turned out!)

[vincentarelbundock]

this is very cool!

Next step is to "repel" away from other elements? Maybe one day!