Add Legends to Bubble Plots

Share:

Description

This functions can be used to add legends to bubble plots

Usage

1
2
legend.bubbles (x, y = NULL, z = NULL, nleg = NULL, digits = NULL, 
  pch, z.cex.range = NULL, x.intersp = 1, y.intersp = 1, bg="white",...)

Arguments

x, y

the x and y co-ordinates to be used to position the legend. They can be specified by keyword or in any way which is accepted by xy.coords. The location may also be specified by setting x to a single keyword from the list "bottomright", "bottom", "bottomleft", "left", "topleft", "top", "topright", "right" and "center". This places the legend on the inside of the plot frame at the given location. Partial argument matching is used. The optional inset argument specifies how far the legend is inset from the plot margins. If a single value is given, it is used for both margins; if two values are given, the first is used for x- distance, the second for y-distance

z

a numeric vector whose values were used to define the points expansion factor (bubbles) of the plot

nleg

integer indicating the number of values (quantiles) to be drawn in the legend. The default is "3" which will return the minimum, median and maximum values of z (quantiles 0, 50 and 100 percent, respectively)

digits

integer indicating the number of decimal places to be used on legend. Default is "1"

pch

the plotting symbols appearing in the legend, either as vector of 1-character strings, or one (multi character) string. Must be the same used on plotting

z.cex.range

vector of length 2. Minimum and maximum 'cex' of the bubbles plotted. Replace the argument pt.cex. Must be the same used on plotting

x.intersp

character interspacing factor for horizontal (x) spacing

y.intersp

the same for vertical (y) line distances

bg

the background color for the legend box

...

further graphical parameters. See legend() for additional options

Details

This is a "wrapper" function for legend() that adds bubbles - legend() should be consulted for details.legend.bubbles was designed to plot legends to bubbles for the rysgran.plot and rysgran.ternary functions. For this, the values of z, z.cex.range and pch should be the same used to plot the graph and legend.bubbles. To avoid problems with overlapping symbols and characters due to the different sizes of pch, arguments x.intersp, y.intersp and cex should be adjusted accordingly. Note that the option 'bty="n"' from legend is hardcoded to avoid overlapping

Note

legend.bubbles depends on the package 'soiltexture'

Author(s)

Eliandro R. Gilbert (eliandrogilbert@gmail.com)

See Also

rysgran.plot, rysgran.ternary

Examples

 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
#Shepard diagram with Sorting as bubbles
#Calculating the percentage of weight in each textural class
library(rysgran)
data(camargo2001)

percent <- class.percent(camargo2001, mode="total")

#Calculating the grain size statistics

rys <- gran.stats(camargo2001 , method="folk")

#Plotting

rysgran.ternary (x = percent[2:4], method = "shepard",
  z = rys$Sorting, z.cex.range = c(0.5,4), col = "blue", pch = 20)

legend.bubbles ("topright", z=rys$Sorting , nleg=4, pch=20, col="blue",cex=1, 
  z.cex.range=c(0.5,4), x.intersp=1.2, y.intersp=1.2,digits=1, title="Sorting")


#Bivariated Plot
#Mean and Sorting with Kurtosis as bubbles
library(rysgran)
data(camargo2001)

#Calculating the grain size statistics

rys <- gran.stats(camargo2001 , method="folk")

#Ploting

rysgran.plot ("mean" , "sort" , data=camargo2001, method="folk", pch = 21,
  col = "red", z=rys$Kurtosis, z.cex.range=c(1,5),bg="red")

legend.bubbles ("bottomright", z=rys$Kurtosis , nleg=3, pch=21, col="black", 
  z.cex.range=c(1,5), x.intersp=1.3, y.intersp=1.6, digits=1, title="Kurtosis")