Programação r

1

Soltar variável na fórmula lm ainda aciona erro de contraste

Estou tentando executar lm () em apenas um subconjunto dos meus dados e encontrando um problema. dt = data.table(y = rnorm(100), x1 = rnorm(100), x2 = rnorm(100), x3 = as.factor(c(rep('men',50), rep('women',50)))) # sample data lm( y ~ ., dt) # Use all x: Works lm( y ~ ., dt[x3 == …

9 r formula lm factors

1

Posicionamento automático de etiquetas para mapas GIS em R

Estou fazendo mapas GIS no R usando o sfpacote (e pacotes relacionados) para ler em shapefiles e ggplot2(e amigos) para plotagem. Isso funciona bem, mas não consigo encontrar (automaticamente / programaticamente) canais de etiqueta para recursos como rios e estradas. Esses recursos geralmente são cadeias de linhas, com formas irregulares. …

9 r gis spatial sf ggrepel

2

Exibir vários blocos de código de maneira concisa

Estou criando um blog blogdownno qual comparo o código de R e o código de Stata. Gostaria de mostrar os dois códigos para que o usuário possa comparar como é feito no R e no Stata. No entanto, colocar dois ou mais pedaços seguidos (código para R, código para saída …

9 r blogdown

5

Regex para remover zeros à esquerda em R, a menos que o caractere final (ou único) seja zero

gsub("(?<![0-9])0+", "", c("005", "0AB", "000", "0"), perl = TRUE) #> [1] "5" "AB" "" "" gsub("(^|[^0-9])0+", "\\1", c("005", "0AB", "000", "0"), perl = TRUE) #> [1] "5" "AB" "" "" A expressão regular acima é desse encadeamento SO, explicando como remover todos os zeros à esquerda de uma sequência em …

9 r regex string gsub stringr

1

Como posso usar o comando `td` do pacote` tempdisagg` para desagregar os dados mensais na frequência diária de dados?

Tenho dados de frequência mensal que estou tentando desagregar em dados de frequência diária. Então, eu uso o tdcomando do tempdisaggpacote em R usando o código abaixo: dat=ts(data[,2]) result=td(dat~1, conversion = "average", to = "day", method = "chow-lin-maxlog") Então eu recebo a seguinte mensagem de erro: Error in td(dat ~ …

9 r statistics time-series syntax-error frequency

1

A amostra de RcppArmadillo () é ambígua após a atualização do R

Normalmente, trabalho com uma função Rcpp curta que recebe como entrada uma matriz em que cada linha contém K probabilidades que somam 1. A função então amostra aleatoriamente para cada linha um número inteiro entre 1 e K correspondente às probabilidades fornecidas. Esta é a função: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> …

9 r rcpp rcpparmadillo

1

Maneira correta de retornar um ponteiro para um objeto `novo` a partir de uma função Rcpp

Considere 1) uma classe personalizada com uma impressão de memória potencialmente grande e 2) uma função de nível superior que realiza algum pré-processamento, depois cria e retorna um novo objeto de nossa classe personalizada. Para evitar cópias desnecessárias por valor, a função aloca o objeto e retorna um ponteiro para …

9 c++ r rcpp

6

Corresponder e remover caracteres duplicados: Substitua várias (3+) ocorrências não consecutivas

Estou procurando um regexpadrão que corresponda à terceira, quarta, ... ocorrência de cada personagem. Veja abaixo os esclarecimentos: Por exemplo, eu tenho a seguinte string: 111aabbccxccybbzaa1 Quero substituir todos os caracteres duplicados após a segunda ocorrência. A saída será: 11-aabbccx--y--z--- Alguns padrões de regex que eu tentei até agora: Usando …

9 python r regex string

4

Alguma maneira mais rápida de verificar se as listas em uma lista são equivalentes?

Aqui eu tenho números inteiros 1:7para quatro partições diferentes, ou seja, {1}, {2,3,4}, {5,6} e {7} e essas partições são escritas em uma lista, ou seja list(1,c(2,3,4),c(5,6),7),. Trato as partições como conjuntos, de modo que diferentes permutações de elementos em uma partição sejam reconhecidas como a mesma. Por exemplo, list(1,c(2,3,4),c(5,6),7)e …

9 r algorithm list performance

1

Alternativa mais rápida para separar ()

Eu mantenho um pacote que depende de chamadas repetidas para deparse(control = c("keepNA", "keepInteger")). controlé sempre a mesma e a expressão varia. deparse()parece gastar muito tempo interpretando repetidamente o mesmo conjunto de opções .deparseOpts(). microbenchmark::microbenchmark( a = deparse(identity, control = c("keepNA", "keepInteger")), b = .deparseOpts(c("keepNA", "keepInteger")) ) # Unit: microseconds …

9 r

3

O que não posso fazer com o dtplyr que consigo no data.table

Devo investir meu esforço de aprendizagem para os dados barafustante em R, especificamente entre dplyr, dtplyre data.table? Eu uso dplyrprincipalmente, mas quando os dados forem grandes demais para isso, usarei data.table, o que é uma ocorrência rara. Então agora que a dtplyrv1.0 saiu como uma interface data.table, parece que eu …

9 r dplyr data.table dtplyr

5

Criando uma nova coluna condicionalmente com base nas n linhas anteriores

Eu tenho um quadro de dados configurado da seguinte maneira: df <- data.frame("id" = c(111,111,111,222,222,222,222,333,333,333,333), "Location" = c("A","B","A","A","C","B","A","B","A","A","A"), "Encounter" = c(1,2,3,1,2,3,4,1,2,3,4)) id Location Encounter 1 111 A 1 2 111 B 2 3 111 A 3 4 222 A 1 5 222 C 2 6 222 B 3 7 222 …

9 r dataframe dplyr duplicates

2

R: Como separar elegantemente a lógica do código da UI / html-tags?

Problema Ao criar dinamicamente ui-elementos ( shiny.tag, shiny.tag.list...), muitas vezes eu achar que é difícil separá-lo de minha lógica de código e geralmente acabam com uma bagunça complicada de nested tags$div(...), misturado com loops e instruções condicionais. Embora chato e feio de se ver, também é passível de erros, por …

9 r shiny templating htmltools

1

Como inserir imagens em cada barra individual em um gráfico ggplot

Estou tentando comparar diferentes estreantes da NBA entre diferentes estatísticas, e achei que o gráfico ficaria ótimo se eu pudesse adicionar o rosto do jogador no final do gráfico, como nos gráficos r / dataisbeautiful . Meu código atualmente é este: a3 %>% ggplot(aes(x = reorder(Player, PPM), y = PPM)) …

9 r image ggplot2

3

Como classificar eficientemente os caracteres em uma string em R?

Como posso classificar eficientemente os caracteres de cada string em um vetor? Por exemplo, dado um vetor de strings: set.seed(1) strings <- c(do.call(paste0, replicate(4, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(3, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(2, sample(LETTERS, 10000, TRUE), FALSE))) Eu escrevi uma função que irá dividir cada seqüência de …

9 r string performance sorting

Perguntas com a marcação «r»