r - ggplot2 manual legend inside a plot -

-

when run below code, density plot , histogram created. i've added 2 vertical line show mean , median. want display legend ("mean" dotted red , "median" green color) @ top-right corner of plot. can run code df available in r-studio.

ggplot(usarrests,aes(x=murder)) +    geom_histogram(aes(y=..density..),binwidth=.5,col="black",fill="white") +   geom_density(alpha=.2,fill="coral") +   geom_vline(aes(xintercept=mean(murder,na.rm=t)),color="red",linetype="dashed",size=1) +   geom_vline(aes(xintercept=median(murder,na.rm=t)),color="green",size=1)

my question shall use theme() or else display legend in plot?

you're better off creating additional data.frame of summary statistics , adding plot instead of trying fiddle around manually creating each legend element. legend position can adjusted theme(legend.position = c())

library("ggplot2") library("reshape2") library("dplyr")  # summary data.frame summary_df <- usarrests %>%                summarise(mean = mean(murder), median = median(murder)) %>%                melt(variable.name="statistic")  # specifying colors , linetypes legend since wanted map both color , linetype # same variable.  summary_cols <- c("mean" = "red", "median" = "green") summary_linetypes <- c("mean" = 2, "median" = 1)   ggplot(usarrests,aes(x=murder)) +        geom_histogram(aes(y=..density..),binwidth=.5,col="black",fill="white") +   geom_density(alpha=.2,fill="coral") +   geom_vline(data = summary_df, aes(xintercept = value, color = statistic,               lty = statistic)) +   scale_color_manual(values = summary_cols) +   scale_linetype_manual(values = summary_linetypes) +   theme(legend.position = c(0.85,0.85))

giving

figure_with_legend


Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more