[R-br] Package Tibble

[Enoch]

Edmar,

Conseguiu resolver o problema?  O seu R e os os pacotes estão atualizados
para as versões mais recentes?

Sugiro que você vá rodando o script por partes até identificar em que
momento aparece a mensagem de erro e buscar a solução a partir daí.

Se os pacotes já estiverem instalados, também não precisa instalar tudo
novamente (install.packages("nome-do-pacote")) toda vez que rodar o script.
Basta carregá-los com library("nome-do-pacote").

Ao consultar a documentação do pacote rfm, vi que a função  rfm_table_order()
já gera um tibble como resultado. Então, no seu código, não entendi qual o
motivo de utilizar `rfm <- as.tibble(rfm_result)` em seguida. Dito isso,
acredito que `rfm_result` já deve entregar o que você está esperando.

Espero ter ajudado.


*Enoch Sousa Filho*
** http://EnochFilho.net <http://enochfilho.net/> *



Em seg, 19 de ago de 2019 às 19:52, Edmar Caldas por (R-br) <
r-br em listas.c3sl.ufpr.br> escreveu:

> Boa noite!
>
> estou com um erro no código abaixo e não consigo descobrir o motivo.
> Já executei esse mesmo código em outra maquina.
>
> versao do R
>
> version.string R version 3.6.1 (2019-07-05)
>
>
> library(readxl)
> Salario <- read_excel("F:/FIAP/R/Excel/Salario.xlsx")
> View(Salario)
>
> attach(Salario)
> install.packages("dplyr")
> library(dplyr)
> agregar <-summarise(group_by(Salario, id),
>                     salario_m = mean(salario_m),
>                     data_pagamento_min=min(data_pagamento),
>                     data_pagamento_max=max(data_pagamento),
>                     contagem =n())
> agregar
>
> View(agregar)
>
>
> install.packages("rfm")
> install.packages("lubridate")
> library(rfm)
> library(lubridate)
>
> data_atual <- lubridate::as_date("2019-04-05", tz = "UTC-3")
> agregar$data_atual <-data_atual
> attach(agregar)
>
> data_compra <-lubridate::as_date(data_pagamento_max, tz="UTC")
> agregar$data_compra<-data_compra
>
> attach(agregar)
> View(agregar)
>
> rfm_result <- rfm_table_order(agregar, id, data_compra, salario_m,
> data_atual)
> rfm_result
>
> install.packages("tibble")
> library(tibble)
>
> rfm<-as.tibble(rfm_result)
> rfm
>
>
> erro
>
> Error: Tibble columns must have consistent lengths, only values of length
> one are recycled:
> * Length 0: Requested with `.rows` argument
> * Length 50: Column `rfm`
> Call `rlang::last_error()` to see a backtrace
> In addition: Warning message:
> `as.tibble()` is deprecated, use `as_tibble()` (but mind the new
> semantics).
> This warning is displayed once per session.
>
>
> Edmar
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190822/2b3b7cf0/attachment.html>