Re: [R-br] sobre conjuntos

segue sugestão SP1 = c("a","b","c","d","g","h","i") SP2 = c("a","b","c","d","e","f","j") SP3 = c("a","b","g","h","e","f","k") A = setdiff(SP1, SP2) B = setdiff(SP2, SP3) C = setdiff(SP3, SP1) setdiff(A, SP3) setdiff(B, SP1) setdiff(C, SP2) intersect(SP1, B) intersect(SP2, C) intersect(SP3,

Re: [R-br] Eixo x

segue sugestões qtidade=c(61,53,44,35,24,17,15,16,18,12,8,3,3,4,2,2,1,2,1,1,1,1,1) Anos=c(2018,2017,2016,2015,2014,2013,2012,2011,2010,2009,2008,2007,2006,2005,2003,2002,2001,1999,1998,1997,1992,1991,1981) plot(Anos, qtidade, xaxt = "n") axis(1, at=Anos, labels=Anos, las=2) ## 1980-2018 = 19

Re: [R-br] Extrair Período de datas

olá Bem correto seus comentários Cesar, não compreendi bem o problema. segue sugestão: data = seq(as.Date('2016-01-01'), as.Date('2016-12-31'), by = 1) DF = data.frame(data, N = 1:366) DF[DF$data > "2016-02-05" & DF$data < "2016-02-10",] ou subset(DF, data > "2016-02-05" & DF$data <

Re: [R-br] Extrair Período de datas

Olá Uma das alternativas é usar a função da biblioteca {data.table} exemplo adaptado do site: http://stackoverflow.com/questions/17244077/select-subset-by-date-in-r#17246437 library(data.table) ## dados n.child = as.numeric(c(1,2,3,4,5,6)) sex = as.factor(c("f","f","f","m","m","f")) date =

Re: [R-br] trabalhando com números pequenos

segue sugestão library(Rmpfr) mpfr(500^(-10), precBits = 255) - mpfr(1, precBits = 255) # 1 'mpfr' number of precision 255 bits # [1] -0.998975914663505297831951000646311908486498 ## caracteristica numerica da maquina .Machine

Re: [R-br] Unindo colunas de um data-frame

Caro Segue sugestões: ## usando data.frame DD = data.frame(A = c(3L, 1L, 3L), B = c(4L, 2L, 2L), C = c(6L, 9L, 5L)) ## sugestão 1 - usando nome das colunas DD$ABC = as.numeric(do.call(paste0, c(DD[c("A", "B", "C")]))) DD ## sugestão 2 - usando a posição das colunas DD$ABC =

Re: [R-br] Sub-amostragem

Caro Não consegui reproduzir seu erro. Seu código com loop funcionou perfeitamente Fiz uma amostragem com 2 observações. Encapsulei numa função simples onde se tem a opção do n amostral, com e sem reposição segue sugestões: Id = 1:2 X =

Re: [R-br] Sub-amostragem

Caro, segue sugestão: Id <- 1:20 X <- c("A","B","A","C","A","A","B","A","C","A","A","B","A","C","A","A","B","A","C","A") Dados <- data.frame(Id,X) IdDados <- sample(Dados$Id,5,replace = FALSE) DadosAm = subset(Dados, Id %in% IdDados) DadosAm saudações Em Dom, Ago 28, 2016 em 8:29 , Marcos

Re: [R-br] Contador por ordem de entrada

sugestão: usando data.table library(data.table) DD = data.frame( id = c(101L, 101L, 101L, 101L, 102L, 102L, 103L, 104L, 104L, 104L), nome = c("jose", "jose", "jose", "jose", "ana", "ana", "mara", "ze", "ze", "ze"), data_inicio = c( "01/11/2013",

Re: [R-br] Simbolo

sugestão: x = 1:10 y = 25:34 plot(x ~ y, ylab = expression(theta~degree~C)) ou plot(x ~ y, ylab = expression(Temperatura~degree~C)) saudações Em 13/07/2016 10:50, Marcus Nunes via R-br escreveu: Fabiana, Tente rodar o código abaixo e veja se ele funciona. Se funcionar, adapte-o para o seu

Re: [R-br] Instalação de pacote RCurl no R [Linux 16.04]

olá segundo a linha de erro: checking for curl-config... no você precisa instalar o |curl-config | no terminal linux digite: sudo apt-get install libcurl4-gnutls-dev No R instale o Rcurl saudações| ||| Em 11/07/2016 12:39, Paulo Henrique Pimenta via R-br escreveu: Olá Listeiros, Estou

Re: [R-br] subset de observações específicas de uma variável

sugestão: DADOS[nchar(DADOS$HScode) == 4,] ou subset(DADOS, nchar(HScode) == 4) saudações Em 07/07/2016 23:36, Alexandre Loures via R-br escreveu: Boa noite! Tenho uma base de dados em que uma das variáveis (HScode) possui três níveis. Por exemplo, 01 0101 010122 0102 010233 02 0201

Re: [R-br] Inputando registros

olá segue sugestões: ## usando data.frame DF = data.frame( var1 = c(20L, 40L, 40L, 40L, 50L, 50L, 60L), var2 = c(25L, NA, 45L, NA, 55L, NA, 60L)) DF[is.na(DF$var2),] = DF[is.na(DF$var2),][1] DF ## usando data.table library(data.table) ## data.table DT = data.table(

Re: [R-br] RES: Operação entre datas

ot;%d/%m/%y") ## calcula o intervalo em anos >banco$IDADE2 = floor(age_calc(banco$NASCIMENTO, banco$DATA_ATO, units = "years")) Error in seq.int <http://seq.int>(r1$year, to$year, by) : 'from' cannot be NA, NaN or infinite Além disso: Warning

Re: [R-br] RES: Operação entre datas

Quando executo o script para calcular o período retorna erro por conta dos NA’S. Obrigado pela ajuda. Enviado do meu telefone Windows 10 *De: *salah via R-br <mailto:r-br@listas.c3sl.ufpr.br> *Enviado:*quinta-feira, 16 de junho de 2016 23:23 *Para: *r-br@listas.c3sl.ufpr.br <

Re: [R-br] Operação entre datas

segue sugestão library(eeptools) DADOS = data.frame( NASCIMENTO = c("26/11/97", "20/03/99", "14/05/99","06/05/98", "03/01/00", "19/05/97", "01/02/01", "28/11/97", "10/02/00"), DATA_FATO = c("23/02/15", "28/03/15", "08/04/15", "08/04/15", "08/04/15", "08/05/15", "17/05/15",

Re: [R-br] Windows Server 2008 (64-bit)

Olá Daniel Sugestão: Instale o Windows Server 2008 (64-bit) numa máquina virtual tenho apreço por essa: https://www.virtualbox.org/ windows: https://www.microsoft.com/en-us/download/details.aspx?id=23163 saudações Em 09/06/2016 15:17, Daniel Marcelino via R-br escreveu: Windows Server 2008

Re: [R-br] Leitura de Arquivo

sugestão: dataset = read.csv("C:\\Users\\Anselmo\\Desktop\\trab\\BC-pOct89.TL-1", sep="", header = FALSE) saudações Em 02/06/2016 00:15, Anselmo Alves de Sousa escreveu: Boa noite listeiros Estou com a missão de auxiliar um colega no trabalho escolar. A primeira missão é ler o dado.

Re: [R-br] Erro ao fazer download de PDFs: failed, no valid url links detected

11.PDF" resolvendo em: "http://journals.plos.org/plosone/article/asset?id=10.1371%2Fjournal.pone.0123511.PDF; Segue um pequeníssimo ROBOT, veja que ele não prevê https e necessita das urls dos jornais alvo. # Author: salah #

Re: [R-br] Contar casos em cada variável e em todas as variáveis

Caro Segue sugestões library(reshape2) ATO$id = 1:7 ##acrescenta uma coluna de controle para o melt ##remodelando sua tabela ATOMelt = melt(ATO, id="id", variable.name="ATO_n", value.name="ART") ##usando dplyr library(dplyr) ATOMelt %>% count(ART) ##usando o poderoso data.table

Re: [R-br] Multiplots usando lattice

Olá Marcos Talvez este exemplo lhe ajude library(lattice) # Data w <- as.matrix(dist(Loblolly)) x <- as.matrix(dist(HairEyeColor)) y <- as.matrix(dist(rock)) z <- as.matrix(dist(women)) # Plot assignments pw <- levelplot(w, scales = list(draw = FALSE)) # "scales..." removes axes px <-

Re: [R-br] Pacote XTable - Erro de saida

Olá Elias No RStudio abra um novo arquivo R Markdown, marque a opção HTML. Abrirá um arquivo com exemplos, é só acrescentar: ```{r results='asis', echo=FALSE} library(xtable) data(tli) print(xtable(tli[1:20, ]), type='html') ``` é só rodar clicando no ícone "Knit HTML" Não há nenhum

Re: [R-br] Completar linhas de uma variável

Olá segue: ## vetor tipo character PROCESSO = rep(c("5.155.855-8","5.153.696-8","5.154.220-6",NA,NA,NA,"5.155.401-1","5.155.960-6",NA,"5.157.157-7","5.157.658-4"), 1000) um pequeno ajuste ## evita que transforme em factor dados = data.frame(PROCESSO, stringsAsFactors = FALSE) indice =

Re: [R-br] Casas Decimais

Olá Como os colegas já colocaram a conversão do número binário para um número real não é trivial. Se você pretende trabalhar com alta precisão numérica você precisa estudar o deus da informática - ponto flutuante - (/floating point)./ sugiro a leitura:

Re: [R-br] Separação de dados em classes usando if e ifelse

Olá Alexandre Tente: dados$classes <- ifelse(dados$V2 %in% GROUP1,"Group1" ,"Group2") ? match Sugiro você usar o pacote data.table ou dplyr V1 = c(1,1,1,1,1,12,12,12,12,12,31,31,31,31,31,31,31,142,142,142) V2 = paste('P', V1, sep = "") GROUP1 = c("P12B","P12C","P12D","P12E",

Re: [R-br] Aumentar o tamanho de fontes em gráfico ggplot2

Olá Marcelo A função opts foi substituída por theme O título pode ser acrescentado com ggtitle("Título do gráfico") A data da publicação do r-bloger é de 2012, de lá prá cá o ggplot2 sofreu muitas alterações(melhorias) A função geo_text() é para inserir texto no gráfico veja aqui:

Re: [R-br] Função para remover colunas

Olá O colega já lhe deu a solução, mas se é pra facilitar a vida do usuário leigo segue sugestão (df = data.frame( a=letters[10], b=LETTERS[10], c=seq(10), d=letters[1:10], e=letters[1:10] )) ## exemplo1 remove.var = function(dataname, vars) { dataname[vars]

Re: [R-br] Cores em mapas

Olá Mateus segue sugestão: ## paleta de cores cor1 = heat.colors(15) cor2 = terrain.colors(15) cor3 = topo.colors(15, alpha = .5) cor4 = palette(rainbow(9)) library(RColorBrewer) cor5 = brewer.pal(7, "BrBG") contour( sort(lon), lat, levels = intervalos, nlevels

Re: [R-br] Gráfico Pareto

Caro, segue sugestão: ## dados dd = data.frame(valor = 2*abs(f1), grupo = names(f1)) ## equação lb1 = paste("S[ef]%.%t[crit]==", s) library(ggplot2) ## gráfico p = ggplot(dd, aes(grupo, valor, fill=grupo)) + theme_bw() + geom_bar(stat = "identity") + xlab(NULL) + ylab(NULL) +

Re: [R-br] Importação de planilha de contingência

ados) dados ## nova row.names rownames(dados) = rn dados ## remove a coluna X dados = dados[-1] dados ## verifique ?duplicated ?make.names saudações Em 16/02/2016 10:43, Marie-Christine . escreveu: Olá Salah, Muitíssimo obrigada pela ajuda. Dessa vez deu certo e as análises rodaram tranquil

Re: [R-br] Importação de planilha de contingência

Olá Marie O erro: " double 'row.names' are not allowed" , significa que não é permitido duplicatas no row.names. Sugiro você editar o nomes das estações amostrais numerando ou adicionando a data de coleta No seu exemplo de tabela adicionei AS-B-D e o read.csv2 me deu o mesmo erro, quando

Re: [R-br] Importação de planilha de contingência

Olá Marie indique que sua primeira coluna é o row.names, caso contrário ele irá carregar como uma variável (coluna) e no R colunas sem nome será acrescentado o nome default "X" ( se tiveres várias colunas sem nome, será: X, X.1, X.2, ...) Lembre-se que row.names devem ter nomes únicos(não

Re: [R-br] Abrir Arquivo de Extensão .nc

Olá sugestão no site http://stackoverflow.com/questions/16443211/error-when-trying-to-import-netcdf-to-r |library(ncdf4) mycdf <- nc_open('endereço/nome_arquivo.nc') str(mycdf) | saudações Em 10/02/2016 14:56, Yury Duarte escreveu: Boa tarde colegas programadores! Estou com alguns

Re: [R-br] problema biblioteca netcdf

Olá Package ‘ncdf’ was removed from the CRAN repository. Formerly available versions can be obtained from the archive . Archived on 2016-01-11: use 'RNetCDF' or 'ncdf4' instead. https://cran.r-project.org/web/packages/ncdf/index.html

Re: [R-br] Large Merge

Tente: ## determine a chave primaria usando data.table setkey(bancolink, NUMERO_CPF) CadfAmerge = bancolink[fichaAlink] saudações Em 14/01/2016 14:13, Wagner Tassinari escreveu: CadfAmerge = bancolink[fichaAlink] ___ R-br mailing list

Re: [R-br] Loop para leitura de picos

Olá segue uma sugestão: vp = function(onda){ pico = NULL vale = NULL for(i in 2:(length(onda)-1)) { ## seleciona valores maximos if(onda[i+1] < onda[i] & onda[i-1] < onda[i]) {

Re: [R-br] precisão da operação

Esse é o grande Deus da informática: "floating point" Faça options(digits = 22) k = 123456789123456789 sprintf('%1.2f', k) Sugiro a leitura: http://www.burns-stat.com/pages/Tutor/R_inferno.pdf saudações Em Ter, 2015-09-22 às 07:54 -0300, Cleber N.Borges escreveu: > > 12345678912345678+1 >

Re: [R-br] Escala de um eixo

Olá Veja se lhe agrada library(reshape2) library(ggplot2) taxa = read.table("clipboard",header=TRUE,dec=",") taxa.m = melt(taxa, id=1, variable.name='Local', value.name='valor') ggplot(taxa.m, aes(factor(Ano), valor, group=Local, color=Local)) + theme_bw() +

Re: [R-br] Erro instalar pacote smatr

Olá Marcelo Na mensagem de erro diz: there is no package called ‘Rcpp’ Instale o pacote Rcpp saudações ___ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem

Re: [R-br] Encoding

Experimente usar o pacote rgdal library(rgdal) mapa1 - readOGR(dsn = BRA_adm1.shp, layer = BRA_adm1, encoding = latin1) saudações ___ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de

Re: [R-br] Histograma em escala logarítmica

Segue sugestões r = c(1017285.7 ,2989151.8 ,4059346.0 ,4256299.0 ,8376572.0 ,9560400.0 ,13007977.0 ,25303118.0 ,33621704.0 ,55951560.0 ,101155984.0 ,144322192.0 ,376711232.0 ,731957760.0 ,9444513800.0 ,9912163300.0 ,9918688300.0 ,9921105900.0 ) ## sugestão 1 h = hist(r, plot = FALSE, breaks =

Re: [R-br] Regressão espacial com variavel transformada log normal

tente: log(x + 1) Em Qua, 2015-06-10 às 10:34 -0300, Samuel luna de almeida escreveu: Muito obrigado Luis, Paulo e Luis! São zero mesmo (locais onde não há casos para resultarem em taxas)... Consegui gerar lm para a regressão espacial com os dados originais, com muitos zeros, porém

Re: [R-br] Mapa / dengue

Olá, Segue uma sugestão library(sp) library(maptools) library(rgdal) library(maps) library(ggplot2) ##setwd('endereço de trabalho que receberá os arquivos') ## site do shapefile - neste site você pode baixar de todos os estados url0 =

Re: [R-br] RES: Impressão do objeto Date

Olá Está faltando um parenteses no final de: write.csv(dfi, paste(diretorio, saida.csv, sep = /, collapse = )) ___ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem

Re: [R-br] Knitr iniciante

:10) plot(luglikp1) ``` saudações salah ___ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

Re: [R-br] Leitura de arquivo .shp

) saudações salah Em 20 de abril de 2015 19:18, Hélio Gallo Rocha heliogalloro...@gmail.com escreveu: Paulo, obrigado pela indicação do texto, mas ele ão mostra como se extrai as coordenadas do polígono. Após plotar o polígono o comando text insere uma informação no centro do polígono, nada