r - Show only the first instance of a changepoint label in ggplot -


i have data frame 

group <- c("pre_analysis","pre_analysis","before","after","after","after","after","after","after","after","after") pdatetime <- c("2016-11-23 06:08:39","2017-02-25 15:31:50","2017-04-06 17:11:57","2017-04-15 01:23:51 cdt",                "2017-04-16 15:54:35","2017-04-16 23:48:14","2017-04-18 02:57:41","2017-04-20 05:12:33 cdt",                "2017-04-20 14:33:20","2017-04-22 12:33:44","2017-04-23 10:50:49") delta <- c(766.3770,863.8409,893.1615,656.1001,832.9232,912.3867,934.9714,-64.7182,460.3154,949.2538,697.3750)  df <- data.frame(group,pdatetime,delta)  df$pdatetime <- as.posixct(df$pdatetime,format="%y-%m-%d %h:%m:%s")

i trying create new column "ischangepoint" has value 

"cp detected" first changepoint, first index of df$group = "after"

i trying way 

df$ischangepoint <- ifelse(df$group == "after", "cp detected", "no")

and getting plot 

library(ggplot2) library(ggrepel) ggplot(data = df, aes(pdatetime,delta ))+    ggtitle("changepoint analysis") +    theme(axis.text.x = element_text(angle=90, vjust=1),plot.title = element_text(size = rel(1))) +    geom_point(aes(colour=df$group), size = 6) +   geom_text_repel(aes(pdatetime, delta, label = df$ischangepoint)) +   labs(colour="group") +    xlab("pdatetime")+    ylab("delta")

enter image description here

this labels indexes after changepoint. how can plot first instance of "cp detected"?

desired plot: enter image description here

could point me in right direction?

it looks want ischangepoint take on 1 of 3 values:

  1. group != "after": "no" (edit based on op's comment: should blank too)
  2. group == "after" & 1st row within group: "cp detected"
  3. group == "after" & not 1st row within group: "" (blank)

if that's case, following give in dataset:

df <- df %>%    arrange(pdatetime) %>%   group_by(group) %>% mutate(ischangepoint = row_number() == 1) %>% ungroup() %>%    mutate(ischangepoint = ifelse(group == "after" & ischangepoint, "cp detected", ""))

your original ggplot code works me, though think there's no need put df$ in geom_text_repel() call...

ggplot(data = df, aes(pdatetime,delta ))+    ggtitle("changepoint analysis") +    theme(axis.text.x = element_text(angle=90, vjust=1),plot.title = element_text(size = rel(1))) +    geom_point(aes(colour=df$group), size = 6) +   geom_text_repel(aes(pdatetime, delta, label = ischangepoint)) +   labs(colour="group") +    xlab("pdatetime")+    ylab("delta")

updated plot


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more