em Scripts

Script – Parte 29.2 (Série R na Prática)

por Jorge Kazuo Yamamoto 06/01/2021, 10:00 0 Comments

A explicação do script a seguir está no artigo R na Prática – Parte 29.

#https://www.rdocumentation.org/packages/
#grDevices/versions/3.6.2/topics/Palettes
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_20.jpeg",width=5,height=5,
#units="in",res=300)
demo.pal <-
function(n, border = if (n < 32) "light gray" else NA,
main = paste("color palettes;  n=", n),
ch.col=c("rainbow(n,start=.7,end=.1)", 
"heat.colors(n)","terrain.colors(n)", 
"topo.colors(n)","cm.colors(n)"))
{
    nt <- length(ch.col)
    i <- 1:n; j <- n / nt; d <- j/6; dy <- 2*d
    plot(i, i+d, type = "n", yaxt = "n", ylab = "", 
    main = main)
    for (k in 1:nt) {
        rect(i-.5, (k-1)*j+ dy, i+.4, k*j,
        col = eval(parse(text = ch.col[k])), 
        border = border)
        text(2*j,  k * j + dy/4, ch.col[k])
    }
}
demo.pal(21)
#dev.off()

Escrito por Jorge Kazuo Yamamoto

Prof. Dr. Jorge Kazuo Yamamoto, fundador da Geokrigagem, é geólogo, foi pesquisador do IPT e docente do Instituto de Geociências da USP, onde se aposentou como Professor Titular do Departamento de Geologia Sedimentar e Ambiental. Atualmente, atua como Professor Sênior do Departamento de Engenharia de Minas e de Petróleo – Escola Politécnica – USP. É responsável pela disciplina “Métodos geoestatísticos” na Pós-Graduação do IPT – Investigação do subsolo: Geotecnia e Meio Ambiente. Dedica-se ao ensino de geoestatística, com ênfase no desenvolvimento de algoritmos e pesquisa de novas aplicações, tais como: variância de interpolação, cálculo da variância global de depósitos minerais e correção do efeito de suavização da krigagem. Ultimamente, seu interesse está voltado para o ensino e divulgação da linguagem R.