
Last chance! 50% off unlimited learning
Sale ends in
performs a scatterplot
s.image(dfxy, z, xax = 1, yax = 2, span = 0.5, xlim = NULL, ylim = NULL,
kgrid = 2, scale = TRUE, grid = FALSE, addaxes = FALSE, cgrid = 0,
include.origin = FALSE, origin = c(0, 0), sub = "", csub = 1,
possub = "topleft", neig = NULL, cneig = 1, image.plot = TRUE,
contour.plot = TRUE, pixmap = NULL, contour = NULL, area = NULL,
add.plot = FALSE)
a data frame containing the two columns for the axes
a vector of values on the dfxy
rows
the column number of x in dfxy
the column number of y in dfxy
the parameter alpha which controls the degree of smoothing
the ranges to be encompassed by the x-axis, if NULL they are computed
the ranges to be encompassed by the y-axis, if NULL they are computed
a number of points used to locally estimate the level line through the nodes of the grid,
used by kgrid*sqrt(length(z))
if TRUE, data are centered and reduced
if TRUE, the background grid is traced
a logical value indicating whether the axes should be plotted
a character size, parameter used with par("cex")* cgrid
to indicate the mesh of the grid
a logical value indicating whether the point "origin" should be belonged to the graph space
the fixed point in the graph space, for example c(0,0) the origin axes
a string of characters to be inserted as legend
a character size for the legend, used with par("cex")*csub
a string of characters indicating the sub-title position ("topleft", "topright", "bottomleft", "bottomright")
an object of class neig
a size for the neighbouring graph lines used with par("lwd")*cneig
if TRUE, the image is traced
if TRUE, the contour lines are plotted
an object 'pixmap' displayed in the map background
a data frame with 4 columns to plot the contour of the map : each row gives a segment (x1,y1,x2,y2)
a data frame of class 'area' to plot a set of surface units in contour
if TRUE uses the current graphics window
The matched call.
# NOT RUN {
if(!adegraphicsLoaded()) {
if(requireNamespace("splancs", quietly = TRUE)) {
wxy <- data.frame(expand.grid(-3:3, -3:3))
names(wxy) <- c("x", "y")
z <- (1 / sqrt(2)) * exp(-(wxy$x ^ 2 + wxy$y ^ 2) / 2)
par(mfrow = c(2, 2))
s.value(wxy, z)
s.image(wxy, z)
s.image(wxy, z, kgrid = 5)
s.image(wxy, z, kgrid = 15)
par(mfrow = c(1, 1))
}
# }
# NOT RUN {
data(t3012)
if(requireNamespace("splancs", quietly = TRUE)) {
par(mfrow = c(3, 4))
for(k in 1:12)
s.image(t3012$xy, scalewt(t3012$temp[, k]), kgrid = 3)
par(mfrow = c(1, 1))
}
data(elec88)
if(requireNamespace("splancs", quietly = TRUE)) {
par(mfrow = c(3,4))
for(k in 1:12)
s.image(t3012$xy, scalewt(t3012$temp[, k]), kgrid = 3, sub = names(t3012$temp)[k],
csub = 3, area = elec88$area)
par(mfrow = c(1, 1))
}
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab