geom_dl: geom dl

In directlabels: Direct labels for multicolor plots in lattice or ggplot2

Description

Geom that will plot direct labels.

Usage

geom_dl(mapping = NULL, method, ..., show_guide = FALSE)

Arguments

mapping	aes(label=variable_that_will_be_used_as_groups_in_Positioning_Methods).
method	Positioning Method.
...	passed to GeomDirectLabel$new. ie stat= position= debug=
show_guide	show legend? default FALSE since direct labels replace a legend.

Value

Layer that will plot direct labels.

Author(s)

Toby Dylan Hocking

Examples

library(ggplot2)
vad <- as.data.frame.table(VADeaths)
names(vad) <- c("age","demographic","deaths")
## color + legend
leg <- ggplot(vad,aes(deaths,age,colour=demographic))+
  geom_line(aes(group=demographic))+
  xlim(8,80)
print(direct.label(leg,list("last.points",rot=30)))
## this is what direct.label is doing internally:
labeled <- leg+
  geom_dl(aes(label=demographic),list("last.points",rot=30))+
  scale_colour_discrete(guide="none")
print(labeled)
## no color, just direct labels!
p <- ggplot(vad,aes(deaths,age))+
  geom_line(aes(group=demographic))+
  geom_dl(aes(label=demographic),method="top.qp")
print(p)
## add color:
p+aes(colour=demographic)+
  scale_colour_discrete(guide="none")
## add linetype:
p+aes(linetype=demographic)+
  scale_linetype(guide="none")
## no color, just direct labels
library(nlme)
bwbase <- ggplot(BodyWeight,aes(Time,weight,label=Rat))+
  geom_line(aes(group=Rat))+
  facet_grid(.~Diet)
bw <- bwbase+geom_dl(method="last.qp")
print(bw)
## add some more direct labels
bw2 <- bw+geom_dl(method="first.qp")
print(bw2)
## add color
colored <- bw2+aes(colour=Rat)+
  scale_colour_discrete(guide="none")
print(colored)
## or just use direct.label if you use color:
direct.label(bwbase+aes(colour=Rat),dl.combine("first.qp","last.qp"))

## iris data example
giris <- ggplot(iris,aes(Petal.Length,Sepal.Length))+
  geom_point(aes(shape=Species))
giris.labeled <- giris+
  geom_dl(aes(label=Species),method="smart.grid")+
  scale_shape_manual(values=c(setosa=1,virginica=6,versicolor=3),
                     guide="none")
##png("~/R/directlabels/www/scatter-bw-ggplot2.png",h=503,w=503)
print(giris.labeled)
##dev.off()

directlabels documentation built on May 2, 2019, 6:13 p.m.