r - How can I put a transformed scale on the right side of a ggplot2? -

-

i'm creating graph showing change in lake levels on time. i've attached simple example below. add scale (tick marks , annotation) on right side of plot shows elevation in feet. know ggplot2 won't allow 2 different scales (see plot 2 y axes, 1 y axis on left, , y axis on right), because transformation of same scale, there way this? i'd prefer keep using ggplot2 , not have revert plot() function.

library(ggplot2) lakelevels<-data.frame(day=c(1:365),elevation=sin(seq(0,2*pi,2*pi/364))*10+100) p <- ggplot(data=lakelevels) + geom_line(aes(x=day,y=elevation)) +    scale_y_continuous(name="elevation (m)",limits=c(75,125))  p

you should have @ link http://rpubs.com/kohske/dual_axis_in_ggplot2.

i've adapted code provided there example. fix seems "hacky", gets part of way there. piece left figuring out how add text right axis of graph.

    library(ggplot2)     library(gtable)     library(grid)     lakelevels<-data.frame(day=c(1:365),elevation=sin(seq(0,2*pi,2*pi/364))*10+100)     p1 <- ggplot(data=lakelevels) + geom_line(aes(x=day,y=elevation)) +            scale_y_continuous(name="elevation (m)",limits=c(75,125))      p2<-ggplot(data=lakelevels)+geom_line(aes(x=day, y=elevation))+         scale_y_continuous(name="elevation (ft)", limits=c(75,125),                    breaks=c(80,90,100,110,120),                  labels=c("262", "295", "328", "361", "394"))      #extract gtable     g1<-ggplot_gtable(ggplot_build(p1))     g2<-ggplot_gtable(ggplot_build(p2))      #overlap panel of 2nd plot on of 1st plot      pp<-c(subset(g1$layout, name=="panel", se=t:r))     g<-gtable_add_grob(g1, g2$grobs[[which(g2$layout$name=="panel")]], pp$t, pp$l, pp$b,                         pp$l)     ia <- which(g2$layout$name == "axis-l")    ga <- g2$grobs[[ia]]    ax <- ga$children[[2]]    ax$widths <- rev(ax$widths)    ax$grobs <- rev(ax$grobs)    ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")    g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)    g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)     # draw    grid.draw(g)

enter image description here


Comments

Post a Comment

Popular posts from this blog

c# - How Configure Devart dotConnect for SQLite Code First? -

-
can configure following sample code ? when run following code, error : no entity framework provider found ado.net provider invariant name 'devart.data.sqlite' setting in machine.config <system.data> <dbproviderfactories> <add name="dotconnect sqlite" invariant="devart.data.sqlite" description="devart dotconnect sqlite" type="devart.data.sqlite.sqliteproviderfactory, devart.data.sqlite, version=4.6.287.0, culture=neutral, publickeytoken=09af7300eec23701" /> </dbproviderfactories> </system.data> after add below block code in app.config <?xml version="1.0"?> <configuration>   <configsections> <!-- more information on entity framework configuration, visit http://go.microsoft.com/fwlink/?linkid=237468 --> <section name="entityframework" type="system.data.entity.internal.configfile.entityframeworksection, entit...
Read more

c++ - Clear the memory after returning a vector in a function -

-
i have function processes , stores lot of data in , returns results vector of class. amount of data stored in function tremendous , want clear storage memory of function after finished job. necessary (does function automatically clear memory) or should clear memory function? update: vector<customers> process(char* const *filename, vector<int> id) { vector<customers> list_of_customers; (perform actions) return list_of_customers; } variables defined locally within function automatically released @ end of function scope. destructors objects called, should free memory allocated objects (if objects coded correctly). example of such object std::vector . anything you've allocated new must have corresponding delete release storage. try avoid doing own allocation , use raii instead, i.e. containers or smart pointers.
Read more

erlang - Saving a digraph to mnesia is hindered because of its side-effects -

-
updated the digraph library in erlang implements data type side-effectful. each operation on data type saves new state in ets table -- instead of returning altered version of itself, more common in functional languages. the problem usage perspective, impedes effort store or pass around state in convenient way requiring me first "collect" state before can start juggle around. the closest solution have seen far serializer/deserializer , these have drawback tied current structure of digraphs instead of operating on abstract type -- prevents future proof solution. update pascal pointed out serializer utilizes interface of digraph, , hence eliminates drawback mentioned above. better, albeit still inconvenient, see no better alternative. what recommendation on how store digraphs? should go different data type altogether? thanks. i not sure understand concern. fact digraph stored in ets transparent in user interface, might want chnge either exchange digr...
Read more