1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
\name{labbePlot}
\alias{labbePlot}
\title{ Display a L'Abbe plot }
\description{
Display the percentages of successes for two conditions to be compared as circles,
the area of which is proportional to the number of observations.
}
\usage{
labbePlot(x,main="L'Abbe plot",xlab="Percent positive response with placebo",
ylab="Percent positive response with treatment",labels=NULL,col=NA,
circle.mag=0.5,add=FALSE,...)
}
\arguments{
\item{x}{A list of either 2x2 tables or three element vectors (see Details).}
\item{main}{The title of the plot.}
\item{xlab,ylab}{The x and y axis labels as in \samp{plot}.}
\item{labels}{Text strings that will be displayed in the center of the circles.}
\item{col}{A list of colors for the circles.}
\item{circle.mag}{A fudge factor for very small or very large numbers of
observations.}
\item{add}{Whether to add the information in \samp{x} to an existing L'Abbe
plot.}
\item{...}{additional arguments passed to \samp{plot}.}
}
\details{
The elements of \samp{x} may be tables in which rows represent the conditions
being compared, with the comparison condition first (often "placebo") and the
condition of interest (often "intervention") second. The columns represent the
counts of successes and failures. The elements of \samp{x} can also be vectors
with three numeric values, first the percentage of successes for the comparison
condition, second the percentage of successes for the condition of interest and
finally the number of observations. Tables and vectors can be mixed.
The radius of each circle is the square root of the number of observations
multiplied by \samp{circle.mag}. This allows very small numbers of observations
to be expanded and very large numbers to be reduced in size. As the area of each
circle is proportional to the number of observations, \samp{circle.mag} must be
the same for all circles. The user may wish to expand or contract all the circles
on a plot so that they will fit within the box.
The labels, if not NULL, are displayed on the circles. The function tries to work
out whether white or black text will be more easily read based on the background
color and displays the text accordingly.
}
\value{nil}
\author{Jim Lemon - thanks to Whitney Melroy for asking for it.}
\seealso{\link{draw.circle}}
\examples{
# first fake something like the data from a clinical trial
didf<-data.frame(subject=1:50,interv=rep(c("therapist","ex-drinker"),each=25),
outcome=sample(c("more","less"),50,TRUE))
# make it into a table
didf.tab<-table(didf$interv,didf$outcome)
# now mix in some raw percentages just for the example
didf2<-c(74,46,200)
didf3<-c(33,87,500)
x<-list(didf.tab,didf2,didf3)
labbecol<-list("red","green","blue")
labbePlot(x,main="Ex-drinkers vs therapists",
xlab="Percent reduced drinking (ex-drinkers)",
ylab="Percent reduced drinking (therapists)",
labels=list("A","B52","X117"),col=labbecol)
labbePlot(list(c(20,40,20)),col=list("purple"),labels=list("Z"),add=TRUE)
}
\keyword{misc}
|
