rattle (version 2.6.25)

riskchart: Plot a risk chart

Description

Plots a Rattle Risk Chart using ggplot2. Such a chart has been developed in a practical context to present the performance of data mining models to clients, plotting a caseload against performance, allowing a client to see the tradeoff between coverage and performance.

Usage

riskchart(data,
          title=NULL,
    show.legend = TRUE,
    optimal = NULL, optimal.label = "", chosen = NULL, chosen.label = "",
    include.baseline = TRUE, dev = "", filename = "", show.knots = NULL,
    show.lift=TRUE, show.precision=TRUE,
    risk.name = "Risk", recall.name = "Recall",
    precision.name = "Precision")

Arguments

data

The caseloads, precision, recall, risk values for each probability cutoff.

title

the main title to place at the top of the plot.

show.legend

whether to display the legend in the plot.

optimal

a caseload (percentage or fraction) that represents an optimal performance point which is also plotted. If instead the value is TRUE then the optimal point is identified internally (maximum valud for (recall-casload)+(risk-caseloa

optimal.label

a string which is added to label the line drawn as the optimal point.

chosen

a caseload (percentage or fraction) that represents a user chosen optimal performance point which is also plotted.

chosen.label

a string which is added to label the line drawn as the chosen point.

include.baseline

if TRUE (the default) then display the diagonal baseline.

dev

a string which, if supplied, identifies a device type as the target for the plot. This might be one of wmf (for generating a Windows Metafile, but only available on MS/Windows), pdf, or png.

filename

a string naming a file. If dev is not given then the filename extension is used to identify the image format as one of those recognised by the dev argument.

show.knots

a vector of caseload values at which a vertical line should be drawn. These might correspond, for example, to individual paths through a decision tree, illustrating the impact of each path on the caseload and performance.

show.lift

whether to label the right axis with lift.

show.precision

whether to show the precision plot.

risk.name

a string used within the plot's legend that gives a name to the risk. Often the risk is a dollar amount at risk from a fraud or from a bank loan point of view, so the default is Revenue.

recall.name

a string used within the plot's legend that gives a name to the recall. The recall is often the percentage of cases that are positive hits, and in practise these might correspond to known cases of fraud or reviews where some adjustment to perhaps a

precision.name

a string used within the plot's legend that gives a name to the precision. A common name for precision is Strike Rate, which is the default here.

Details

Caseload is the percentage of the entities in the dataset covered by the model at a particular probability cutoff, so that with a cutoff of 0, all (100%) of the entities are covered by the model. With a cutoff of 1 (0%) no entities are covered by the model. A diagonal line is drawn to represent a baseline random performance. Then the percentage of positive cases (the recall) covered for a particular caseload is plotted, and optionally a measure of the percentage of the total risk that is also covered for a particular caseload may be plotted. Such a chart allows a user to select an appropriate tradeoff between caseload and performance. The charts are similar to ROC curves. The precision (i.e., strike rate) is also plotted.

References

Package home page: http://rattle.togaware.com

See Also

evaluateRisk, genPlotTitleCmd.

Examples

## this is usually used in the context of the evaluateRisk function
ev <- evaluateRisk(predicted, actual, risk)

## imitate this output here
ev <- data.frame(Caseload=c(1.0, 0.8, 0.6, 0.4, 0.2, 0),
                 Precision=c(0.15, 0.18, 0.21, 0.25, 0.28, 0.30),
                 Recall=c(1.0, 0.95, 0.80, 0.75, 0.5, 0.0),
                 Risk=c(1.0, 0.98, 0.90, 0.77, 0.30, 0.0))

## plot the Risk Chart
riskchart(ev, chosen=60, chosen.label="Pr=0.45")

## Add a title
eval(parse(text=genPlotTitleCmd("Sample Risk Chart")))