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!
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!
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
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!
Congratulations @verodato! You have completed some achievement on Steemit and have been rewarded with new badge(s) :
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
STOPTo support your work, I also upvoted your post!
Do not miss the last announcement from @steemitboard!
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....😐😟😖😵