r - Labeling values in ggplot outside geom_smooth threshold -

-

i want label values in ggplot if outside interval of confidence (geom_smooth area). below example can label of them.

a <- sample(1:15) b <- sample(-6:-20) c <-sample(letters,15) x1 <- data.frame(a, b, c)  gg <- ggplot(x1, aes(x = a, y = b)) + labs(x = "new x label", y= "new x label") +    geom_point()+ geom_smooth(method=lm) + geom_text(aes(label=c),hjust=2, vjust=1)

you can make fit prior ggplot call , create variable labels points outside confidence region.

## fit, , make variable labels points outside conf. interval fit <- lm(b ~ a) dat <- predict(fit, interval="confidence") x1$inside <- ifelse(x1$b < dat[,"upr"] & x1$b > dat[,"lwr"], "", as.character(x1$c))  gg <- ggplot(x1, aes(x = a, y = b)) +   labs(x = "new x label", y= "new x label") +    geom_point() +   geom_smooth(method=lm) + geom_text(aes(label=inside),hjust=2, vjust=1) gg

enter image description here

another option using ggplot_build extract data ggplot , use determine points should labeled.

## use data curve info <- ggplot_build(gg)[[1]][[2]]

Comments

Post a Comment

Popular posts from this blog

apache - setting document root in antoher partition on ubuntu -

-
i place apache document root inside partition of ubuntu hard drive, keep getting forbidden message, when place home directory woking find, how be? group or owner affected ? here mysite.conf , apache2.conf when place document root in home folder (working) #site-available/mysite.conf documentroot /home/jono/www #/etc/apache2/apache2.conf <directory /home/jono/www/> options indexes followsymlinks allowoverride none require granted </directory> bu when change document root partition keep getting forbidden messasge #site-available/mysite.conf documentroot /media/jono/website_data/www #/etc/apache2/apache2.conf <directory /media/jono/website_data/www/> options indexes followsymlinks allowoverride none require granted </directory> is owner/group access affected ? or there problem ? at last it's working, have grant access www:data accesing whole directory @mark-b, using chown -r www-data:www-data whole directory is...
Read more

cytoscape.js - How to add nodes to Dagre layout with Cytoscape -

-
i trying add nodes dagre graph through cityscape.js. problem nodes not painted. code have: cy.add({ group: "nodes", data: { id:"n0",name:"n0",weight: 75 }, }); $.ajax(url).done(function(jsontree){ var newnodes=[]; for(var i=1;i<6;i++){ //var child = jsontree.result[i]; newnodes.push( { group: "nodes", data: { id: "n"+i, name:"n"+i}}, { group: "edges", data: { id: "e"+i, source: "n0", target: "n"+i } } ); } cy.add(newnodes); any ideas? have used loaded function reload graph not work. not know if have use specific function reload graph. thank in advance. you need add positions new nodes. cytoscape.js docs : it important note positions of newly added nodes must defined when calling cy.add(). nodes can not placed in graph without valid position — otherwise not displayed. yo...
Read more

php - laravel retrieving profile firstname from model returns Object of class Illuminate\Database\Eloquent\Builder could not be converted to string -

-
hi passing user_id user model , joining profile table retrieve first name of user so: public function scopefirstnamebyuserid($id) { return static::where('users.id','=',$id)->join('profiles', function ($join,$id) { $join->where('profiles.user_id', '=', $id); })->pluck('firstname'); } usage: user::firstnamebyuserid(2); however following error: missing argument 2 user::{closure}() edit# the function has been updated to: public function scopefirstnamebyuserid($id) { return static::where('users.id','=',$id)->join('profiles',function ($join) use ($id) { $join->where('profiles.user_id', '=', $id); })->pluck('firstname'); } but throws error: object of class illuminate\database\eloquent\builder not converted string any ideas i'm doing wrong? in...
Read more