r - Expand y scale but limit height of y axis line -


my goal make simple column chart in ggplot2 looks following chart (made in excel): enter image description here

what i'm finding that, example data such (where 1 percentage value close 100%), options plotting data in ggplot2 leave desired. in particular, haven't found way make following 2 simple things happen together:

1) make y-axis line end @ 100%

and

2) make percentage labels on each bar visible

to address issue, i've tried experimenting different arguments scale_y_continuous() haven't found way meet both of goals above @ same time. can see in example plots , code below.

my question is: how expand y scale percentage labels on each data point visible, y-axis line ends @ 100%?

library(dplyr) library(ggplot2) library(scales)   example_df <- data_frame(label = c("a", "b"),                          percent = c(0.5, 0.99))  example_plot <- example_df %>%       ggplot(aes(x = label, y = percent)) +          geom_bar(stat = "identity",                   fill = "dodgerblue4", width = .6) +          geom_text(aes(label = percent(percent)),                    size = 3, vjust = -0.5) +          scale_x_discrete(null, expand = c(0, .5)) +          theme_classic()

plot desired y-axis line, non-visible label on bar

here happens when set limit on scale_y_continuous() c(0,1):

enter image description here

example_plot +      scale_y_continuous(null, limits = c(0, 1.0), breaks = seq(0, 1, .2),                         labels = function(x) scales::percent(x),                         expand = c(0, 0)) +      labs(title = "y axis line looks perfect, label on bar off")

plot y-axis line long, visible label on bar

and here happens when set limit on scale_y_continuous() c(0,1.05):

enter image description here

example_plot +      scale_y_continuous(null, limits = c(0, 1.05), breaks = seq(0, 1, .2),                         labels = function(x) scales::percent(x),                         expand = c(0, 0)) +      labs(title = "y axis line long, label on bar visible")

you remove regular axis line , use geom_segment create new one:

example_df %>%  ggplot(aes(x = label, y = percent)) +   geom_bar(stat = "identity", fill = "dodgerblue4", width = .6) +   geom_text(aes(label = percent(percent)), size = 3, vjust = -0.5) +   scale_x_discrete("", expand = c(0, .5)) +   scale_y_continuous("", breaks = seq(0, 1, .2), labels = percent, limits=c(0,1.05),                       expand=c(0,0)) +   theme_classic() +   theme(axis.line.y=element_blank()) +   geom_segment(x=.5025, xend=0.5025, y=0, yend=1.002)

enter image description here

to respond comment: when it's outside plot area, 99% label still being drawn, it's "clipped", meaning plot elements outside plot area masked. so, option, still hacky, less hacky original answer, turn off clipping label appears:

library(grid)  p = example_df %>%    ggplot(aes(x = label, y = percent)) +     geom_bar(stat = "identity", fill = "dodgerblue4", width = .6) +     geom_text(aes(label = percent(percent)), size = 3, vjust = -0.5) +     scale_x_discrete("", expand = c(0, .5)) +     scale_y_continuous("", breaks = seq(0, 1, .2), labels = percent, limits=c(0,1),                        expand=c(0,0)) +     theme_classic() +     theme(plot.margin=unit(c(10,0,0,0),'pt'))  # turn off clipping pg <- ggplot_gtable(ggplot_build(p)) pg$layout$clip[pg$layout$name=="panel"] <- "off" grid.draw(pg)

enter image description here


Comments

Post a Comment

Popular posts from this blog

Command prompt result in label. Python 2.7 -

i want put result(output) of shell command label. command works, label shows "0", however, in command prompt, result shown correctly, need showed in label. doing ubuntu. myg1 = button(root, text="rodyti informacija", command=lambda: gauti()) myg1.pack(side=bottom) def gauti(): imti = tekstas.get("1.0", "end-1c") info = subprocess.call("id '{imti}' ".format(imti=imti), shell=true) w = label(root, text= info) w.pack(side = bottom) subprocess.call() returns exit code of process created (in case 0 success). if want text output of process, should instead call subprocess.check_output() .
Read more

javascript - How do I use URL parameters to change link href on page? -

i change href value of link using url parameters. example: default <a id="dlink" href="link-1">link</a> but, when user goes https://url.com/?dlink=link-2 it swaps out link new link <a id="dlink" href="link-2">link</a> first need value url. if you're not using javascript framework can create function using jquery. please check get url parameter jquery or how query string values in js it. after that, element "a" id , set value there. $("#dlink").attr("href", hreffromparam);
Read more

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -

so have domain nameservers pointed aws route 53. site hosted on ec2 instance , reachable resolves site.com, if input www.site.com. i'm curious how site resolve www.site.com. have under route53 domains hosted zone 2 additional record sets outside of ns , soa: a site.com ec2 elastic ip cname www.site.com ec2 public dns i can reach site using both site.com , www.site.com, resolve site.com. there way make if enter either, resolves www.site.com? at first, both should record set. a site.com ec2 elastic ip www.site.com ec2 elastic ip and need redirect setting in web server (nginx, apache, ..) following. (source: how redirect www non-www nginx on centos 7 ) redirect non-www www if want redirect users plain, non-www domain www domain, add server block: server { server_name example.com; return 301 $scheme://www.example.com$request_uri; } save , exit. configures nginx redirect requests "example.com" "www.example.com". not...
Read more