Edmar Em terça-feira, 20 de agosto de 2019 12:00:28 BRT, r-br-request@listas.c3sl.ufpr.br <r-br-request@listas.c3sl.ufpr.br> escreveu: Enviar submissões para a lista de discussão R-br para     r-br@listas.c3sl.ufpr.br Para se cadastrar ou descadastrar via WWW, visite o endereço     https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para     r-br-request@listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço     r-br-owner@listas.c3sl.ufpr.br Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of R-br digest..." Tópicos de Hoje:   1. Package Tibble (Edmar Caldas)   2. Re: Package Tibble (Fernando Souza) ---------------------------------------------------------------------- Message: 1 Date: Mon, 19 Aug 2019 22:51:50 +0000 (UTC) From: Edmar Caldas <edmar_caldas@yahoo.com.br> To: R-br Lista <r-br@listas.c3sl.ufpr.br> Subject: [R-br] Package Tibble Message-ID: <2090336582.86957.1566255110255@mail.yahoo.com> Content-Type: text/plain; charset="utf-8" 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_atualattach(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 backtraceIn addition: Warning message:`as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).This warning is displayed once per session. Edmar -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190819/3d08833e/attachment-0001.html> ------------------------------ Message: 2 Date: Mon, 19 Aug 2019 21:37:29 -0300 From: Fernando Souza <nandodesouza@gmail.com> To:     "=?utf-8?Q?a_lista_Brasileira_oficial_de_discuss=C3=83=C2=A3o_do_programa_R.?="     <r-br@listas.c3sl.ufpr.br> Cc: Edmar Caldas <edmar_caldas@yahoo.com.br> Subject: Re: [R-br] Package Tibble Message-ID: <982FECB8-90E4-41AC-9120-62372264667C@getmailspring.com> Content-Type: text/plain; charset="utf-8" Seu exemplo não é reproduzível,, uma vez que não é possível acessar os dados. Att On Aug 19 2019, at 7:51 pm, Edmar Caldas por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:

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@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/20190819/c2981dae/attachment-0001.html> ------------------------------ Subject: Legenda do Digest _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ------------------------------ Fim da Digest R-br, volume 104, assunto 3 *****************************************