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

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more