Skye(MASS)
Skye()所属R语言包:MASS
AFM Compositions of Aphyric Skye Lavas
原子力显微镜组成Aphyric斯凯熔岩
译者:生物统计家园网 机器人LoveR
描述----------Description----------
The Skye data frame has 23 rows and 3 columns.
Skye数据框有23行,3列。
用法----------Usage----------
Skye
格式----------Format----------
This data frame contains the following columns:
这个数据框包含下列资料:
Percentage of sodium and potassium oxides.
钠和钾的氧化物的百分比。
Percentage of iron oxide.
三氧化二铁的百分比。
Percentage of magnesium oxide.
氧化镁的百分比。
源----------Source----------
R. N. Thompson, J. Esson and A. C. Duncan (1972) Major element chemical variation in the Eocene lavas of the Isle of Skye. J. Petrology, 13, 219–253.
护士汤普森,J. Esson和交流邓肯(1972)斯凯岛的主要元素在始新世熔岩的化学变化。研究岩石,13,219-253。
参考文献----------References----------
The Statistical Analysis of Compositional Data. Chapman and Hall, p.360.
Modern Applied Statistics with S. Fourth edition. Springer.
举例----------Examples----------
# ternary() is from the on-line answers.[三元()是从上线的答案。]
ternary <- function(X, pch = par("pch"), lcex = 1,
add = FALSE, ord = 1:3, ...)
{
X <- as.matrix(X)
if(any(X < 0)) stop("X must be non-negative")
s <- drop(X %*% rep(1, ncol(X)))
if(any(s<=0)) stop("each row of X must have a positive sum")
if(max(abs(s-1)) > 1e-6) {
warning("row(s) of X will be rescaled")
X <- X / s
}
X <- X[, ord]
s3 <- sqrt(1/3)
if(!add)
{
oldpty <- par("pty")
on.exit(par(pty=oldpty))
par(pty="s")
plot(c(-s3, s3), c(0.5-s3, 0.5+s3), type="n", axes=FALSE,
xlab="", ylab="")
polygon(c(0, -s3, s3), c(1, 0, 0), density=0)
lab <- NULL
if(!is.null(dn <- dimnames(X))) lab <- dn[[2]]
if(length(lab) < 3) lab <- as.character(1:3)
eps <- 0.05 * lcex
text(c(0, s3+eps*0.7, -s3-eps*0.7),
c(1+eps, -0.1*eps, -0.1*eps), lab, cex=lcex)
}
points((X[,2] - X[,3])*s3, X[,1], ...)
}
ternary(Skye/100, ord=c(1,3,2))
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|