Mfcttrf

Correct way of drawing empty, half-filled and fully filled circles?

SOQL query WHERE filter by specific months

Can there be a single technologically advanced nation, in a continent full of non-technologically advanced nations?

Why did WWI include Japan?

Should I simplify my writing in a foreign country?

Has the United States ever had a non-Christian President?

Is there a word that describes the unjustified use of a more complex word?

How to deal with employer who keeps me at work after working hours

Why symmetry transformations have to commute with Hamiltonian?

Why does sound not move through a wall?

Which US defense organization would respond to an invasion like this?

Is 'contemporary' ambiguous and if so is there a better word?

Python 3 - simple temperature program

A factorization game

As a GM, is it bad form to ask for a moment to think when improvising?

Is disk brake effectiveness mitigated by tyres losing traction under strong braking?

Change in "can't be countered" wording

What is the closest airport to the center of the city it serves?

Why would a military not separate its forces into different branches?

Why didn't this character get a funeral at the end of Avengers: Endgame?

Is there a word for food that's gone 'bad', but is still edible?

What was Bran's plan to kill the Night King?

Where to draw the line between quantum mechanics theory and its interpretation(s)?

Mug and wireframe entirely disappeared

ListPointPlot3D filling between two lists

List plot with vertical lines between corresponding data pointsCreate filling between two trig functionsFilling between two 3D surfacesLooking for mismatches between two listsFilling between two spheres in SphericalPlot3DComputing a map between two listsFind (longest) overlapping elements between two listsFilling between more than two boundariesFilling between two listplotsEfficiently exchange elements between two listsLookup between two lists

3

1

$begingroup$

I'm trying to connect pairs of corresponding points from two lists in a ListPointPlot3D (similar to what was done here but in 3D). Filling-> 1->2 isn't working for me, so I presume the problem must lie in how I'm passing the two lists.

SeedRandom[11];
sigma = DiagonalMatrix[0.001, 0.001, 0.000001];
sp = 5;
means1 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.8, sp]];
dist1 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means1[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
means2 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.2, sp]];
dist2 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means2[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
n = 50;
data1 = RandomVariate[dist1, n];
data2 = RandomVariate[dist2, n];
ListPointPlot3D[data1, data2, PlotRange -> 0, 1, 0, 1, 0, 1,
 Filling -> 1 -> 2]

plotting list-manipulation

share|improve this question

asked 5 hours ago

user12734user12734

675

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  It seems that for ListPointPlot3D the Filling limits can only be Top, Bottom, Axis or None. Does Graphics3D[PointSize[Medium], Red, Point[data1], Blue, Point[data2], Gray, Line /@ Transpose[data1, data2], Boxed -> True] give what you need.
  $endgroup$
  – kglr
  4 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Almost! What I'd like to for each point in the top layer to be connected to only one point in the bottom layer. Which point is connected to which is determined by their position (order) in the data (i.e. first point in data1 connects to first point in data2). thanks
  $endgroup$
  – user12734
  3 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  user12734, Transpose[data1, data2] pairs points from data1 and data2 based on position.
  $endgroup$
  – kglr
  2 hours ago
  

  
  
  
  

add a comment | 

3

1

$begingroup$

I'm trying to connect pairs of corresponding points from two lists in a ListPointPlot3D (similar to what was done here but in 3D). Filling-> 1->2 isn't working for me, so I presume the problem must lie in how I'm passing the two lists.

SeedRandom[11];
sigma = DiagonalMatrix[0.001, 0.001, 0.000001];
sp = 5;
means1 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.8, sp]];
dist1 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means1[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
means2 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.2, sp]];
dist2 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means2[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
n = 50;
data1 = RandomVariate[dist1, n];
data2 = RandomVariate[dist2, n];
ListPointPlot3D[data1, data2, PlotRange -> 0, 1, 0, 1, 0, 1,
 Filling -> 1 -> 2]

plotting list-manipulation

share|improve this question

asked 5 hours ago

user12734user12734

675

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  It seems that for ListPointPlot3D the Filling limits can only be Top, Bottom, Axis or None. Does Graphics3D[PointSize[Medium], Red, Point[data1], Blue, Point[data2], Gray, Line /@ Transpose[data1, data2], Boxed -> True] give what you need.
  $endgroup$
  – kglr
  4 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Almost! What I'd like to for each point in the top layer to be connected to only one point in the bottom layer. Which point is connected to which is determined by their position (order) in the data (i.e. first point in data1 connects to first point in data2). thanks
  $endgroup$
  – user12734
  3 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  user12734, Transpose[data1, data2] pairs points from data1 and data2 based on position.
  $endgroup$
  – kglr
  2 hours ago
  

  
  
  
  

add a comment | 

$begingroup$

I'm trying to connect pairs of corresponding points from two lists in a ListPointPlot3D (similar to what was done here but in 3D). Filling-> 1->2 isn't working for me, so I presume the problem must lie in how I'm passing the two lists.

SeedRandom[11];
sigma = DiagonalMatrix[0.001, 0.001, 0.000001];
sp = 5;
means1 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.8, sp]];
dist1 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means1[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
means2 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.2, sp]];
dist2 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means2[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
n = 50;
data1 = RandomVariate[dist1, n];
data2 = RandomVariate[dist2, n];
ListPointPlot3D[data1, data2, PlotRange -> 0, 1, 0, 1, 0, 1,
 Filling -> 1 -> 2]

plotting list-manipulation

share|improve this question

asked 5 hours ago

user12734user12734

675

$endgroup$

SeedRandom[11];
sigma = DiagonalMatrix[0.001, 0.001, 0.000001];
sp = 5;
means1 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.8, sp]];
dist1 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means1[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
means2 = Flatten /@ 
 Transpose[Table[RandomReal[0, 1, 2], sp], Table[0.2, sp]];
dist2 = MixtureDistribution[Table[1, sp],
 Table[MultinormalDistribution[means2[[i]], sigma], i, 
 Table[j, j, sp]]
 ];
n = 50;
data1 = RandomVariate[dist1, n];
data2 = RandomVariate[dist2, n];
ListPointPlot3D[data1, data2, PlotRange -> 0, 1, 0, 1, 0, 1,
 Filling -> 1 -> 2]

share|improve this question

asked 5 hours ago

user12734user12734

675

share|improve this question

asked 5 hours ago

user12734user12734

675

asked 5 hours ago

user12734user12734

675

asked 5 hours ago

user12734user12734

675

2 Answers
2

active

oldest

votes

2

$begingroup$

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line @ Transpose[data1, data2]]]

