Skip to main content

plotting - LayeredGraphPlot Vertex Spacing / Edge Length


For anyone who has used LayeredGraphPlot (Mma v9), you have probably seen that the vertex spacing is consistent throughout, that vertices have the same minimum unit of spacing in the vertical and horizontal directions.


I know that changing AspectRatio will adjust one of the directions with respect to the other, but if I want to keep the existing aspect ratio, but want to space the vertices further apart (not resizing the overall graphic).


Without specifying the actual vertex potions using VertexCoordinateRules for each vertex, is it possible to change the vertical/horizontal spacing unit? For instance, if I just want all of the vertices to be spaced twice as far apart from each other in each direction as the default, can this be set?


UPDATE: For a given set a vertices LayeredGraphPLot chooses this minimum spacing unit, however, if you change the list of rules, or use a different set of rules (and hence how the vertices are connected), it will redraw it with different spacing, even though it could have been done using the spacing from the original set of rules, regardless of if you leave AspectRatio and ImageSize as free parameters or not. There may be an algorithm to avoid vertex crowding, but I don't see why the minimum unit spacing couldn't still be set anyway.


Here is an example, note that all of the red lines are the same size, depicting the constant unit dimension between vertices.


enter image description here


UPDATE 2: SquareOne's solution with two different data sets:


set1 = {"A" -> "B", "B" -> "C", "D" -> "F", "A" -> "F", "G" -> "B", "H" -> "C", "C" -> "G"};


enter image description here



set2 = {"B" -> "A", "B" -> "G", "D" -> "H", "A" -> "F", "G" -> "A", "H" -> "B", "F" -> "G"};


enter image description here


You can see, that with the same number of rules in the list (and hence the same number of edges), the same number of vertices, with the vertices being the same size (resizing the images), and the aspect ratios allowed to vary as needed to accommodate the plot, the edgelengths are very different.


UPDATE 3: SquareOne's solution has been modified to work for arbitrary datasets, I therefore accept his solution.



Answer



This answer is closely related to your previous post and to the answer I gave you then. They could actually be merged.


Edit


As requested, here is a new version of the function which let you change the scale of the edges while keeping the same unit length for any working set.


(I finally managed (not trivial) to get the width and height of the plot produced by the function LayeredGraphPlot ; these are needed in order to scale properly every elements in the rendering options);


As a bonus ;) the image size of the plots are now automatically scaled according to the unit length. Any other words you don't need anymore to resize manually the plots for different sets in order to compare them.



draw[set_, edgescale_: 1, aspectratio_: 0] :=
 Module[{width, height, ar0, ar, thicknessDisk = 0.18},
  {width, height} = 
   edgescale*(LayeredGraphPlot[set, Bottom, Axes -> False, 
         PlotRangePadding -> None][[1, 1, 1]] // Transpose // (Max@# - Min@#) & /@ # &);
  ar0 = height/width;
  ar = If[aspectratio == 0, ar0, aspectratio];
  LayeredGraphPlot[set, Bottom, VertexLabeling -> True, DirectedEdges -> True, 
   EdgeRenderingFunction -> ({Black, Thickness[0.1/width], Arrow[#1, 0.05]} &), 
   VertexRenderingFunction -> ({EdgeForm[{Black, Thickness[0.04/width]}], White, 

       Disk[#1, Scaled[{thicknessDisk/width, ar0*thicknessDisk/height/ar}]], 
       Black, Style[Text[#2, #1], FontFamily -> "Arial", Bold, 
        FontSize -> Scaled[0.2/width]]} &), 
   PlotStyle -> Arrowheads[{{0.3/width, 0.8}}], 
   PlotRangePadding -> 0., Axes -> False, AspectRatio -> ar, 
   ImageSize -> 75*(width + 2*thicknessDisk)]]

Tests:


The example sets :


set1 = {"A" -> "B", "B" -> "C", "D" -> "F", "A" -> "F", "G" -> "B", "H" -> "C", "C" -> "G"}; 

set2 = {"B" -> "A", "B" -> "G", "D" -> "H", "A" -> "F", "G" -> "A", "H" -> "B", "F" -> "G"};

then put all this in one cell and run :


Print["set1 with edge scale = 2:"]; draw[set1, 2]
Print["set1 with edge scale = 1 and aspect ratio = 1:"]; draw[set1, 1, 1]
Print["set1 (default param.):"]; draw[set1]
Print["set2 (default param.):"]; draw[set2]

enter image description here


enter image description here



Comments

Post a Comment

Popular posts from this blog

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Mathematica: 3D plot based on combined 2D graphs

I have several sigmoidal fits to 3 different datasets, with mean fit predictions plus the 95% confidence limits (not symmetrical around the mean) and the actual data. I would now like to show these different 2D plots projected in 3D as in but then using proper perspective. In the link here they give some solutions to combine the plots using isometric perspective, but I would like to use proper 3 point perspective. Any thoughts? Also any way to show the mean points per time point for each series plus or minus the standard error on the mean would be cool too, either using points+vertical bars, or using spheres plus tubes. Below are some test data and the fit function I am using. Note that I am working on a logit(proportion) scale and that the final vertical scale is Log10(percentage). (* some test data *) data = Table[Null, {i, 4}]; data[[1]] = {{1, -5.8}, {2, -5.4}, {3, -0.8}, {4, -0.2}, {5, 4.6}, {1, -6.4}, {2, -5.6}, {3, -0.7}, {4, 0.04}, {5, 1.0}, {1, -6.8}, {2, -4.7}, {3, -1....
Post a Comment
Read more