\begin{figure*}[t]
    \centering
<<fig=TRUE,height=6>>=
    frms <- positions
    frms <- frms[frms$frm,]
    frms <- frms[frms$latest,]
    frms <- frms[frms$evaluator %in% c('CorpusEvaluator', linear_evaluator),]
    frms <- melt(frms, id.vars=c('project', 'bug_number', 'bug_id', 'evaluator'), measure.vars=c('position'))
    frms$project <- format_name(frms$project)
    frms$variable <- format_name(frms$variable)
    frms$evaluator <- format_name(frms$evaluator)
    fig <- ggplot(frms, aes(bug_number, value, colour=evaluator)) +
        geom_point() +
        facet_grid(variable ~ project, scales='free') +
        labs(x='Bugs ordered by bug number', y='Position') +
        theme(axis.text=element_text(colour='black'),
              axis.text.x=element_text(angle=90),
              axis.title.y=element_blank(),
              legend.position='bottom',
              legend.title=element_blank(),
              panel.border=element_rect(colour='black', fill=NA)
        )
    print(fig)
@

    \caption{Positions of first relevant methods returned by each evaluator}
    \label{fig:frms}
\end{figure*}
