r - How to add percentage or count labels above percentage bar plot? -


using ggplot2 1.0.0, followed instructions in below post figure out how plot percentage bar plots across factors:

sum percentages each facet - respect "fill" 

test <- data.frame(      test1 = sample(letters[1:2], 100, replace = true),       test2 = sample(letters[3:8], 100, replace = true)      ) library(ggplot2) library(scales) ggplot(test, aes(x= test2, group = test1)) +  geom_bar(aes(y = ..density.., fill = factor(..x..))) +  facet_grid(~test1) + scale_y_continuous(labels=percent)

enter image description here

however, cannot seem label either total count or percentage above each of bar plots when using geom_text.

what correct addition above code preserves percentage y-axis?

staying within ggplot, might try

ggplot(test, aes(x= test2,  group=test1)) +    geom_bar(aes(y = ..density.., fill = factor(..x..))) +   geom_text(aes( label = format(100*..density.., digits=2, drop0trailing=true),                  y= ..density.. ), stat= "bin", vjust = -.5) +   facet_grid(~test1) +   scale_y_continuous(labels=percent)

for counts, change ..density.. ..count.. in geom_bar , geom_text

update ggplot 2.x

ggplot2 2.0 made many changes ggplot including 1 broke original version of code when changed default stat function used geom_bar ggplot 2.0.0. instead of calling stat_bin, before, bin data, calls stat_count count observations @ each location. stat_count returns prop proportion of counts @ location rather density.

the code below has been modified work new release of ggplot2. i've included 2 versions, both of show height of bars percentage of counts. first displays proportion of count above bar percent while second shows count above bar. i've added labels y axis , legend.

  library(ggplot2)   library(scales) # # displays bar heights percents percentages above bars #     ggplot(test, aes(x= test2,  group=test1)) +      geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count") +     geom_text(aes( label = scales::percent(..prop..),                    y= ..prop.. ), stat= "count", vjust = -.5) +     labs(y = "percent", fill="test2") +     facet_grid(~test1) +     scale_y_continuous(labels=percent) # # displays bar heights percents counts above bars #     ggplot(test, aes(x= test2,  group=test1)) +      geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count") +     geom_text(aes(label = ..count.., y= ..prop..), stat= "count", vjust = -.5) +     labs(y = "percent", fill="test2") +     facet_grid(~test1) +     scale_y_continuous(labels=percent)

the plot first version shown below.

enter image description here


Comments

Post a Comment

Popular posts from this blog

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more