Добавить прямые метки в диаграмму с областями ggplot2 _

Это продолжение вопроса здесь:Создайте не -перекрывающийся график с накоплением областей с помощью ggplot2

У меня есть диаграмма с областями ggplot2, созданная с помощью следующего кода. Я хочу, чтобы метки из namesбыли выровнены по правой стороне графика. Я думаю, что directlabelsможет сработать, но я готов попробовать что-нибудь более умное.

require(ggplot2)
require(plyr)
require(RColorBrewer)
require(RCurl)
require(directlabels)

link <- getURL("http://dl.dropbox.com/u/25609375/so_data/final.txt")
dat <- read.csv(textConnection(link), sep=' ', header=FALSE, 
         col.names=c('count', 'name', 'episode'))


dat <- ddply(dat,.(episode), transform, percent = count / sum(count))

# needed to make geom_area not freak out because of missing value
dat2 <- rbind(dat, data.frame(count = 0, name = 'lane',
                             episode = '02-tea-leaves', percent = 0))

g <- ggplot(arrange(dat2,name,episode), aes(x=episode,y=percent)) + 
  geom_area(aes(fill=name, group = name), position='stack') + scale_fill_brewer()

g1 <- g + geom_dl(method='last.points', aes(label=name))

Я новичок в directlabelsи не совсем уверен, как заставить метки выровняться по правой стороне графика с теми же цветами, что и области.