Nothing
dotplot = function(x, ...) {
UseMethod("dotplot")
}
dotplot.default =
function(x, ...) {
.NotBaseRWarning("The dotplot command is a wrapper for stripchart,")
MC <- match.call(expand.dots = TRUE)
MC[[1L]] <- quote(graphics::stripchart)
names(MC)[2] = ""
Out <- eval(MC, parent.frame())
if (length(MC$vertical) > 0) {
Out$vertical = as.logical(MC$vertical)
} else {
Out$vertical = FALSE
}
Out$vals = list(sort(x))
Out$main = as.character(MC$main)
# then overwrite if user has specified (even if in error)
if (length(MC$group.names) > 0)
Out$group.names = as.character(MC$group.names)
if (length(MC$dlab) > 0) Out$dlab = as.character(MC$dlab)
if (length(MC$glab) > 0) Out$glab = as.character(MC$glab)
if (length(MC$xlab) > 0) Out$xlab = as.character(MC$xlab)
if (length(MC$ylab) > 0) Out$ylab = as.character(MC$ylab)
Out$call = MC
class(Out) = "dotplot"
Out=Augment(Out)
return(invisible(Out))
}
dotplot.formula =
function(x, ...) {
.NotBaseRWarning("The dotplot command is a wrapper for stripchart,")
MC <- match.call(expand.dots = TRUE)
MC[[1L]] <- quote(graphics::stripchart)
names(MC)[2] = ""
Out <- eval(MC, parent.frame())
if (length(MC$vertical) > 0) {
Out$vertical = as.logical(MC$vertical)
} else {
Out$vertical = FALSE
}
Temp = aggregate(x, FUN = sort)
Out$vals = Temp[[2]]
names(Out$vals) = Temp[[1]]
# formula assigns glab which is old school
Out$main = as.character(MC$main)
# then overwrite if user has specified (even if in error)
if (length(MC$group.names) > 0)
Out$group.names = as.character(MC$group.names)
if (length(MC$dlab) > 0) Out$dlab = as.character(MC$dlab)
if (length(MC$glab) > 0) Out$glab = as.character(MC$glab)
if (length(MC$xlab) > 0) Out$xlab = as.character(MC$xlab)
if (length(MC$ylab) > 0) Out$ylab = as.character(MC$ylab)
Out$call = MC
class(Out) = "dotplot"
Out=Augment(Out)
return(invisible(Out))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.