r - Remove unnecessary y-axis points with facet_wrap and geom_segment -


i'm mapping y-axis points x-axis using geom_segment() , using facet_wrap separate data 2 plots; however, y-axis points showing on both plots.

how can have necessary y-axis points pertaining each facet_wrap?

sample code

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), 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), 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"), 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")), .names = c("temp", "rev", "type", "model"), row.names = c(na,  -30l), class = "data.frame")  p1 <- ggplot(dat, aes(temp, rev, color = model)) +    geom_line() + geom_point() + geom_segment(aes(x = 0, xend = temp, yend = rev), linetype = "dashed", color = "grey") +    facet_wrap(~type, scales = "free") + scale_y_continuous(breaks = dat$rev) p1

plot

enter image description here

i made dummy data because reason pasting dput console made unhappy.

library(dplyr)  df <- expand.grid(temp = 1:5, model = letters[1:3], type = 1:2) %>%    group_by(model, type) %>%    mutate(rev = -sort(sample.int(20, length(temp))))   # equivalent data as-is, structurewise 
df.labeled <- df %>%    ungroup() %>% group_by(type, rev) %>%    mutate(label = c(rev[1], rep(na, length(rev) - 1)))

here created group each y value shows in each group panel. create label column consists of 1 observation of y value, padded nas. if panel have had 2 models each had rev of -5, -5, na instead of -5, -5. why i'm doing become clearer below.

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_grid(~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

if had left in duplicates (here have been -7, -15 type 1 , -11 type 2), geom_text have been messy bolded blur. duplicated text labels don't render in ggplot2. since it's not possible way wanted, here we're making fake scale each panel. if don't fact there's line on y-axis left of numbers, can gotten rid of:

  ... +    theme(panel.grid = element_blank(),         panel.border = element_blank(),         axis.line.x = element_line())

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