Alternatively, you can use Graphics3D to plot both points and connecting lines:

Legended[Graphics3D[PointSize[Medium], Red, Point[data1], Blue, 
 Point[data2], Gray, Line /@ Transpose[data1, data2], BoxRatios -> 1, 1, 0.4], 
 PointLegend[Red, Blue, "data1", "data2"]]

share|improve this answer

answered 2 hours ago

kglrkglr

191k10210429

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You're exactly right! I was thinking about my data incorrectly. thanks!
  $endgroup$
  – user12734
  2 hours ago
  

  
  
  
  

add a comment | 

0

$begingroup$

The following might be useful for others to see my mistake:

SeedRandom[11];
sp = 4;
maxVar = 0.02;
means = Table[RandomReal[0, 1, 2], sp];
dist = MixtureDistribution[Table[1, sp],
 Table[BinormalDistribution[means[[i]], 
 RandomReal[0.01, maxVar, 2], 0.5], i, Table[j, j, sp]]
 ];
n = 50;
pos = RandomVariate[dist, n];
data1 = Flatten /@ Transpose[pos, Table[0.8, n]];
data2 = Flatten /@ Transpose[pos, Table[0.2, n]];

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line@Transpose[data1, data2]]]

share|improve this answer

answered 2 hours ago

user12734user12734

675

$endgroup$

add a comment | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197626%2flistpointplot3d-filling-between-two-lists%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

$begingroup$

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line @ Transpose[data1, data2]]]

Alternatively, you can use Graphics3D to plot both points and connecting lines:

Legended[Graphics3D[PointSize[Medium], Red, Point[data1], Blue, 
 Point[data2], Gray, Line /@ Transpose[data1, data2], BoxRatios -> 1, 1, 0.4], 
 PointLegend[Red, Blue, "data1", "data2"]]

share|improve this answer

answered 2 hours ago

kglrkglr

191k10210429

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You're exactly right! I was thinking about my data incorrectly. thanks!
  $endgroup$
  – user12734
  2 hours ago
  

  
  
  
  

add a comment | 

2

$begingroup$

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line @ Transpose[data1, data2]]]

Alternatively, you can use Graphics3D to plot both points and connecting lines:

Legended[Graphics3D[PointSize[Medium], Red, Point[data1], Blue, 
 Point[data2], Gray, Line /@ Transpose[data1, data2], BoxRatios -> 1, 1, 0.4], 
 PointLegend[Red, Blue, "data1", "data2"]]

