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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
\name{balloonplot}
\alias{balloonplot}
\alias{balloonplot.default}
\alias{balloonplot.table}
\title{Plot a graphical matrix where each cell contains a dot whose size
reflects the relative magnitude of the corresponding component.}
\description{
Plot a graphical matrix where each cell contains a dot whose size
reflects the relative magnitude of the corresponding component.
}
\usage{
balloonplot(x, ...)
\method{balloonplot}{table}(x, xlab, ylab, zlab, show.zeros=FALSE,show.margins=TRUE,...)
\method{balloonplot}{default}(x,y,z,
xlab,
ylab,
zlab=deparse(substitute(z)),
dotsize=2/max(strwidth(19),strheight(19)),
dotchar=19,
dotcolor="skyblue",
text.size=1,
text.color=par("fg"),
main,
label=TRUE,
label.digits=2,
label.size=1,
label.color=par("fg"),
scale.method=c("volume","diameter"),
scale.range=c("absolute","relative"),
colsrt=par("srt"),
rowsrt=par("srt"),
colmar=1,
rowmar=2,
show.zeros=FALSE,
show.margins=TRUE,
cum.margins=TRUE,
sorted=TRUE,
label.lines=TRUE,
fun=function(x)sum(x,na.rm=T),
hide.duplicates=TRUE,
... )
}
\arguments{
\item{x}{A table object, or either a vector or a list of several
categorical vectors containing grouping variables for the first
(x) margin of the plotted matrix.}
\item{y}{Vector or list of vectors for grouping variables for the
second (y) dimension of the plotted matrix.}
\item{z}{Vector of values for the size of the dots in the plotted matrix.}
\item{xlab}{Text label for the x dimension. This will be displayed on the
x axis and in the plot title.}
\item{ylab}{Text label for the y dimension. This will be displayed on the
y axis and in the plot title.}
\item{zlab}{Text label for the dot size. This will be included in the
plot title.}
\item{dotsize}{Maximum dot size. You may need to adjust this value
for different plot devices and layouts.}
\item{dotchar}{Plotting symbol or character used for dots. See the help
page for the points function for symbol codes.}
\item{dotcolor}{Scalar or vector specifying the color(s) of the dots in
the plot.}
\item{text.size, text.color}{Character size and color for row and
column headers}
\item{main}{Plot title text.}
\item{label}{Boolean flag indicating whether the actual value of the
elements should be shown on the plot.}
\item{label.digits}{Number of digits used in formatting value labels.}
\item{label.size, label.color}{ Character size and color for value labels.}
\item{scale.method}{Method of scaling the sizes of the dot, either
"volume" or "diameter". See below.}
\item{scale.range}{Method for scaling original data to compute
circle diameter. \code{scale.range="absolute"} scales the data
relative to 0 (i.e, maps [0,max(z)] --> [0,1]), while
\code{scale.range="relative"} scales the data relative to min(z)
(i.e. maps [min(z), max(z)] --> [0,1]).}
\item{rowsrt, colsrt}{Angle of rotation for row and column labels.}
\item{rowmar, colmar}{Space allocated for row and column labels. Each
unit is the width/height of one cell in the table.}
\item{show.zeros}{boolean. If \code{FALSE}, entries containing zero will be left
blank in the plotted matrix. If \code{TRUE}, zeros will be
displayed.}
\item{show.margins}{boolean. If \code{TRUE}, row and column sums are
printed in the bottom and right margins, respectively.}
\item{cum.margins}{boolean. If \code{TRUE}, marginal fractions are
graphically presented in grey behind the row/column label area.}
\item{sorted}{boolean. If \code{TRUE}, the rows will be
arranged in sorted order by using the levels of the first y factor,
then the second y factor, etc. The same process is used for the
columns, based on the x factors}
\item{label.lines}{boolean. If \code{TRUE}, borders will be drawn for
row and column level headers.}
\item{hide.duplicates}{boolean. If \code{TRUE}, column and row headers
will omit duplicates within row/column to reduce clutter. Defaults
to \code{TRUE}.}
\item{fun}{function to be used to combine data elements with the same
levels of the grouping variables \code{x} and \code{y}. Defaults to \code{sum}}
\item{\dots}{ Additional arguments passed to \code{balloonplot.default}
or \code{plot}, as appropriate.}
}
\details{
This function plots a visual matrix. In each \code{x},\code{y} cell a
dot is plotted which reflects the relative size of the corresponding
value of \code{z}. When \code{scale.method="volume"} the volume of
the dot is proportional to the relative size of \code{z}. When
\code{scale.method="diameter"}, the diameter of the dot is proportional to
the the relative size of \code{z}. The "volume" method is default
because the "diameter" method visually exaggerates differences.
}
\value{
Nothing of interest.
}
\note{
\code{z} is expected to be non-negative. The function will still
operate correctly if there are negative values of \code{z}, but the
corresponding dots will have 0 size and a warning will be generated.
}
\references{Function inspired by question posed on R-help by Ramon
Alonso-Allende \email{allende@cnb.uam.es}.}
\author{ Gregory R. Warnes \email{greg@warnes.net} }
\seealso{
\code{\link{plot.table}}.
\code{\link{bubbleplot}} provides an alternative interface and visual
style based on scatterplots instead of tables.
}
\examples{
\testonly{
set.seed(12425421)
}
# Create an Example Data Frame Containing Car x Color data
carnames <- c("bmw","renault","mercedes","seat")
carcolors <- c("red","white","silver","green")
datavals <- round(rnorm(16, mean=100, sd=60),1)
data <- data.frame(Car=rep(carnames,4),
Color=rep(carcolors, c(4,4,4,4) ),
Value=datavals )
# show the data
data
# generate balloon plot with default scaling
balloonplot( data$Car, data$Color, data$Value)
# show margin label rotation & space expansion, using some long labels
levels(data$Car) <- c("BMW: High End, German","Renault: Medium End, French",
"Mercedes: High End, German", "Seat: Imaginary, Unknown Producer")
# generate balloon plot with default scaling
balloonplot( data$Car, data$Color, data$Value, colmar=3, colsrt=90)
# Create an example using table
xnames <- sample( letters[1:3], 50, replace=2)
ynames <- sample( 1:5, 50, replace=2)
tab <- table(xnames, ynames)
balloonplot(tab)
# Example of multiple classification variabls using the Titanic data
library(datasets)
data(Titanic)
dframe <- as.data.frame(Titanic) # convert to 1 entry per row format
attach(dframe)
balloonplot(x=Class, y=list(Survived, Age, Sex), z=Freq, sort=TRUE)
# colorize: surviors lightblue, non-survivors: grey
Colors <- Titanic
Colors[,,,"Yes"] <- "skyblue"
Colors[,,,"No"] <- "grey"
colors <- as.character(as.data.frame(Colors)$Freq)
balloonplot(x=list(Age,Sex),
y=list(Class=Class,
Survived=reorder.factor(Survived,new.order=c(2,1))
),
z=Freq,
zlab="Number of Passengers",
sort=TRUE,
dotcol = colors,
show.zeros=TRUE,
show.margins=TRUE)
}
\keyword{dplot}
\keyword{hplot}
|
