\begin{figure*}[t]
    \centering
<<fig=TRUE,height=2>>=
    individual <- positions
    individual <- individual[individual$latest,]
    individual <- individual[individual$frm,]
    individual <- individual[individual$evaluator %in% basic_evaluators,]
    individual <- melt(individual, id.vars=c('project', 'bug_number', 'bug_id', 'evaluator'), measure.vars=c('position'))
    individual <- ddply(individual, .(project, evaluator), function(x) data.frame(value=x$value, display_order=order(order(x$value, x$bug_number))))
    individual$project <- format_name(individual$project)
    individual$evaluator <- format_name(individual$evaluator)
    fig <- ggplot(individual, aes(display_order, value, linetype=evaluator, colour=evaluator)) +
        geom_line(size=0.3) +
        scale_y_log10() +
        facet_grid(. ~ project, scales='free') +
        labs(x='', y='FRM (Log)') +
        theme(axis.text=element_text(colour='black'),
              axis.text.x=element_text(angle=90),
              legend.position='right',
              legend.title=element_blank(),
              panel.border=element_rect(colour='black', fill=NA),
              panel.margin = unit(0, 'inches'),
              plot.margin = unit(c(0,0.25,0,0), 'inches')
        )
    print(fig)
@
    \caption{Position of FRM for each source of information. Each point on x-axis is a single bug, but position does not correspond to bug ID. Each approach is sorted individually \eg bug 1 for \corpus is not necessarily the same bug as bug 1 for \lang .}
    \label{fig:individual}
\end{figure*}
