Articles of r

Faça o fundo de um gráfico de colors diferentes em diferentes regiões

Eu estou fazendo um simples barchart em R usando o pacote ggplot2. Em vez do padrão cinza, eu gostaria de dividir o plano de fundo em cinco regiões, cada uma com uma cor diferente (mas similarmente subestimada). Como eu faço isso? Mais especificamente, eu gostaria que as cinco regiões coloridas funcionassem de 0 a 25, […]

Uso múltiplo do operador posicional `$` para atualizar matrizes aninhadas

Esta questão está intimamente relacionada a esta e vou considerar o conselho dado com relação ao design do esquema em um contexto NoSQL, mas estou curioso para entender isso: Perguntas reais Suponha que você tenha o seguinte documento: _id : 2 abcd name : 2 unittest.com paths : 4 0 : 3 path : 2 […]

Definindo limites de eixo individuais com facet_wrap e scale = “free” em ggplot2

Estou criando um gráfico facetado para ver os valores previstos x reais lado a lado com um gráfico do valor previsto versus os resíduos. Estarei usando shiny para ajudar a explorar os resultados dos esforços de modelagem usando diferentes parâmetros de treinamento. Eu treino o modelo com 85% dos dados, teste os 15% restantes e […]

Criar um barplot empilhado onde cada pilha é dimensionada para sumr 100%

Eu tenho um data.frame como este: df <- read.csv(text = "ONE,TWO,THREE 23,234,324 34,534,12 56,324,124 34,234,124 123,534,654") Eu quero produzir uma plotagem de barra de porcentagem que se parece com isso (feita no LibreOffice Calc): Assim, as barras devem ser padronizadas para que todas as pilhas tenham a mesma altura e sums para 100%. Até agora, […]

Interpretando a advertência “condition has length> 1” da function `if`

Eu tenho uma matriz: a <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, […]

Como faço para salvar avisos e erros como saída de uma function?

Eu estou usando lapply para executar uma function complexa em um grande número de itens, e gostaria de salvar a saída de cada item (se houver) junto com quaisquer avisos / erros que foram produzidos para que eu possa dizer qual item produzido qual aviso / erro. Eu encontrei uma maneira de capturar avisos usando […]

Por que as declarações ifelse de R não retornam vetores?

Eu encontrei as declarações ifelse de R para ser bastante útil de vez em quando. Por exemplo: ifelse(TRUE,1,2) # [1] 1 ifelse(FALSE,1,2) # [1] 2 Mas estou um pouco confuso com o seguinte comportamento. ifelse(TRUE,c(1,2),c(3,4)) # [1] 1 ifelse(FALSE,c(1,2),c(3,4)) # [1] 3 Esta é uma opção de design acima do meu índice de pagamento?

Uma function semelhante ao representante de R em Matlab

Eu estou procurando uma function que se comporta de forma semelhante à function rep em R para Matlab. Por exemplo, com rep eu posso fazer o seguinte: > rep(c(1,2,3),times=3) [1] 1 2 3 1 2 3 1 2 3 > rep(c(1,2,3),each=3) [1] 1 1 1 2 2 2 3 3 3 > No matlab existe […]

Variáveis ​​locais dentro de aes

Eu estou tentando usar uma variável local em aes quando eu traçar com ggplot. Este é o meu problema resumido à essência: xy <- data.frame(x=1:10,y=1:10) plotfunc <- function(Data,YMul=2){ ggplot(Data,aes(x=x,y=y*YMul))+geom_line() } plotfunc(xy) Isso resulta no seguinte erro: Error in eval(expr, envir, enclos) : object ‘YMul’ not found Parece que não consigo usar variables ​​locais (ou argumentos […]

Dificuldade de comparação numérica em R

Estou tentando comparar dois números em R como parte de uma condição if-statement: (ab) >= 0.5 Neste caso particular, a = 0,58 eb = 0,08 … e ainda assim (ab) >= 0.5 é falso. Estou ciente dos perigos de usar == para comparações exatas de números, e isso parece relacionado: (a – b) == 0.5) […]