R/ggplot2_scatterFCcvfNB.R

In jchitpin/blistR:

scatterFCcvfNB <- function(featureCombinationFP){
    featureCombinationFP <- as.data.table(featureCombinationFP)
    select <- 1:(ncol(featureCombinationFP)-2)

    featureCombinationFP[, "no.features" := rowSums(.SD), .SDcols = select]
    featureCombinationFP[, "grouping" := ifelse(RT == 1, "1", "0")]

    ggplot(data = featureCombinationFP, aes(x=no.features, y=V8,
                                            color=grouping)) +
        geom_point() +
        theme_bw()
}