http://netstat.stat.tku.edu.tw
(User from: 54.162.139.105)
機率  |  統計  |  Data Mining  |  資料處理  |  DEMO  |  Data  |  Links  |  Books  |  相關文件  |   ( ENGLISH )

Home

機率
 計算/查表
 隨機亂數
 Density plots
統計
 基本統計
 卡方檢定
 迴歸分析
 ANOVA
 時間數列
 多變量分析
 品質管制
 無母數方法
Data Mining
 決策樹
 Logistic
 判別分析
 集群分析
 類神經網路
 關聯規則分析
 ALL Methods

Volcano Plot

垂直旋轉 (Z axis): 20, 水平旋轉 (X axis): 130
■ 請選擇 垂直旋轉 角度 (vertical degree): (default: 20)

■ 請選擇 水平旋轉 角度 (horizontal degree): (default: 130)

  
R 指令> data(volcano) 
R 指令> z <- 2 * volcano # Exaggerate the relief 
R 指令> x <- 10 * (1:nrow(z)) # 10 meter spacing (S to N) 
R 指令> y <- 10 * (1:ncol(z)) # 10 meter spacing (E to W) 
R 指令> zmin <- min(z) - 20 
R 指令> z <- rbind(zmin, cbind(zmin, z, zmin), zmin) 
R 指令> x <- c(min(x) - 1e-10, x, max(x) + 1e-10) 
R 指令> y <- c(min(y) - 1e-10, y, max(y) + 1e-10) 
R 指令> fill <- matrix("green3", nr = nrow(z)-1, nc = ncol(z)-1)
R 指令> fill[ , i2 <- c(1,ncol(fill))] <- "gray"
R 指令> fill[i1 <- c(1,nrow(fill)) , ] <- "gray"
R 指令> fcol <- fill
R 指令> zi <- volcano[ -1,-1] + volcano[ -1,-61] +
R 指令>              volcano[-87,-1] + volcano[-87,-61]  ## / 4
R 指令> fcol[-i1,-i2] <-
R 指令>       terrain.colors(20)[cut(zi, quantile(zi, seq(0,1, len = 21)),
R 指令>                              include.lowest = TRUE)]
R 指令> theta <- 130 
R 指令> phi <- 20 
R 指令> par(mar=rep(.5,4))
R 指令> persp(x, y, 2*z, theta = theta, phi = phi, col = fcol, scale = FALSE,
R 指令>         ltheta = -120, shade = 0.4, border = NA, box = FALSE)