6
Pode usar apply para aplicar paste às linhas selecionadas (usando collapse ao invés de sep):
df$junto <- apply(df[, 1:5], 1, paste, collapse = "")
> head(df)
V1 V2 V3 V4 V5 junto
1 9 9 9 9 9 99999
2 1 2 8 7 2 12872
3 4 5 5 3 5 45535
4 2 4 7 6 4 24764
5 3 7 4 2 0 37420
6 0 9 0 9 3 09093
5
O problema pode ser resolvido com um truque diff/cumsum, que dá segmentos do vetor a que cumprem a condição, seguido de ave/seq_along, para dar as sequências de inteiros. E para por os zeros nos sítios certos, multiplica-se esse resultado pela condição f.
f <- a > 100
g <- cumsum(c(FALSE, diff(f) != 0))
b <- ave(g, g, FUN = seq_along)
res <- ...
respondida 15/02 às 13:32
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
5
Uma expressão regular que captura o conteúdo entre strings resolve:
a <- c("c(182752.414, 179107.7)", "c(200491.435, 195097.2)", "c(217566.642, 211641.4)")
as.numeric(sub("^c\\((.*),.*", "\\1", a))
#> [1] 182752.4 200491.4 217566.6
Entendendo a expressão: ^ indica o início da string; c\\( corresponde ...
5
Segundo a secção Value de help("hnp), o objeto Graph16 é uma lista de classe "hnp". Estes objetos têm membros x, lower, upper, median e residuals, que são os vetores representados no gráfico. Primeiro tem que se criar um data.frame com esses vetores e depois traçar o gráfico.
library(ggplot2)
G16 <- with(Graph16, data.frame(x, lower, ...
respondida 11/02 às 16:06
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
3
Note o que diz a mensagem de erro:
Error in pbias.default(sim$Prec, obs$Prec, na.rm = TRUE) : Invalid argument type: 'sim' & 'obs' have to be of class: c('integer', 'numeric', 'ts', 'zoo')
Ou seja, a função pBias necessita de valores numéricos. Como é possível ver abaixo, a coluna Prec de obs é formada por caracteres:
str(sim)
#> 'data.frame': ...
respondida 22/02 às 19:06
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
3
...
library(xlsx)
producao_per_discente<-split(producao, producao$discente)
lapply(seq_along(producao_per_discente),
function(i) write.xlsx(producao_per_discente[[i]],
file = paste0(names(producao_per_discente)[[i]],'.xlsx')))
Utilizei o pacote xlsx para gravar os arquivos.
O split produz uma lista de dataframes, ...
respondida 11/02 às 16:46
lmonferrari
3.45311 medalhas de ouro44 medalhas de prata1919 medalhas de bronze
3
Creio que
Se remover a coluna valor antes de reformatar para largo;
se passar id_cols = c(ano, estado) ao pivot_wider
o problema fica resolvido.
dados %>%
mutate(ano = year(data)) %>%
group_by(ano, estado) %>%
summarise(`Empréstimo com Consignação em Folha` = sum(`Empréstimo com Consignação em Folha`),
Habitacional = sum(...
respondida 1/02 às 16:26
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
3
Para reformatar os dados de formato longo para largo, pode usar o tidyverse:
library(dplyr)
library(tidyr)
dados %>%
pivot_wider(
id_cols = c(Year, Month),
names_from = Subcategory,
values_from = Value
)
Dados
dados <-
structure(list(Subcategory = c("Market Capitalisation", "Market Capitalisation",
"Market ...
respondida 31/01 às 18:36
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
3
Acredito que o argumento align = "right" dentro da função zoo:rollmean seja o que é necessário para resolver esse problema.
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> ...
respondida 10/02 às 20:51
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
3
A1:A2 não irá funcionar porque está lidando com string de texto. Como sugerido por @rui-barradas nos comentários, pode montar a sequência usando paste:
length(which(exemplo %in% paste0("A", 1:4)))
#> [1] 134
Outra opção é utilizar uma expressão regular indicando a letra e a faixa de dígitos desejada:
length(grep("A[1-4]", exemplo))
#&...
2
Talvez a seguinte função possa resolver o problema.
Aceita duas strings no formato da pergunta e cria um vetor com os números em sequência.
rangeAlphanum <- function(x, y){
xchar <- unlist(strsplit(x, "[[:digit:]]+"))
xnum <- unlist(strsplit(x, "[^[:digit:]]"))
ynum <- unlist(strsplit(y, "[^[:digit:]]"))
xnum ...
respondida 8/02 às 21:16
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
2
Pode usar httr::add_headers para especificar a linguagem desejada:
library(rvest)
library(httr)
library(dplyr)
imdb <-
paste0(imdb_url, "/textlist") %>%
html_session(add_headers("Accept-Language" = "en")) %>%
read_html() %>%
html_table(fill = TRUE) %>%
.[[1]] %>%
select("Rank & Title",...
2
Se quer fazer um sumário de várias colunas, não precisa converter de comprido para longo para depois voltar para comprido; basta aplicar o mesmo cálculo para todas as colunas selecionadas.
colSel <- names(dados)[3:5] # nomes das colunas de interesse
funRes <- function(x) sum(x)/lag(sum(x)) - 1 # função para resumir os dados
Com ...
2
dsets é um vetor de strings, não é uma lista de data.frames.
Para aceder aos data.frames tem que ir buscá-los com get.
Além disso, não é necessário compor os nomes dos ficheiros um a um, o paste é uma função vetorizada.
dsets <- c('wairlines', 'wairports', 'wflights', 'wplanes', 'wweather')
fl <- paste0('./input_orig/', dsets, '.csv')
env <- ....
respondida 15/02 às 15:37
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
2
O seguinte código conta as medalhas que o Brasil teve nos Jogos Olímpicos.
library(dplyr)
library(readr)
library(ggplot2)
fl <- list.files(pattern = 'athlete.*\\.csv$')
fl
cols_spec <- cols(
ID = col_double(),
Name = col_character(),
Sex = col_character(),
Age = col_double(),
Height = col_double(),
Weight = col_double(),
Team = ...
respondida 23/02 às 7:47
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
2
Eu sortearia primeiro os valores de rendaIE e rendaVariavel. Da maneira como essas proporções estão definidas, as suas somas nunca ultrapassarão 40%. A partir daí, rendaFixa seria a diferença entre 100% e a soma rendaIE + rendaVariavel. Computacionalmente, seria algo assim:
set.seed(1)
rendaIE <- runif(1, 0, 0.1)
rendaVariavel <- runif(1, 0, 0.3)
...
respondida 22/02 às 17:37
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
3
De acordo com a documentação do R, não há diferença para maioria das aplicações, embora aspas duplas sejam preferidas:
Single and double quotes delimit character constants. They can be used interchangeably but double quotes are preferred (and character constants are printed using double quotes), so single quotes are normally only used to delimit character ...
respondida 2 horas atrás
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
1
O função scale_fill_distiller não possui uma paleta de cores chamada #2D3E50, pois o pacote RColorBrewer não define essa paleta. Para verificar as paletas disponíveis, rode o comando ?RColorBrewer.
Se o objetivo for sair de uma cor clara (como branco) e chegar na cor #2D3E50, recomendo usar scale_fill_gradient. Para criar uma sequência de cores para essa ...
respondida 25/02 às 17:03
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
1
Como apontado por @guilherme-parreira nos comentários, se sua função retorna vetores com diferentes comprimentos, é melhor usar uma lista. Como não postou um código reproduzível, escrevi de exemplo uma função que retorna um vetor numérico de comprimento aleatório:
set.seed(462)
vetor.comp.aleat <- function(...) seq(sample(1:6, 1))
resultado <- lapply(...
1
Você pode usar split:
data = data.frame(comprar=comprar, custo=custo)
Y = split(data, data$comprar)
Para cada nível diferente de comprar vc vai ter um data.frame dentro de uma lista:
$a
comprar custo
1 a 12
2 a 14
3 a 16
4 a 18
$ab
comprar custo
13 ab 34
14 ab 36
15 ab 38
16 ab 42
$...
1
Você está fornecendo dois pontos como coordenadas xy; deve especificar uma quantidade igual à de pontos a serem plotados. Mas fornecer coordenadas independentes do conjunto de dados é uma prática ruim; ao invés disso, deixe a plot ou ggplot determinar os eixos pelos dados, ajustando os limites de exibição se precisar.
library(ggplot2)
dataSt <- read.csv2(...
1
Aqui estão três modos diferentes, com três pacotes diferentes, de exportar uma lista de data.frames para um ficheiro Excel ".xlsx" com cada data.frame em uma folha.
A lista é a da pergunta. O split cria uma lista com nomes e esses nomes vão ser os nomes das várias folhas. Os ficheiros têm os nomes "producao_per_discente_n.xlsx", n = 1, 2, ...
respondida 11/02 às 20:38
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
1
A pergunta está com a tag dplyr, mas eis uma alternativa usando data.table:
library(data.table)
dt <- as.data.table(x)
dt[, `:=`(spread_3 = frollmean(x, 3), spread_5 = frollmean(x, 5))]
> dt
x spread_3 spread_5
1: 30 NA NA
2: 35 NA NA
3: 10 25.00000 NA
4: 25 23.33333 NA
5: 15 16.66667 23
6: 20 20.00000 ...
1
Se você estiver no Linux, você poder rodar o htop no terminal e acompanhar o consumo de memória RAM.
Mas o que pode ser o problema para você é o que está descrito no warning do lavaan:
lavaan WARNING: some ordered categorical variable(s) have more than 12 levels: idade_coop n_pac membros cs_sobre_cooperados soma_pl_deposito ativocomp pl_sobre_ativos roa
...
1
Respondendo a primeira e terceira pergunta:
UI
conditionalPanel(
'input.dataset === "EPE"',
checkboxGroupInput("show_vars", "Selecione as variáveis:",
names(EPE), selected = names(EPE))),
mainPanel(
...
1
A função mutate() do dplyr também pode ser uma opção:
library(dplyr)
mutate(df, z=c(1,2))
x y z
1 a 1 1
2 b 2 2
1
Uma outra possibilidade é usando a função add_row() do dplyr:
library(dplyr)
add_row(df, x="c", y=3)
x y
1 a 1
2 b 2
3 c 3
Apenas as respostas wiki não pertencentes à comunidade mais votadas e de um tamanho mínimo se qualificam
Tags relacionadas
r × 2219ggplot2 × 234
rstudio × 155
data.frame × 154
dplyr × 102
plot × 66
matriz × 51
dataframe × 47
regressão × 46
gráfico × 45
loop × 40
funções × 39
tidyverse × 39
shiny × 35
web-scraping × 30
array × 27
string × 27
for × 26
regex × 25
python × 23
lista × 23
séries-temporais × 23
data × 22
rmarkdown × 20
csv × 19