r - Add vertical line to line chart in rChart NVD3 (nPlot) -

-

I would like to add several vertical lines that show special events in the line chart created with the enplot any suggestions? 

  Library (Resep 2) Library (GG Plot 2) Library (RCHHT) ECM & LT; - Repeat 2 :: Melt (Economics [, C ('Date', 'UMPP', 'Pisa', 'ID =' Date '', ID = 'Date') P 7 & lt;   
 Last goal: Add 'date' = '1967-11-30' - nPlot (value = date, group = 'variable', data = ECM, type = 'linewatfocus chart' , Vertical lines with labels on '2001-11-30', '1968-01-31', etc.   
 
 
 OK, so this question should be answered. I think you will see that this is generally beyond the skilled level of the average R user. After all, it would be good to write a custom chart to handle this behavior well and the normal R will be easy for the user and I would like to generalize to handle the dashed and vertical lines in R. Here's more.  
  Library (Resep 2) Library (GG Plot 2) Library (RCARTS) ECM & LT; - Rheps 2 :: Melt (Economics [, C ('Date', 'Umpp', 'Pisa']], ID = 'Date') P 7 & lt; - n Plot (value ~ date, group = 'variable', data = ECM, type = 'lineWithFocusChart') # Let's make it easy to add to date date P7 $ xAxis (tickFormat = "#! Function ) {Return d3.time.format ('% b% Y') (New Date (d * 86400000);}! # ") #https: # github.com / ramnathv / rCharts / blob / master / inst / libraries /nvd3/layouts/chart.html #grafRenders # (Script = SprintF ("script" = script type = 'text / javascript' & gt; $ (document) .ready (function () to add callback to p7 $ setTemplate {{ChartId}} ();}); function draw {{chartId}} () {Var opts = {{{opts}}} var data = {{{Data}}}; if ((Opts.type === 'piechart' || opts.type === 'sparklineplus' || opts .type === 'bulletchart')) {var data = D3.nest () .key (function (d) {// return opts.group === U Ndefined? 'Main': d [opts.group] // Instead of the main opts that optts opts.x opts .group === Undefined? Opts.y: D [opts.group];}). Access (Data);} If (opts.disabled! = Undefined) {data.map (function (d, i) {d. Disabled = opts.disabled [i]}}} nv.addGraph (function () {chart = nv.models [opts. type) (). If (opts.width) .height (opts.height) if (opts.type! = 'Bulletchart') {chart.x (function (d) {return d [opts.x]}). Y (function (d) {return d [opts.y]}}} {{{chart}}} {{{x xx}}} {{x2Axis}}} {{yAxis}}} d3.select (' # '+ Opts.id) .append (' svg ') .Data (data) .transition () .duration (500) .Col (chart); chart.dispatch.brush.on (' brushstart ', function () { DrawVerticalLines (opts)} chart.dispatch.brush.on ('brushhead', function () {window.setTimeout (function) {Draftical lines (opts)}, 250)}); Nv.utils.windowResize (chart updates); Return chart;},% s); }; % S & lt; / Script & gt; ", # Where you can type your vertical row / label function" function () {drawal lines (opts)} ", # add translate here if shiny" function with drawal lines (opt) {if (! ( Select 'D3.select' ('#' + Opts.id + '.nvd3 .nv-focus .nv-linesWrap'). ('Vertical-line') [0] [0])) {d3.select ('# '+ Opts .ID +' .nvd3 .nv-focus .nv-linesWrap ') .andand (' g ') .attr (' class', 'vertical-lines')} vertLines = d3.select (' # '+ Select opts.id ('vertical-line'). All ('vertical-line'). Data ([['date': new Date ('1967-11-30'), 'label': 'to expose some 1967]}, {' date ': new date (' 2001-11-30 '),' label ' : 'Something to highlight 2001'}}) var vertg = VertLines.enter () .append ('g') .attr ('class',' vertical-line ') vertG.append (' svg: line ') VertG.append (' text ') vertLines.exit (). Remove () VertLines.selectAll (' line ') .attr (' x1 ', function (d) {return chart.xAxis.scale () (d. Date / 60/60/24/1000)}) .attr ('x2', function (d) {return chart, xxis. Scale () (D.date/60/60/24/1000)}) .attr ('y1', chart.yAxis.Scale (.) Category () [0]) .attr ('y2', chart.exis Scale (). Category () [1]). Style ('stroke', 'red') vertLines.selectAll ('text') .text (function (d) {return d.label}) .attr ('dy', '1em') // x placement; Make changes for minor adjustments but mainly change the / d.date/60/60/24/1000 // y placement; To change 2 where you want vertical placement // rotate-90, feel free to change whatever you want .attr ('transform', function (d) {return 'translate (' + chart.xAxis.scale () ( D). Date / 60/60/24/1000) + ',' + Chart.exe. Scale () (2) + ') Rotate (-90)'}) // You can also style but you are here // would like to have an example of changing the font size. Style ('font size', '80% ')} ")) p7   
 Let me know your thoughts.

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