[R-br] Package Tibble

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[R-br] Package Tibble

R-br mailing list
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
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Package Tibble

R-br mailing list
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) <[hidden email]> 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
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.

_______________________________________________
R-br mailing list
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Package Tibble

R-br mailing list
In reply to this post by R-br mailing list
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


Em seg, 19 de ago de 2019 às 19:52, Edmar Caldas por (R-br) <[hidden email]> 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
[hidden email]
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.

_______________________________________________
R-br mailing list
[hidden email]
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.