Candice: Maybe explain the basic property of each Asset a little?
sort by weight
<- arrange(gc, desc(gc$Weight))
gchead(gc, 14)%>% DT::datatable()
<- subset(gc, select=-c(Weight)) id
<- ggplot(data=gc, aes(x=reorder(Asset_Name, Weight), y=Weight))+geom_bar(aes(y=Weight, fill=Asset_Name),stat="identity", alpha=0.8 , position="dodge")+ ylab("Weight")+ xlab("Crypto")+coord_flip()+ggtitle(" Importance ")
mp1 mp1
Bar plot for volumne
<- test %>%
by_vol group_by(Asset_ID) %>%
::summarize(Tvol = sum(Volume), thigh=max(High), tlow=min(Low))
dplyr
<- merge(id, by_vol, by="Asset_ID")
vol
::datatable(vol) DT