Março 2021 - R-br

[OFF -Tópic] Cotas em concursos para negros e índios!
by Andre Oliveira 12 Jun '49

12 Jun '49

Pessoal, tem um colegar meu que vou fazer um concurso ele é descendente de negro ele é pardo. Ele veio com a pergunta como provar que sou negro, pois, tem vagas reservada para negros e índios? Eu sinceramente não sei e não tenho ideia pois nunca tive esta curiosidade. O que de fato comprova sua raça? Algum documento? O que são usados em concursos para provar? obrigado André Oliveira Souza

5 6

Legenda eixo X
by Luciano F. Sgarbi 10 Jun '49

10 Jun '49

Prezados, Estou tentando centralizar a legenda do eixo X em uma figura com vários gráficos. Estou conseguindo centralizar a legenda da linha inferior como no exemplo, mas as linhas do meio não. par(mfrow=c(2,2)) plot(rnorm(100),xlab="",ylab="y1") plot(rnorm(100),xlab="",ylab="y2") mtext(side=1,cex=2,line=-1.8,text="Variável Explanatória 1",outer=TRUE) ### o problema está aqui, pois a legenda desce para a parte inferior da figura. plot(rnorm(100),xlab="",ylab="y1") plot(rnorm(100),xlab="",ylab="y2") mtext(side=1,cex=2,line=-1.8,text="Variável Explanatória 2",outer=TRUE)## Esse dá certo Alguém podia dar uma luz de como eu posso fazer isso? Abraços -- *Luciano F. Sgarbi* Mestrando em Ecologia e Evolução Laboratório de Ecologia de Insetos (sl. 222) Departamento de Ecologia Instituto de Ciências Biológicas - ICB 1 Universidade Federal de Goiás, campus II Goiânia-GO 74001-970 Brazil

2 2

Erro no gap.boxplot
by Michele Claire Breton 30 Mar '21

30 Mar '21

Caros(as) senhores(as), Estou com dificuldade para usar o gap.boxplot. Eu fiz o dowload do pacote Plotrix e não consigo rodar nem o exemplo da documentação da sintaxe, volta como erro: Error in gap.boxplot(vec, gap = list(topo = c(20, 60)), principal = "Mostrar valores discrepantes separadamente") : could not find function "gap.boxplot" Para o gráfico de barras e o gráfico de linha, rodei o exemplo perfeitamente. Também gerei o boxplot sem o gap no eixo, aí sim, com meus dados. O que estou fazendo de errado? Muito obrigada pela ajuda. -- Com os melhores cumprimentos, *Dra. Michèle Claire Breton* Investigadora auxiliar Faculdade de Ciências da Saúde Universidade da Beira Interior Covilhã - Portugal

5 4

Limpar console!
by Nory 18 Mar '21

18 Mar '21

Olá pessoal, Uso o R dentro do Emacs no meu macbook. Gostaria de saber se alguém tem alguma dica para limpar o console? O "Ctrl + L" no RStudio funciona, mas não para o R dentro do Emacs. -- Nory Daniel de Carvalho Erazo Técnico em Sistemática Vegetal/Herbário INPA Coordenação de Biodiversidade - CBio Instituto Nacional de Pesquisas da Amazônia - INPA Ministério da Ciência, Tecnologia e Inovação - MCTI Av. André Araújo, 2.936 Bairro: Petrópolis, CEP: 69067-375 Manaus - AM, Brasil Telefone: (92) 3643-3125 Celular: (92) 99378-7592 nory(a)inpa.gov.br norydaniel(a)gmail.com

2 2

Recuperar mensagens
by sznelwar＠uol.com.br 15 Mar '21

15 Mar '21

2 1

Identificando e criando nova variável por uma expressão regular
by Felipe Barletta 15 Mar '21

15 Mar '21

