ggplot2 - R: Extract scale name from ggplot object -

-

i wondering how extract scale name (i.e., legend name) ggplot object in general way possible. general, mean extracts same thing no matter how changed scale name, whether using name within scale function or using labs.

for instance:

library("ggplot2") set.seed(3489243) rho <- round(rnorm(25, 0, 5)) profit <- 0.5 + 0.3 * rho + rnorm(25, 0, 1) betaadjusted <- factor(c(rep(true, 15), rep(false, 10))) returns.both <- data.frame(rho, profit, betaadjusted) p1 <- ggplot(aes(x=rho, y=profit, shape = betaadjusted),         data=returns.both) +  geom_point() + scale_shape_discrete(name = "is beta adjusted?") p2 <- ggplot(aes(x=rho, y=profit, shape = betaadjusted),         data=returns.both) +  geom_point() + labs(shape = "is beta adjusted?")

i want extract text is beta adjusted p1 , p2 using same code. possible? using labs(p2) gives me text under labels list using labs(p1) gives me text under scales list. don't want have @ 2 places same text depending on user input. after all, p1 , p2 produces same looking graph.

this solution depends heavily on scales implementation, use caution (as ggplot2 might change @ point).

p <- qplot(vs, wt, shape = factor(gear), color = factor(am), data = mtcars)  guide_names <- function(p, aes = c("shape", "colour", "size")) {   sc <- as.list(p$scales)$scales   nms <- lapply(sc, "[[", "name")   if (length(nms) > 0) names(nms) <- lapply(sc, "[[", "aesthetics")   modifylist(p$labels[names(p$labels) %in% aes], nms) }  guide_names(p) # $colour # [1] "factor(am)" #  # $shape # [1] "factor(gear)"  guide_names(p + labs(shape = "a") + labs(color = "b")) # $colour # [1] "b" #  # $shape # [1] "a"  guide_names(p + scale_shape_discrete(name = "s") + scale_color_discrete(name = "c")) # $colour # [1] "c" #  # $shape # [1] "s"  # if both specified, scale_* prefered guide_names(p + labs(shape = "a") + scale_shape_discrete(name = "s")) # $shape # [1] "s" #  # $colour # [1] "factor(am)"

Comments

Post a Comment

Popular posts from this blog

javascript - Create websocket without connecting -

-
is there way create websocket without connecting right away? far think var ws = new websocket("ws://ws.my.url.com"); creates , connects right away. i'd create socket, define callbacks, , connect once user clicks connect button. thanks no. creating websocket means you've created connection server (or started process of connecting). there no such thing creating websocket isn't connecting yet. you create object store configuration parameters , tell object connect when wanted to, though i'm not sure why that's better creating actual websocket when connect made. or create function setup work , call function later when user clicks connect button.
Read more

how to do line continuation in perl debugger for entering raw multi-line text (EOT)? -

-
i learning perl. trying in debugger define variable, here-document. not know how enter same code in perl script, in debugger. due new lines present inside eot, makes hard in interactive debugger. here small example. have script: >cat ex1.perl #!/usr/bin/perl -w $s =<<'eot'; first line second line eot print $s now run , gives expected output: >perl ex1.perl first line second line now want same in debugger. tried this: >perl -de0 loading db routines perl5db.pl version 1.39_10 db<1> $s =<<'eot';\ cont: first line\ cont: second line\ cont: eot can't find string terminator "eot" anywhere before eof @ (eval 6) [/usr/share/perl/5.18/perl5db.pl:732] line 2. @ (eval 6)[/usr/share/perl/5.18/perl5db.pl:732] line 2. eval 'no strict; ($@, $!, $^e, $,, $/, $\\, $^w) = @db::saved;package main; $^d = $^d | $db::db_stop; $s =<<\'eot\'; first line second line eot; ' called @ /usr/share/perl...
Read more

android - Linear layout children not scrolling -

-
i'm trying add image views linear layout @ runtime. <linearlayout android:id="@+id/llfolderlayout" android:layout_width="match_parent" android:layout_height="0dp" android:layout_weight=".65" android:orientation="horizontal" android:scrollbars="horizontal" > </linearlayout> linearlayout llfoldertabs = (linearlayout) myfolder.findviewbyid(r.id.llfolderlayout); imageview imgtab = new imageview(activity); imgtab.setid(i); imgtab.settag(i); imgtab.setimagedrawable( mcontext.getresources().getdrawable(r.drawable.icon_folder_inactive)); if (i == 0) { imgtab.setimagedrawable( mcontext.getresources().getdrawable(r.drawable.icon_folder_active)); // imgtab.setpadding(10, 0, 4, 0); linearlayout.layoutparams lp = new linearlayout.layoutparams( 74, layoutparams.match_parent); lp.setmargins(15, 0, 0, 0); imgtab.setlayoutparams(lp); } else { // imgtab....
Read more