Fevereiro 2017 - R-br

Re: [R-br] Selecionar a extração de valores dos pixels em linhas a cada número de pixels arbitrário
by ASANTOS 03 Fev '17

03 Fev '17

Muito obrigado Jônatan, ajudou muito!!! -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos(a)cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016 Researchgate: www.researchgate.net/profile/Alexandre_Santos10 LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635 Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/ ====================================================================== Em 03/02/2017 16:59, Jônatan escreveu: > > require(raster); require(sp) > set.seed(1) > ## Criando um raster > r <- raster(nc=10, nr=10) > r <- setValues(r, round(runif(ncell(r))* 255)) > #Consigo extrair os valores dos pixels de interesse dadas as > coordenadas centrais dos mesmos > # x <- c(54,18,54,54) > # y <- c(27,81,9,63) > > # inventando ptos que não coincidam com os centros das células > x <- c(54,18,54,54) > x <- x + runif(length(x), 0, 35) > y <- c(27,81,9,63) > y <- y - runif(length(y), 0, 17) > > # data frame com pontos de interesse > p <- data.frame(x,y) > # celulas do raster interceptadas pelos pontos > p$cel <- cellFromXY(r, pontos) > p$col <- colFromCell(r, p$cel) > p$row <- rowFromCell(r, p$cel) > # adicionando as coordenadas centrais das células > p.cen <- as.data.frame(xyFromCell(r, p$cel)) > names(p.cen) <- c("xc", "yc") > p <- data.frame(p, p.cen) > # coordenadas das células à direita > *p.rigth <- as.data.frame(xyFromCell(r, cellFromRowCol(r, rownr = > df$row, df$col + 1)))* > *names(p.rigth) <- c("xr", "yr")* > *p <- data.frame(p, p.rigth)* > > p > plot(r) > text(r) > points(p[, c("x", "y")], pch = 4, col = 2) > points(p[, c("xc", "yc")], pch = 3, col = "gray", cex = 2) > points(p[, c("xr", "yr")], pch = "_", col = "gray30", cex = 2) > > library(plyr) > vals2cols <- ldply(1:nrow(p), > function(ir){ > getValuesBlock(r, > col = p$col[ir], > ncols = 2, > row = p$row[ir], > nrows = 1) > }# end fun > ) > > df <- data.frame(p, vals2cols) > df > #dput(df) > structure(list(x = c(76.9153374827001, 30.3619045177475, > 63.4591051060706, 88.7439421410672), y = c(16.2306145045441, > 77.3754617013037, 6.80067008268088, 54.8719934166875), cel = c(48, 6, > 47, 18), col = c(8L, 6L, 7L, 8L), row = c(5, 1, 5, 2), xc = c(90, 18, > 54, 90), yc = c(9, 81, 9, 63), xr = c(126, 54, 90, 126 ), yr = c(9, > 81, 9, 63), V1 = c(122, 229, 6, 253), V2 = c(187, 241, 122, 97)), > .Names = c("x", "y", "cel", "col", "row", "xc", "yc", "xr", "yr", > "V1", "V2"), row.names = c(NA, -4L), class = "data.frame")

1 0

Selecionar a extração de valores dos pixels em linhas a cada número de pixels arbitrário
by ASANTOS 03 Fev '17

03 Fev '17

Prezados Membros, Tenho um raster hipotético r: require(raster); require(sp) ## Criando um raster r <- raster(nc=10, nr=10) r <- setValues(r, round(runif(ncell(r))* 255)) Consigo extrair os valores dos pixels de interesse dadas as coordenadas centrais dos mesmos: x <- c(54,18,54,54) y <- c(27,81,9,63) pontos <- SpatialPoints(cbind(x,y)) cells <- cellFromXY(r, pontos); cells p.cen <- xyFromCell(r, cells); p.cen values <- extract(r,p.cen) dados<-cbind(p.cen,cells,values) No entanto, eu gostaria de encontrar um modo para extrair o valor dos pixels, no qual, eu selecionaria uma coordenada e a função realizaria a extração dos pixels de linhas verticais inteiras do raster a cada dois pixels à partir da coordenada dada, por exemplo? Alguém poderia me dar uma ideia de como chegar a esse resultado? Obrigado, -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos(a)cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016 Researchgate: www.researchgate.net/profile/Alexandre_Santos10 LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635 Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/ ======================================================================

3 5

trellis.focus com grid.arrange
by Elias T. Krainski 03 Fev '17

03 Fev '17

Se tenho library(Matrix) library(lattice) library(gridExtra) m1 = sparseMatrix(i=c(1,1,2,3,4,4,4,5), j=c(3,4,4,1,2,3,5,4), x=1:8) m2=m1/2 grid.arrange(image(m1), image(m2), ncol=2) Como faco para panel.text() funcionar no plot da esquerda? Elias

2 3

Material para estudo (Modelos Aditivos linear generalizado)
by Fernando Antonio de souza 03 Fev '17

03 Fev '17

Caros colegas, Alguém dispõe de material sobre modelos aditivos e que possuam exemplos voltados ao R que possa compartilhar? De preferência em português Att -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza(a)gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================

4 4

Juntar múltiplos data.frame com número diferente de linhas, um ao lado do outro, mantendo todas as colunas
by Delcio Rudinei Bortolanza 03 Fev '17

03 Fev '17

Olá Regularmente preciso salvar em um arquivo .xlsx por volta de uns 100 arquivos .txt. Esses arquivos .txt possuem exatamente o mesmo nome de colunas, mas um numero diferente de linhas (aproximadamente 300 linhas cada arquivo). Cada arquivo .txt é lido como um data frame com o nome do arquivo da pasta (ex: `121`,`60`,`591`... ). Como poderia criar um data.frame gigante juntando todos esses data.frames um ao lado do outro,mantendo todas as colunas de todos eles, já que possuem numero diferenciado de linhas e deveria deixá-los todos com o mesmo numero de linhas preenchendo com NA, por exemplo. Também, o nome das colunas deveria ser substituído pelo nome do arquivo (por ex: V1, V2, V3, V4, V5, V6, V7, V8 por 121, 121, 121, 121, 121, 121, 121, 121; V1, ... V7, V8 por 60, ...60, 60; e assim sucessivamente). Isso tudo teria que ser feito de forma automática, pois são muitos arquivos (sempre em torno de 100). Anexada, uma captura de tela do que eu tentei explicar. Att., Delcio Bortolanza.

2 1

Fwd: função glht{multcomp} comparaçãos função lme
by sznelwar＠uol.com.br 03 Fev '17

03 Fev '17

2 1

Abrir Netcdf (NCEP, NOAA etc) no R
by Jackson Rodrigues 02 Fev '17

02 Fev '17

Oi Pessoal, Gostaria de saber se há algum pacote recomendado para trabalhar dados climáticos em formato netcdf no R. Eu já tentei alguns pacotes (RNetCDF, netcddf e outros) que em determinado passo dão mensagem de erro, mesmo seguindo os passos dos tutoriais dos próprios pacotes. Há algum pacote que permita trabalhar esses dados tão bem quanto, por exemplo, o grads e ferret? Obrigado Jackson

2 1

Re: [R-br] função glht{multcomp} comparaçãos função lme
by sznelwar＠uol.com.br 02 Fev '17

02 Fev '17

1 0