ListPointPlot3D filling between two listsList plot with vertical lines between corresponding data...

Multi tool use
Multi tool use

Trigonometry substitution issue with sign

When does tabularx decide to break the cell entry instead of reducing the columns separation?

Can my 2 children, aged 10 and 12, who are US citizens, travel to the USA on expired American passports?

Would a small hole in a Faraday cage drastically reduce its effectiveness at blocking interference?

What was the first story to feature the plot "the monsters were human all along"?

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

Feasibility of lava beings?

Change in "can't be countered" wording

Out of scope work duties and resignation

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

Install LibreOffice-Writer Only not LibreOffice whole package

What to use instead of cling film to wrap pastry

Checking if two expressions are related

Handling Null values (and equivalents) routinely in Python

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

How do I, as a DM, handle a party that decides to set up an ambush in a dungeon?

Which sphere is fastest?

Indentation Tex

How long would it take for people to notice a mass disappearance?

My first c++ game (snake console game)

How do I calculate how many of an item I'll have in this inventory system?

Are the Night's Watch still required?

Dangerous workplace travelling

Start job from another SQL server instance



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












$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}}]









share|improve this question









$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
    5 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
    3 hours ago
















3












$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}}]









share|improve this question









$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
    5 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
    3 hours ago














3












3








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}}]









share|improve this question









$endgroup$




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













share|improve this question











share|improve this question




share|improve this question










asked 5 hours ago









user12734user12734

675




675








  • 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
    5 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
    3 hours ago














  • 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
    5 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
    3 hours ago








1




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
5 hours ago






$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
5 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$
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
3 hours ago




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










2 Answers
2






active

oldest

votes


















2












$begingroup$

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


enter image description here



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"}]]


enter image description here






share|improve this answer









$endgroup$













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



















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









$endgroup$














    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


















    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















    Required, but never shown

























    2 Answers
    2






    active

    oldest

    votes








    2 Answers
    2






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    2












    $begingroup$

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


    enter image description here



    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"}]]


    enter image description here






    share|improve this answer









    $endgroup$













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
















    2












    $begingroup$

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


    enter image description here



    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"}]]


    enter image description here






    share|improve this answer









    $endgroup$













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














    2












    2








    2





    $begingroup$

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


    enter image description here



    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"}]]


    enter image description here






    share|improve this answer









    $endgroup$



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


    enter image description here



    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"}]]


    enter image description here







    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered 3 hours ago









    kglrkglr

    191k10210429




    191k10210429












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


















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
















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




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











    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









    $endgroup$


















      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









      $endgroup$
















        0












        0








        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









        $endgroup$



        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












        share|improve this answer



        share|improve this answer










        answered 2 hours ago









        user12734user12734

        675




        675






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Mathematica Stack Exchange!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            Use MathJax to format equations. MathJax reference.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            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















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            jrjZeiXZj8iG exo LqF wZG0DK,k nUYjo5 KZ 3BkboyNNR
            PU5aPcTWJhQhsOkLVgxR

            Popular posts from this blog

            Taj Mahal Inhaltsverzeichnis Aufbau | Geschichte | 350-Jahr-Feier | Heutige Bedeutung | Siehe auch |...

            Baia Sprie Cuprins Etimologie | Istorie | Demografie | Politică și administrație | Arii naturale...

            Nicolae Petrescu-Găină Cuprins Biografie | Opera | In memoriam | Varia | Controverse, incertitudini...