Who’s receiving delegations? – Colored

in cryptocurrency •  2 months ago


By suggestion of @miniature-tiger (https://steemit.com/cryptocurrency/@miniature-tiger/re-verodato-how-s-receiving-delegations-20180612t111623751z) I put some different colors on the chart showing the main accounts receiving delegations (https://steemit.com/cryptocurrency/@verodato/how-s-receiving-delegations#@miniature-tiger/re-verodato-how-s-receiving-delegations-20180612t111623751z).

Each color represents a different type of account, as shown by the legend. I could have possibly made some errors classifying the accounts into types so please correct me if I am wrong.


The code

Now let's see the R code to build the chart. First we have to classify each top 30 account into a type.

platforms <- data.table(name = c('dlive','dsound','dtube','busy','busy.pay','utopian-io','steemhunt','steempress-io','tribesteemup','esteemapp'), type = 'platform')
bidbots <- data.table(name = c('postpromoter','appreciator','smartsteem','buildawhale','upme','rocky1','booster','therising','upmewhale','boomerang','minnowbooster','tipu'), type = 'bid-bot')
admin <- data.table(name = c('steemcleaners','spaminator'), type = 'admin')
individuals <- data.table(name = c('sweetsssj','kpine','surpassinggoogle','adamkokesh','v4vapid','canadian-coconut'), type = 'individual')
unknown <- data.table(name = c('steemed-proxy'), type = 'unknown')



Then we consolidate all the types into the "type" data.table. In the next step we associate colors to each type of account.

type <- rbind(platforms,bidbots,admin,individuals,unknown)

color <- data.table(
  color = c('#a9dba9','#ff8989','#505793','#f9ff98','#ffffff'),
  type = c('platform','bid-bot','admin','individual','unknown')
)

setkey(color,type)
setkey(type,type)
type <- merge(color,type)



The "treemap" function is almost the same as the one from the last post but it is worth showing it here because there are some subtle differences.

setkey(type,name)
setkey(top_rvc,name)
df <- data.frame( type[top_rvc][order(rvs,decreasing = T)] )

library(treemap)
treemap(df,
        index='name',
        vSize = 'rvs',
        vColor = 'color',
        type = 'color',
        title="Top 30 accounts that receive most delegations",
        fontsize.labels = 20,
        force.print.labels = T,
        overlap.labels = 0.4,
        algorithm = 'pivotSize'
)



Finally, the legend, that was built outside of the treemap function.

  esquema_cores <- color[,color]
  labels <- color[,type]
  
  grid.newpage()
  altura  <- 0.08
  largura <- 0.05
  
  x_pos <- 0.04
  for(i in 1:nrow(color)){
    
    vp <- viewport(x=x_pos,y=y_pos,width=largura,height=altura,just="bottom")
    pushViewport(vp)
    grid.rect(just="left",gp=gpar(fill = esquema_cores[i]))
    upViewport()
    
    vp <- viewport(x=x_pos + 0.07,y=y_pos,width=largura,height=altura,just="bottom")
    pushViewport(vp)
    grid.text(labels[i],just="left",gp=gpar(fontsize=14))
    upViewport()
    
    x_pos <- x_pos + 0.2  
  }



There's much more lines of code here in comparison with last post. But now we have much more information in the same chart!

Authors get paid when people like you upvote their post.
If you enjoyed what you read here, create your account today and start earning FREE STEEM!
Sort Order:  

Very nice!

I think @tribesteemup is a collective, something like The Alliance. Agree it's hard to classify as it's the only one of its kind up there.

Good to see Utopian-io at the top. My personal favourite!

Interesting article. I subscribed to you. Subscribe to me. Let's be friends

nice use of R!

Hi, @verodato! Please take a minute and check out my new Steemit t-shirt design. I was working on it for a long time and hope that it is nice.
https://teespring.com/welcome-to-steemit-t-shirt
front.jpg

·

Looks great!

To listen to the audio version of this article click on the play image.

Brought to you by @tts. If you find it useful please consider upvoting this reply.

dtube seems pretty big

You have recieved a free upvote from minnowpond, Send 0.1 -> 2 SBD with your post url as the memo to recieve an upvote from up to 100 accounts!

I really like your post ... very inspirational once for me who just joined in steemit ... please give me the key to your success in steemit ... thank you

You got a 24.32% upvote from @upme thanks to @verodato! Send at least 3 SBD or 3 STEEM to get upvote for next round. Delegate STEEM POWER and start earning 100% daily payouts ( no commission ).

You got a 12.78% upvote from @postpromoter courtesy of @verodato!

Want to promote your posts too? Check out the Steem Bot Tracker website for more info. If you would like to support the development of @postpromoter and the bot tracker please vote for @yabapmatt for witness!

You got a 29.93% upvote from @emperorofnaps courtesy of @verodato!

Want to promote your posts too? Send 0.05+ SBD or STEEM to @emperorofnaps to receive a share of a full upvote every 2.4 hours...Then go relax and take a nap!

Nice infographic

You got a 16.56% upvote from @upmewhale courtesy of @verodato!

Earn 100% earning payout by delegating SP to @upmewhale. Visit http://www.upmewhale.com for details!

There is no one Curation project....😐😟😖😵

Congratulations @verodato! You have completed some achievement on Steemit and have been rewarded with new badge(s) :

Award for the total payout received

Click on the badge to view your Board of Honor.
If you no longer want to receive notifications, reply to this comment with the word STOP

To support your work, I also upvoted your post!

Do not miss the last announcement from @steemitboard!

Do you like SteemitBoard's project? Then Vote for its witness and get one more award!