r - showing different units in each free_y of facet_grid -

-

i have plotted 2 facets 1 on top of other 2 different ys (a percentage , cost) , same x (years). took of ideas this post , variations of same. i'd show labels of y axis percentages rate , £ costs, have been unable change each y label format independently.

below reproducible example using facet_grid (i managed create similar thing facet_wrap stuck same problem).

i considered using grid.arrange() gridextra package, seemed bring other issues legend.

library(plyr) library(tidyr) library(dplyr) library(ggplot2) library(scales)  set.seed(12345)  my_labels <- function(variable, value){   names_li <- list("percentage", "cost in pounds")   return(names_li[value]) }   df <- data.frame(   rate = runif(10, 0, 1),   cost = rnorm(10, 100, 40),   years = seq(from = 2001, = 2010) )  df %>%   gather(type_of_var,          value,          rate:cost) ->   df2   df2 %>%   ggplot(aes(x = years,              y = value,              ymin = 0,              ymax = .1)) +   facet_grid(type_of_var ~ .,              scales = 'free_y',              labeller = my_labels) +   labs(x = "year",        y = "") +    geom_point(subset = . (type_of_var == "rate")) +   geom_line(subset = . (type_of_var == "rate"),             colour = "grey") +   ## following 2 lines don't work   # scale_y_continuous(subset = . (type_of_var == "rate"),   #                   labels = percent) +    geom_bar(subset = . (type_of_var == "cost"),            stat = "identity") +    theme_bw() +   theme(strip.text.y = element_text(size = 15,                                     colour = "black"),         plot.title = element_text(lineheight = 0.8,                                   face = "bold")) +   scale_x_continuous(breaks = seq(2001, 2010, 1)) +   labs(title = "free_y y axis labels")

thanks

as fragile workaround, use

label_fun <- function (x) {   if(max(x, na.rm=true) > 1) dollar(x) else percent(x) }

(assuming deal big money , small percentages)


Comments

Post a Comment

Popular posts from this blog

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null
Read more

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops',
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens
Read more