Nothing
`plotAll.fnc` <-
function(reslist, sameYrange=TRUE, ylabel, xlabel=NA, intrName=NA, pos="end",
ylimit=NA, addlines=FALSE, cexsize = 0.6, conditioningVals=NA,
conditioningColors=1, conditioningLines=1, lineColor=1,
addToExistingPlot = FALSE, ...) {
if (length(conditioningColors)==1) conditioningColors = rep(lineColor, 1000) # 1000 should be more than enough
if (length(conditioningLines)==1) conditioningLines = rep(1, 1000) # 1000 should be more than enough
if (sameYrange) {
ylimit = getRange.fnc(reslist)
}
if (is.na(pos)) pstn = 2
else {
if (pos=="beg") pstn = 4
else pstn = 2
} # we will use pstn (position) to ensure that the string is adjusted away from the margin
for (i in 1:length(reslist)) {
if ((!sameYrange) & (length(ylimit)==1)) {
ylimit = getRange.fnc(reslist[[i]])
}
if (is.data.frame(reslist[[i]])) {
lst = reslist[[i]]
n = 1
} else {
lst = reslist[[i]][[1]]
n = length(reslist[[i]])
}
if ("Levels" %in% colnames(lst)) {
isfactor = TRUE
} else {
isfactor = FALSE
}
if (lst$Type[1]==FALSE) {
if (is.na(xlabel[1])) {
xlabl = as.character(lst$Predictor[1])
} else {
xlabl = xlabel[i]
}
if (!addToExistingPlot) {
graphics::plot(lst$X, lst$Y, ylim=ylimit, type="l",
col = conditioningColors[1],
lty = conditioningLines[1],
xlab=xlabl, ylab=ylabel, ...)
} else {
graphics::lines(lst$X, lst$Y, col = conditioningColors[1],
lty = conditioningLines[1], ...)
}
if ("lower" %in% colnames(lst)) {
graphics::lines(lst$X, lst$lower, lty=2, col = conditioningColors[1], ...)
graphics::lines(lst$X, lst$upper, lty=2, col = conditioningColors[1], ...)
}
if (n>1) {
if (!is.na(pos)) {
ps = getPos.fnc(lst$Y, pos)
epsilon = (max(ylimit)-min(ylimit))/40
graphics::text(lst$X[ps], lst$Y[ps]+epsilon,
as.character(lst$Interaction[1]), cex=cexsize, pos=pstn, ...)
}
graphics::mtext(intrName, side=4, line=1, cex=cexsize, adj=0, ...)
}
} else { # a factor
d = max(lst$X)-min(lst$X)
xlimit = c(min(lst$X)-0.1*d, max(lst$X)+0.1*d)
if (is.na(xlabel[1])) {
xlabl = as.character(lst$Predictor[1])
} else {
xlabl = xlabel[i]
}
if (addlines) {
if (!addToExistingPlot) {
plot(lst$X, lst$Y, ylim=ylimit, type="b", pch=21, xlim=xlimit,
xlab=xlabl, ylab=ylabel, xaxt="n", col=conditioningColors[1], ...)
} else {
graphics::lines(lst$X, lst$Y, type="b", pch=21, col=conditioningColors[1], ...)
}
} else {
if (!addToExistingPlot) {
plot(lst$X, lst$Y, ylim=ylimit, type="p", pch=21, xlim=xlimit,
xlab=xlabl, ylab=ylabel, xaxt="n", col=lineColor, ...)
} else {
graphics::points(lst$X, lst$Y, pch=21, col=conditioningColors[1], ...)
}
}
graphics::mtext(lst$Levels, at=lst$X, side=1, line=1, cex=cexsize, ...)
if (n > 1) {
if (!is.na(pos) & !is.na(conditioningVals[1][1])) {
ps = getPos.fnc(lst$Y, pos)
epsilon = (max(ylimit)-min(ylimit))/40
graphics::text(lst$X[ps], lst$Y[ps]+epsilon,
labels=as.character(conditioningVals[1]), cex=cexsize, pos=pstn, ...)
}
}
if ("lower" %in% colnames(lst)) {
graphics::points(lst$X, lst$lower, lty=2, pch="-", col=conditioningColors[1], ...)
graphics::points(lst$X, lst$upper, lty=2, pch="-", col=conditioningColors[1], ...)
}
}
if (n > 1) {
for (j in 2:n) {
lst = reslist[[i]][[j]]
if (lst$Type[1]==FALSE) {
graphics::lines(lst$X, lst$Y, ylim=ylimit, type="l",
col=conditioningColors[j], lty=conditioningLines[j], ...)
if ("lower" %in% colnames(lst)) {
graphics::lines(lst$X, lst$lower, lty=2, col = conditioningColors[j], ...)
graphics::lines(lst$X, lst$upper, lty=2, col = conditioningColors[j], ...)
}
if (!is.na(pos[1]) & !is.na(conditioningVals[1][1])) {
ps = getPos.fnc(lst$Y, pos)
epsilon = (max(ylimit)-min(ylimit))/40
graphics::text(lst$X[ps], lst$Y[ps]+epsilon,
labels=as.character(lst$Interaction[1]), cex=cexsize, pos=pstn, ...)
}
} else {
if (is.na(xlabel[1])) {
xlabl = as.character(lst$Predictor[1])
} else {
xlabl = xlabel[i]
}
if (addlines) {
graphics::lines(lst$X, lst$Y, ylim=ylimit, type="b", pch=21,
col=conditioningColors[j], lty=conditioningLines[j],
xlab=xlabl, ylab=ylabel, ...)
} else {
graphics::points(lst$X, lst$Y, ylim=ylimit, type="p", pch=21,
xlab=xlabl, ylab=ylabel, col=conditioningColors[j], ...)
}
graphics::mtext(intrName, side=4, line=1, cex=cexsize, adj=0, ...)
if (!is.na(pos) & !is.na(conditioningVals[1][1])) {
ps = getPos.fnc(lst$Y, pos)
epsilon = (max(ylimit)-min(ylimit))/40
graphics::text(lst$X[ps], lst$Y[ps]+epsilon,
labels=as.character(conditioningVals[j]), cex=cexsize, pos=pstn, ...)
}
if ("lower" %in% colnames(lst)) {
graphics::points(lst$X, lst$lower, lty=2, pch="-", col=conditioningColors[j], ...)
graphics::points(lst$X, lst$upper, lty=2, pch="-", col=conditioningColors[j], ...)
}
}
}
}
}
}
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.