Março 2016 - R-br

Aumentar o tamanho de fontes em gráfico ggplot2
by Marcelo Laia 05 Mar '16

05 Mar '16

Olá, Rodei o exemplo de gráfico disponível em http://www.r-bloggers.com/how-to-plot-three-categorical-variables-and-one-c… Tive dois problemas: 1. não consegui incluir o Título do gráfico. É informado que a função opts não existe. 2. as fontes ficaram muito pequenas. Se eu insiro a função geom_text(size = 12, ....aes(....)) dá erro. Alguém saberia em que local do código eu posso alterar as fontes globalmente (de todo o gráfico)? Obrigado. -- Marcelo

2 1

Re: [R-br] problema ao conveter data:hora armazenado em texto (função strptime)
by Éder Comunello 04 Mar '16

04 Mar '16

Paulo, bom dia! Não consegui reproduzir o erro. Qual a saída de str(lista.exames)? ### <code r> lista.exames <- structure(list(id = 1:3, `Data de Liberação:` = c("10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34")), .Names = c("id", "Data de Liberação:"), row.names = c(NA, -3L), class = "data.frame") str(lista.exames) # 'data.frame': 3 obs. of 2 variables: # $ id : int 1 2 3 # $ Data de Liberação:: chr "10/06/2007 01:03:34" "10/06/2007 01:03:34" "10/06/2007 01:03:34" class(lista.exames[,"Data de Liberação:"]) # [1] "character" dt.hr <- lista.exames[,"Data de Liberação:"][1:3]; dt.hr # [1] "10/06/2007 01:03:34" "10/06/2007 01:03:34" "10/06/2007 01:03:34" strptime(dt.hr, format = "%d/%m/%Y %H:%M:%S", tz="America/Sao_Paulo") # [1] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" ### </code> ================================================ Éder Comunello Agronomist (UEM), MSc in Environ. Sciences (UEM) DSc in Agricultural Systems Engineering (USP/Esalq) Brazilian Agricultural Research Corporation (Embrapa) Dourados, MS, Brazil |<O>| ================================================ GEO, -22.2752, -54.8182, 408m UTC-04:00 / DST: UTC-03:00 Em 3 de março de 2016 17:03, Paulo Nogueira Starzynski <paulons(a)gmail.com> escreveu: > Pessoal, > estou tentando fazer uma conversão simples de data e hora armazena em um > vetor de caracters para formato "POSIXlt" "POSIXt". > Porém, está acontecendo algo que não entendo ao usar a função strptime. > > Se eu passo o vetor com os dados diretamete, retorna NA. > Se eu copio e colo os valores na função, dá certo... ou o mesmo usando o > dput, como abaixo... vejam... > > > > class(lista.exames[,"Data de Liberação:"])[1] "character"> dt.hr <- lista.exames[,"Data de Liberação:"][1:10]> strptime(dt.hr, format = "%d/%m/%Y %H:%M:%S") [1] NA NA NA NA NA NA NA NA NA NA > > > # não deu certo > > > dput(lista.exames[,"Data de Liberação:"][1:10])c("10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", > "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", > "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", > "10/06/2007 01:03:34")> dt.hr <- c("10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34")> strptime(dt.hr, format = "%d/%m/%Y %H:%M:%S") [1] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" > [4] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" > [7] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" > [10] "2007-06-10 01:03:34 BRT" > > > > # deu certo!! > > O que pode estar ocorrendo? Não basta o meu vetor original ser do tipo > character? > > > Abraços, > Paulo > > _______________________________________________ > R-br mailing list > R-br(a)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. >

1 0

Verificar duplicados na integra
by Wagner Tassinari 04 Mar '16

04 Mar '16

Olá pessoal, Gostaria de verificar as duplicidade na integra, o comando "duplicated" mostra os duplicados a partir do segundo registro. Mas eu gostaria de identificar desde o primeiro registro as duplicidade. Por exemplo, o que ocorre fazendo o comando "duplicated": df <- read.table(header=TRUE, text=' label value A 4 B 3 C 6 B 3 B 1 A 2 A 4 A 4 ') df = data.table(df, key = "value") df$duplic = duplicated(df, by="label") df label value duplic 1: B 1 FALSE 2: A 2 FALSE 3: B 3 TRUE 4: B 3 TRUE 5: A 4 TRUE 6: A 4 TRUE 7: A 4 TRUE 8: C 6 FALSE Mas na realidade gostaria que aparecesse da seguinte forma: df label value duplic 1: B 1 TRUE 2: A 2 TRUE 3: B 3 TRUE 4: B 3 TRUE 5: A 4 TRUE 6: A 4 TRUE 7: A 4 TRUE 8: C 6 FALSE Obrigado pela ajuda de vocÊs galera. ABS -- Wagner S. Tassinari Departamento de Matemática Universidade Federal Rural do Rio de Janeiro. BR-465, Km 7 - Seropedica, RJ - Brasil CEP: 23890-000 Skype: wagner.tassinari wtassinari(a)gmail.com tassinari(a)ufrrj.br ------------------------------------------------------- "Statistical thinking will one day be as necessary for efficient citizenship as the ability to read and write." (H.G.Wellis)

3 2

transferir modelo da função nls para a função curve() automaticamente
by Fernando Antonio de souza 03 Mar '16

03 Mar '16

Olá a todos. Estou criando uma função para trabalhar com o pacote Rpanel no qual pretendo criar uma lista de seleção com opção para escolher vários modelos. Como vou trabalhar com vários modelos quero criar funções que automatizem todo o processo. Minha questão é a seguinte: Eu ajusto um modelo não-linear, produzo um gráfico e adiciono a curva do modelo aos gráfico, utilizando a função curve(). Gostaria de passar o modelo para a função curve() de forma que dependendo do modelo selecionado a expressão incluída na função curve() se altere. Tentei a opção modelo$call conforme código abaixo o qual me retorna o lado esquerdo da fórmula. Entretanto não funciona. A função curve retorna a seguinte mensagem de erro; "Error in curve(fm1$call[[2]][[3]], add = TRUE, col = 2) : 'expr' must be a function, or a call or an expression containing 'x' Isto se deve ao fato de a formula retornada pelo comando fm1$call[[2]][[3]] ser do typo "language" typeof(fm1$call[[2]][[3]]) [1] "language" ja tentei utilizar o comando as.expression e não obtive sucesso. Procurei na internet e nada! Como eu posso substituir o comando "fm1$call[[2]][[3]]" na função curve de forma que ela funcione? fm1 <- nls(circumference ~ A/(1+exp((B-age)/C)), Orange,start = list(A = 160, B = 700, C = 350)) plot (circumference~ age, Orange) with(as.list(coef(fm1)), curve("fm1$call[[2]][[3]]",add=TRUE, col=2)) -- ======================================================================= Fernando Souza Zootecnista, DSc. Produção Animal e-mail:nandodesouza@gmail.com https://producaoanimalcomr.wordpress.com/ ========================================================================

3 8

problema ao conveter data:hora armazenado em texto (função strptime)
by Paulo Nogueira Starzynski 03 Mar '16

03 Mar '16

Pessoal, estou tentando fazer uma conversão simples de data e hora armazena em um vetor de caracters para formato "POSIXlt" "POSIXt". Porém, está acontecendo algo que não entendo ao usar a função strptime. Se eu passo o vetor com os dados diretamete, retorna NA. Se eu copio e colo os valores na função, dá certo... ou o mesmo usando o dput, como abaixo... vejam... > class(lista.exames[,"Data de Liberação:"])[1] "character"> dt.hr <- lista.exames[,"Data de Liberação:"][1:10]> strptime(dt.hr, format = "%d/%m/%Y %H:%M:%S") [1] NA NA NA NA NA NA NA NA NA NA # não deu certo > dput(lista.exames[,"Data de Liberação:"][1:10])c("10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34")> dt.hr <- c("10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34", "10/06/2007 01:03:34", "10/06/2007 01:03:34",+ "10/06/2007 01:03:34")> strptime(dt.hr, format = "%d/%m/%Y %H:%M:%S") [1] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" [4] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" [7] "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" "2007-06-10 01:03:34 BRT" [10] "2007-06-10 01:03:34 BRT" > # deu certo!! O que pode estar ocorrendo? Não basta o meu vetor original ser do tipo character? Abraços, Paulo

1 0

Converter JSON
by Elias Carvalho 03 Mar '16

03 Mar '16

Ola Pessoal Eu preciso transformar um json em formato tabular. Alguem pode ajudar ? -- Best regards... 8^) “The mind that is open to new ideas never come back to its original size” *Albert Einstein* _____________________________________________ Prof. Elias César Araújo de Carvalho CV: http://lattes.cnpq.br/4248328961021251

5 5

Merge não funciona
by Wagner Tassinari 02 Mar '16

02 Mar '16

Olá pessoal, tudo bem ? Estou com um dúvida quando executo a função merge. Tenho um banco de dados x com 1.630.328 registros. Tenho um outro banco de dados y com 503.615. Quando irei fazer o relacionamento dessas bases, x e y, com a chave primária chamada ID. w = merge(x, y, by.x=c('ID'), by.y=c('ID'), all.x = T) Neste caso, como fixei o o numero de resgistroa igual ao do banco x, o banco w deveria ter o mesmo número de x, mas isso não ocorre. O banco w fica com 1.641.990. Gostaria de saber o que está ocorrendo, e como posso "blindar" o número de registros de w sendo igual ao do banco x. Muito obrigado mais uma vez pessoal. -- Wagner S. Tassinari Departamento de Matemática Universidade Federal Rural do Rio de Janeiro. BR-465, Km 7 - Seropedica, RJ - Brasil CEP: 23890-000 Skype: wagner.tassinari wtassinari(a)gmail.com tassinari(a)ufrrj.br ------------------------------------------------------- "Statistical thinking will one day be as necessary for efficient citizenship as the ability to read and write." (H.G.Wellis)

3 2