R Visual: paquete de lubricación no encontrado

Un usuario Pregunto ✅

Anónimo

Hola,

Recibí un reporte de un usuario que necesito publicar en Servicio PBI. Este informe usa R visual y, lamentablemente, mi conocimiento en R es muy limitado.

Cuando publico el informe, muestra un error en la visualización de R que dice que «no hay un paquete llamado» lubridate «». Pero revisé esta lista () y lubridate está aquí. Así que realmente no entiendo por qué no funciona.

¿Tienes alguna idea de por qué esto es un error?

Aquí está el mensaje de error y el código visual R:

error_lubridate.PNG

.libPaths("\\Homedirs\g32377\Documents\R\win-library\3.5")
.libPaths()  
library("lubridate")
library("dplyr")
library("ggplot2")
library("tidyquant")

firstyear<-min(dataset$year)
lastyear<-max(dataset$year)
marque<-unique(dataset$MARQUE)

dataset<-dataset%>%
  mutate(DCLOEX2=as.Date(DCLOEX2))

prixtotal<-dataset%>%
  group_by(NUMMIS)%>%
  summarise(totalcost=sum(AM))%>%
  left_join(unique(dataset[,c('NUMMIS','DCLOEX2')]),by="NUMMIS")

prixaverage<-prixtotal%>%
  group_by(date=floor_date(DCLOEX2, "1 year"))%>%
  summarise(average=mean(totalcost))%>%
  mutate(average2=round(average))

nombre<-prixtotal%>%
  group_by(date=floor_date(DCLOEX2, "1 year"))%>%
  count()

pieces12<-dataset%>%
  filter(DCLOEX2<ymd(paste(firstyear+1,01,01)))%>%
  group_by(CODE_clean)%>%
  summarise(total12=sum(AM))

pieces12<-pieces12%>%
  mutate(av12=total12/nombre$n[1])


pieces18<-dataset%>%
  filter(DCLOEX2>ymd(paste(lastyear-1,12,31)))%>%
  group_by(CODE_clean)%>%
  summarise(total18=sum(AM))

pieces18<-pieces18%>%
  mutate(av18=total18/nombre$n[as.numeric(dim(nombre)[1])])

difference<-full_join(pieces18,pieces12,by='CODE_clean')%>%
  select(CODE_clean,av12,av18)%>%
  mutate(av12=ifelse(is.na(av12),0,av12))%>%
  mutate(av18=ifelse(is.na(av18),0,av18))%>%
  mutate(diff=av18-av12)%>%
  mutate(diff2=round(diff))%>%
  arrange(desc(diff))
difference<-left_join(difference,unique(dataset[,c('CODE_clean','label.1')]),by=c('CODE_clean'))

other<-difference[-(1:10),]
nbr<-as.numeric(dim(other)[1])
other<-data.frame('CODE_clean'=paste('others (',nbr,')'),'av12'=sum(other$av12,na.rm=TRUE),'av18'=sum(other$av18,na.rm = TRUE),'diff'=sum(other$diff),'diff2'=round(sum(other$diff)),'label.1'='')

final<-rbind(difference[1:10,],other)%>%
  select(CODE_clean,diff2,label.1)


a<-c(prixaverage$average2[1],final$diff2)
a<-cumsum(a)
open<-a[-length(a)]
close<-a[-1]

graphe<-cbind(final,'open'=open,'close'=close)

lab<-paste(graphe$CODE_clean,graphe$label.1)

order_CODE <- unique(lab)
graphe$lab <- factor(lab, levels = order_CODE)

p<-graphe %>%
  ggplot(aes(x=lab,y=close))+
  ylim(0,max(close)+150)+
  geom_candlestick(aes(open = open, high = close, low = open, close = close)) +
  labs(title = marque, 
      y = "", x = "") + 
  geom_text(aes(label = diff2), vjust = -0.8, size = 4) +
  theme_tq()+
  theme(axis.text.x = element_text(angle = 90, vjust=0.5))+
  geom_text(x=1, y=open[1]-150, label=paste(firstyear,'n',round(prixaverage$average[1]),'e'),size =4)+
  geom_text(x=11, y=open[11]-150, label=paste(lastyear,'n',round(prixaverage$average[as.numeric(dim(prixaverage)[1])]),'e'))
print(p)

HOLA @Anonimo,

AFAIK, el servicio power bi tiene su permiso de seguridad y configuraciones para manejar el script R y los paquetes relacionados, no creo que la función ‘ruta de la biblioteca’ pueda funcionar en el lado del servicio.

Power bi service support lubridate package, creo que puede eliminar las funciones de ‘localización’ para permitir que el script r detecte recursos y paquetes relacionados por sí mismo.

Enlaces de referencia:

Crear objetos visuales de R en el servicio Power BI

Seguridad de scripts R

Los elementos visuales de R se crean a partir de scripts de R, que potencialmente podrían contener código con riesgos de seguridad o privacidad.

Estos riesgos existen principalmente en la fase de creación cuando el autor del script ejecuta el script en su propia computadora.

El servicio Power BI aplica una tecnología de espacio aislado para proteger a los usuarios y al servicio de los riesgos de seguridad.

Este enfoque de espacio aislado impone algunas restricciones a los scripts de R que se ejecutan en el servicio Power BI, como el acceso a Internet o el acceso a otros recursos que no son necesarios para crear el objeto visual de R.

Paquetes R en el servicio Power BI

Saludos,

Xiaoxin-sheng

HOLA @Anonimo,

AFAIK, el servicio power bi tiene su permiso de seguridad y configuraciones para manejar el script R y los paquetes relacionados, no creo que la función ‘ruta de la biblioteca’ pueda funcionar en el lado del servicio.

Power bi service support lubridate package, creo que puede eliminar las funciones de ‘localización’ para permitir que el script r detecte recursos y paquetes relacionados por sí mismo.

Enlaces de referencia:

Crear objetos visuales de R en el servicio Power BI

Seguridad de scripts R

Los elementos visuales de R se crean a partir de scripts de R, que potencialmente podrían contener código con riesgos de seguridad o privacidad.

Estos riesgos existen principalmente en la fase de creación cuando el autor del script ejecuta el script en su propia computadora.

El servicio Power BI aplica una tecnología de espacio aislado para proteger a los usuarios y al servicio de los riesgos de seguridad.

Este enfoque de espacio aislado impone algunas restricciones a los scripts de R que se ejecutan en el servicio Power BI, como el acceso a Internet o el acceso a otros recursos que no son necesarios para crear el objeto visual de R.

Paquetes R en el servicio Power BI

Saludos,

Xiaoxin-sheng

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *