r - Prevent overlapping labels with geom_segment and facet -


i'm using geom_segment() , facet_wrap() display estimates across different types , models. previous post helped me organize things, i'm struggling figure out how overset labels don't overlap. things messy once add more models comparison more data points. i've tried changing aspect ratio without resolution.

how can overset, or spread labels out readable while retaining scale of y-axis comparison across models , types?

sample data

dat <- structure(list(temp = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3,  4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4,  5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5,  1, 2, 3, 4, 5), rev = c(-5, -11, -20, -29, -40, -9, -20, -32,  -45, -57, -12, -24, -37, -50, -62, -7, -20, -36, -52, -67, -5,  -13, -23, -35, -47, -12, -24, -36, -48, -58, 0, 0, -3, -7, -12,  0, 0, 0, 0, -1, -4, -9, -15, -21, -28, 2, 1, -1, -6, -13, -4,  -7, -8, -8, -6, 8, 16, 23, 29, 34), type = c("type 1", "type 1",  "type 1", "type 1", "type 1", "type 1", "type 1", "type 1", "type 1",  "type 1", "type 1", "type 1", "type 1", "type 1", "type 1", "type 2",  "type 2", "type 2", "type 2", "type 2", "type 2", "type 2", "type 2",  "type 2", "type 2", "type 2", "type 2", "type 2", "type 2", "type 2",  "type 3", "type 3", "type 3", "type 3", "type 3", "type 3", "type 3",  "type 3", "type 3", "type 3", "type 3", "type 3", "type 3", "type 3",  "type 3", "type 4", "type 4", "type 4", "type 4", "type 4", "type 4",  "type 4", "type 4", "type 4", "type 4", "type 4", "type 4", "type 4",  "type 4", "type 4"), model = c("a", "a", "a", "a", "a", "b",  "b", "b", "b", "b", "c", "c", "c", "c", "c", "a", "a", "a", "a",  "a", "b", "b", "b", "b", "b", "c", "c", "c", "c", "c", "a", "a",  "a", "a", "a", "b", "b", "b", "b", "b", "c", "c", "c", "c", "c",  "a", "a", "a", "a", "a", "b", "b", "b", "b", "b", "c", "c", "c",  "c", "c")), .names = c("temp", "rev", "type", "model"), row.names = c(na,  -60l), class = "data.frame")

plot

df.labeled <- dat %>%    ungroup() %>% group_by(type, rev) %>%    mutate(label = c(rev[1], rep(na, length(rev) - 1)))  ggplot(df.labeled, aes(temp, rev, color = model)) +    geom_segment(aes(xend = 0, yend = rev), linetype = "dashed", color = "grey") +   geom_text(aes(label = label, x = -0.1), colour = "black", hjust = 1) +   geom_vline(xintercept = 0) +   geom_point() + geom_line() + facet_wrap(~type) +    scale_y_continuous(breaks = null) +    scale_x_continuous(limits = c(-0.5, na)) +   theme_bw() + theme(panel.grid = element_blank())

enter image description here

one option stagger values. however, think labeling points directly cleaner , less confusing. show both methods below.

staggered value labels

# set staggered x-values value labels df.labeled = df.labeled %>%    group_by(type, is.na(label)) %>%    arrange(rev) %>%   mutate(xval = rep(c(-0.1,-0.35), ceiling(n()/2))[1:n()])  ggplot(df.labeled, aes(temp, rev, color = model)) +    geom_segment(aes(xend=xval - 0.08, yend=rev), linetype="11", color="grey70", size=0.3) +   geom_text(aes(x=xval, label=label), colour="black", hjust=1, size=2.5) +   geom_vline(xintercept = 0, colour="grey90", size=0.3) +   geom_point() + geom_line() + facet_wrap(~type) +    scale_y_continuous(breaks = null) +    scale_x_continuous(limits = c(-0.5, na)) +   theme_bw() + theme(panel.grid = element_blank())

enter image description here

use y-values point labels

ggplot(df.labeled, aes(temp, rev, color = model)) +    geom_text(aes(label = rev), size=2.5, show.legend=false) +   geom_line(alpha=0.3, size=0.7) +    facet_wrap(~type) +    scale_x_continuous(limits = c(0, na)) +   theme_bw() +    theme(panel.grid = element_blank()) +   guides(colour=guide_legend(override.aes=list(alpha=1, size=1)))

enter image description here


Comments

Post a Comment

Popular posts from this blog

ubuntu - PHP script to find files of certain extensions in a directory, returns populated array when run in browser, but empty array when run from terminal -

i running os ububtu 16.04. ultimate goal able run php script cron job every minute. here php script located @ /var/www/html/tests/test/index.php : <?php $directorypath = $_server['document_root']."/tests/test/data/"; echo "directorypath: $directorypath<br><br>";//check $imagefilepathsarray = glob($directorypath . "*.{png,gif}", glob_brace); echo "<br><br>imagefilepathsarray: "; print_r($imagefilepathsarray);//check ?> when open php script in browser visiting url my-ip-address/tests/test/index.php , get: directorypath: /var/www/html/tests/test/data/ imagefilepathsarray:array( [0] => /var/www/html/tests/test/data/pic.png [1] => /var/www/html/tests/test/data/pic.gif ) before writing cron job in crontab file, need check if can run anywhere using terminal . opened ubuntu terminal @ /home/ location, , executed in terminal: sudo php /var/www/html/tests/test/index.php i got following out...
Read more

php - How can i create a user dashboard -

today have questions you, want create user dashboard site, include (obviously), users data, example -email -username -and others stuff how can information, , print them in html page? if can, how can these information via php sessions? shuld use session? example, if user login, , start new session ( session_start() ), how can data print in dashboard? should use php "project"? in advice, have day , thank time!
Read more

javascript - How to detect toggling of the fullscreen-toolbar in jQuery Mobile? -

i have jquery mobile page fixed full-screen toolbar, data-tap-toggle enabled. straight under toolbar have positioned banner should slide upwards when toolbar hiding , slide downward when toolbar showing. jquery mobile toggles toolbar applying , removing ui-fixed-hidden class - sadly, can't find in documentation of toolbar widget toggle , hide or show event that. how can detect when toolbar toggled, reposition banner? .banner { position: fixed; background-color: darkseagreen; top: 46px; min-height: 48px; width: 100%; text-align: center; line-height: 48px; } <!doctype html> <html> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no"> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"> <script src="https://code.jquery.com/jquery-1....
Read more