r - Sharing a Legend between two combined ggplots -

-

I am currently trying to present the series twice using two ggplot2, both with very different scales, Using two ggplots. By using grid.arrange , I've added two separate ggplots on top of each other. For visualization support, I want to make each row a different color, and this story is given below under the joint conspiracy.

Because it can be relevant, I am currently working in the range of creating a shining section of an R mark document. Therefore grid.arrange . Renderplate wrapper around;

The following is the code I have. 

  testdata = data.frame (Var1 = seq (0, 10, = 1), var2 = runif (11), var3 = runif (11, min = 100, max = 500)) Render plot ({grid.arrange (ggplot (data = test data, ace (x = var1, y = var2)) + geom_line (color = "blue") + xlab (null), ggplot (data = testdata, aes (x = Var1, y = var3)) + geom_line (color = "red")}}   
 Is there a suggestion about creating a shared lion? Thanks for your help.  
 
 
  ggplot2   < / P> 
  Method 1: When the scales are the same   
  facet_grid By using  or just the  color  parameter in combination with the  reshape2  package, you can easily add multiple plots with the same legend. The values ​​of your variable have the same order of magnitude, so this is ideal.  
  using  color  &  reshape2 :   
  Library ('reshape2') data_melt & lt; -melt (data = testdata, value.name = 'value', id.vars = 'var1') ggplot (data_melt) + geom_line (aes (x = var1, y = value, color = variable))  < / Pre> 
 High difference in magnitude leads to a poor conspiracy, but the result of the same scales is in a good conspiracy <Code> color </ code> by using </ p> <p> <em>, <code> facet_grid </ code> & amp; <Code> reshape2 </ code>: </ em> </ p> <pre> <code> Library ('reshape2') data_melt & lt; -melt (data = testdata, value.name = 'value', id.vars = 'var1') ggplot (data_melt) + geom_line (aes (x = var1, y = value, color = variable)) + facet_grid (~ variable ) </ Code> </ pre> <p> <img src =   
  Method 2: When the scales are wildly vulnerable   
  Price vs. ID plot: Combine   
 As you can see, the last plot is great! You need to create a conspiracy to keep your legend; Pass it as a custom function created in custom parameters.  
  testdata = data.frame (var1 = seq (0, 10, by = 1), var2 = runif (11), var3 = runif (11, min = 100, max = 500) ) Library ('reshape2') data_melt & lt; -melt (data = test data, value.name = 'value', id.vars = 'var1') p1 = ggplot (data = testdata) + geom_line (aes (x = var1, y = var2, color = 'blue') ) P2 = ggplot (data = testdata) + geom_line (aes (x = var1, y = var3, color = 'red')) p3 = ggplot (data_melt) + geom_line (aes (x = var1, y = value, color = Variable)) grid.arrange (P1, P2, Nrow = 2, main = 'line plot') g_legend & lt; Function (a.gplot) {tmp & lt; - ggplot_gtable (ggplot_build (a.gplot)) leg & lt; - who (sapply (tmp $ grobs, function (x) $ name) == "guide-box") Legend & lt; - TMP $ grobs [[Legs]] Return (legend)} Legend & lt; - g_legend (p3) lwidth & lt; - Zodiac (Legend $ width) # # # Use of grid for feature # can also manually organize the viewports grid. ArrangeGrob (p1 + theme (legend.position = "none"), P2 + theme (legend.position = "none"), main = "variable name", left = "val Ue"), legend, width = unit Unit (1, "NPC") - Elvideth, LWDith), NRO = 1)

Comments

Post a Comment

Popular posts from this blog

ios - Adding an SKSpriteNode to SKScene from a child SKSpriteNode -

-
I have a SKScene where I am adding an SKSpriteNode I have subclassed the SKSpriteNode class to create this node. In the subclass I am defining some SKActions on Sprite. What do I want to do when the end of this phantom ends the SKAction sequence, then I add a new Prayer node to this scene. How is this possible. The following code is mine: The code for the sequence is that I'm running on the Scansprinitode subclass (TEMissileNode): - SKAction * moveDown = [SKAction moveToY: Self.position.y - 20 Duration: 0.2]; SKAction * animation = [SKAction animateWithTextures: textures timePerFrame: time / 7]; SKAction * moveMissileProjectile = [SKAction Moving: Pointoffscreen Term: Time]; SKAction * group = [SKAction group: @ [animation, movement projectile]]; SKAction * Sequence = [SKAction Sequence: @ [Hilldown, Group, [SKAction removalFromParent]]]; [Self run action: sequence]; From the main scene, I call those actions that execute these tasks TEMissileNode * missile = [tmissil...
Read more

Matlab transpose a table vector -

-
An embarrassing simple question seems to be, but how can I move a Matlab table vector? aTableT = aTable '; I tried a standard syntax for the simple interaction of a line vector to a line vector aTable : ATableT = reshape (aTable, 1, Height (aTable)); and aTableT = rot90 (aTable); According to the head, the last time table should work for table, see. However, I get this error code: Error type in using table / permit (line 396) Undefined function 'permute' for the input arguments. Error in rot 90 (line 29) b = magnitude (b, [2 1 3: ndims (a)]); NB: fliplr is not useful either pretty sure I have covered clear angles - any ideas? Thanks! Try changing your table into an array, move it, then back to a table In other words, try doing this: aTableArray = table2array (aTable); ATableT = array 2table (aTableArray. '); I have also read the document for rot90 , and it says that rot90 is definitely working for tables Do, and I find you...
Read more

c# - Textbox not clickable but editable -

-
I have a small form with 10 text boxes, I have set them in the correct tab order. I want them on my tab service I was wondering if there is a way to set the text box so that they can be selected for editing until they are tabbed. That is ... I do not want the end user to edit the text box to click on them, I just want to make them editable through tabu. this should do the trick public partial category poor text box: Text Box {Safe Override Zero WndProc (Ref: Message Message) {if (m.msg == (Int) WM.LBUTTONDOWN) {Return; // mount down events} base.WndProc (ref m); }} Window message enum can be found. How to do this without anherizing: text box : class EatMouseDown: netwindows {safe override zero WndProc (ref message message) {if (m.msg == (int) WM.LBUTTONDOWN) {return; } Base.WandProc (Ref M); }} Safe Override Zero Onload (EventEurge E) {base.OnLoad (e); How to do this without any part: left a clean part, whatever is important, this can be a buggy but it works R...
Read more