share|improve this answer

answered 2 hours ago

kglrkglr

191k10210429

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You're exactly right! I was thinking about my data incorrectly. thanks!
  $endgroup$
  – user12734
  2 hours ago
  

  
  
  
  

add a comment | 

$begingroup$

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line @ Transpose[data1, data2]]]

Alternatively, you can use Graphics3D to plot both points and connecting lines:

Legended[Graphics3D[PointSize[Medium], Red, Point[data1], Blue, 
 Point[data2], Gray, Line /@ Transpose[data1, data2], BoxRatios -> 1, 1, 0.4], 
 PointLegend[Red, Blue, "data1", "data2"]]

share|improve this answer

answered 2 hours ago

kglrkglr

191k10210429

$endgroup$

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line @ Transpose[data1, data2]]]

Legended[Graphics3D[PointSize[Medium], Red, Point[data1], Blue, 
 Point[data2], Gray, Line /@ Transpose[data1, data2], BoxRatios -> 1, 1, 0.4], 
 PointLegend[Red, Blue, "data1", "data2"]]

share|improve this answer

answered 2 hours ago

kglrkglr

191k10210429

answered 2 hours ago

kglrkglr

191k10210429

answered 2 hours ago

kglrkglr

191k10210429

0

$begingroup$

The following might be useful for others to see my mistake:

SeedRandom[11];
sp = 4;
maxVar = 0.02;
means = Table[RandomReal[0, 1, 2], sp];
dist = MixtureDistribution[Table[1, sp],
 Table[BinormalDistribution[means[[i]], 
 RandomReal[0.01, maxVar, 2], 0.5], i, Table[j, j, sp]]
 ];
n = 50;
pos = RandomVariate[dist, n];
data1 = Flatten /@ Transpose[pos, Table[0.8, n]];
data2 = Flatten /@ Transpose[pos, Table[0.2, n]];

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line@Transpose[data1, data2]]]

share|improve this answer

answered 2 hours ago

user12734user12734

675

$endgroup$

add a comment | 

0

$begingroup$

The following might be useful for others to see my mistake:

SeedRandom[11];
sp = 4;
maxVar = 0.02;
means = Table[RandomReal[0, 1, 2], sp];
dist = MixtureDistribution[Table[1, sp],
 Table[BinormalDistribution[means[[i]], 
 RandomReal[0.01, maxVar, 2], 0.5], i, Table[j, j, sp]]
 ];
n = 50;
pos = RandomVariate[dist, n];
data1 = Flatten /@ Transpose[pos, Table[0.8, n]];
data2 = Flatten /@ Transpose[pos, Table[0.2, n]];

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line@Transpose[data1, data2]]]

share|improve this answer

answered 2 hours ago

user12734user12734

675

$endgroup$

add a comment | 

$begingroup$

The following might be useful for others to see my mistake:

SeedRandom[11];
sp = 4;
maxVar = 0.02;
means = Table[RandomReal[0, 1, 2], sp];
dist = MixtureDistribution[Table[1, sp],
 Table[BinormalDistribution[means[[i]], 
 RandomReal[0.01, maxVar, 2], 0.5], i, Table[j, j, sp]]
 ];
n = 50;
pos = RandomVariate[dist, n];
data1 = Flatten /@ Transpose[pos, Table[0.8, n]];
data2 = Flatten /@ Transpose[pos, Table[0.2, n]];

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line@Transpose[data1, data2]]]

share|improve this answer

answered 2 hours ago

user12734user12734

675

$endgroup$

SeedRandom[11];
sp = 4;
maxVar = 0.02;
means = Table[RandomReal[0, 1, 2], sp];
dist = MixtureDistribution[Table[1, sp],
 Table[BinormalDistribution[means[[i]], 
 RandomReal[0.01, maxVar, 2], 0.5], i, Table[j, j, sp]]
 ];
n = 50;
pos = RandomVariate[dist, n];
data1 = Flatten /@ Transpose[pos, Table[0.8, n]];
data2 = Flatten /@ Transpose[pos, Table[0.2, n]];

Show[ListPointPlot3D[data1, data2, PlotStyle -> Red, Blue, 
 PlotLegends -> "data1", "data2"], 
 Graphics3D[Gray, Line@Transpose[data1, data2]]]

share|improve this answer

answered 2 hours ago

user12734user12734

675

answered 2 hours ago

user12734user12734

675

answered 2 hours ago

user12734user12734

675