this is the code:
names(Values)<-gsub('/','',gsub(' ','',names(Values))); #Values is the list of measures passed in power BI to that visual.
n<- names(Values)
st1<-paste('Values$',n[1],sep='');
value1<-eval(parse(text = st1));
st2<-paste('Values$',n[2],sep='');
value2<-eval(parse(text = st2));
st3<-paste('Values$',n[3],sep='');
value3<-eval(parse(text = st3));
base_p <- qplot(Values, aes(x=value3, y=value2,text=paste(st1,": ",value1)));
g= base_p + geom_pointr() +theme_classic()+ theme(legend.position="none") + labs(x = gsub('Values$','',st3),y = gsub('Values$','',st2));
p = ggplotly(g);
internalSaveWidget(p, 'out.html');