Prezados, Preciso de uma ajuda para resolver a seguinte questão: Possuo uma lista de nomes de medicamentos. Preciso identificar seus nomes em um vetor em que há informações de medicamentos preescritos. Para isso estou usando a função grep(). Após identificar, quero incluir no data frame uma nova coluna contendo o nome do medicamento da primeira lista. Segue um código reproduzível ##### Lista de medicamentos que guardei em um objeto chamado patterns patterns <- structure(c(1L, 2L, 3L, 4L, 6L, 7L, 5L, 8L, 9L, 10L, 11L), .Label = c("Oritavancina", "Oxacilina", "Pefloxacino", "Penicilina", "Pexiganan", "Piperacilina", "Piperacilina-tazobactam", "Pirazinamida", "Plazomicina", "Polimixina B", "Posilozid"), class = "factor") ### Amostra do Data frame em que preciso encontrar os nomes da lista acima df <- structure(list(nome = structure(c(9L, 11L, 3L, 3L, 7L, 2L, 4L, 5L, 8L, 6L, 10L, 1L), .Label = c("CLORETO DE POTASSIO DRAGEA 600MG", "CLORETO DE SODIO 0,9% SERINGA PREENCHIDA 5ML", "CLORETO DE SODIO SOLUCAO INJETAVEL 0,9% 10ML", "CODEINA FOSFATO SOLUCAO ORAL 3MGML 10ML ISCMPA @", "CODEINA FOSFATO SOLUCAO ORAL 3MGML 5ML ISCMPA @", "DipiRONA SOLUCAO INJETAVEL 500MGML 2ML", "FUROSEMIDA SOLUCAO INJETAVEL 10MGML 2ML", "HIDROCORTISONA SUCCINATO SODICO PO LIOFILO INJETAVEL 100MG", "ONDANSETRONA CLORIDRATO SOLUCAO INJETAVEL 2MGML 4ML", "Penicilina G BENZATINA PO LIOFILO INJETAVEL 1200000UI", "PIPERACILINA SODICA 4G + TAZOBACTAM SODICA 0,5G PO LIOFILO INJETAVEL" ), class = "factor"), ID = c(13750598L, 13797248L, 13797248L, 13797248L, 13727853L, 13727853L, 13922033L, 13922033L, 13923030L, 13923030L, 13923030L, 13877978L), date = structure(c(1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 5L, 6L), .Label = c("2021-01-01 00:08:14", "2021-01-01 00:20:39", "2021-01-01 00:22:18", "2021-01-31 23:53:48", "2021-01-31 23:58:50", "2021-01-31 23:59:47"), class = "factor")), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 583867L, 583868L, 583869L, 583870L, 583871L, 583872L), class = "data.frame") ### Usei esse código para identificar os medicamentos matches <- unlist(sapply(patterns, function(p) grep(p, df$nome, value = FALSE, ignore.case = TRUE) ) ) encontrados <- df[matches,] Porém além de identificar, quero incluir no df uma nova variável identificando o nome do medicamento que consta na lista (patterns) - como segue exemplo Abaixo: dados nome 1 ONDANSETRONA CLORIDRATO SOLUCAO INJETAVEL 2MGML 4ML 2 PIPERACILINA SODICA 4G + TAZOBACTAM SODICA 0,5G PO LIOFILO INJETAVEL 3 CLORETO DE SODIO SOLUCAO INJETAVEL 0,9% 10ML 4 CLORETO DE SODIO SOLUCAO INJETAVEL 0,9% 10ML 5 FUROSEMIDA SOLUCAO INJETAVEL 10MGML 2ML 6 CLORETO DE SODIO 0,9% SERINGA PREENCHIDA 5ML 583867 CODEINA FOSFATO SOLUCAO ORAL 3MGML 10ML ISCMPA @ 583868 CODEINA FOSFATO SOLUCAO ORAL 3MGML 5ML ISCMPA @ 583869 HIDROCORTISONA SUCCINATO SODICO PO LIOFILO INJETAVEL 100MG 583870 DipiRONA SOLUCAO INJETAVEL 500MGML 2ML 583871 Penicilina G BENZATINA PO LIOFILO INJETAVEL 1200000UI 583872 CLORETO DE POTASSIO DRAGEA 600MG ID date Medicamento 1 13750598 2021-01-01 00:08:14 Não consta na lista 2 13797248 2021-01-01 00:20:39 *Piperacilina* 3 13797248 2021-01-01 00:20:39 Não consta na lista 4 13797248 2021-01-01 00:20:39 Não consta na lista 5 13727853 2021-01-01 00:22:18 Não consta na lista 6 13727853 2021-01-01 00:22:18 Não consta na lista 583867 13922033 2021-01-31 23:53:48 Não consta na lista 583868 13922033 2021-01-31 23:53:48 Não consta na lista 583869 13923030 2021-01-31 23:58:50 Não consta na lista 583870 13923030 2021-01-31 23:58:50 Não consta na lista 583871 13923030 2021-01-31 23:58:50 *Penicilina* 583872 13877978 2021-01-31 23:59:47 Outro medicamento

3 3