Skip to main content

plotting - Simulating CoordinatesToolOptions (for CDF) & the Inflexibility of MousePosition


I got two lists of equal lengths, which I show in two ListPlots, arranged in a Column or GraphicsColumn (whatever works). When I mouse over any of the two ListPlots, I want to show the y-values of both ListPlots tooltip style right where the mouse is.



I know how to do this using CoordinatesToolOptions; however, that's not an option, because it has to work in CDF, and it appears that the coordinate tool (pressing "." after having selected a graphic) does not work in CDF.


So I'm trying to simulate this behavior with Epilog, Text, MousePosition, Mouseover; in what I tried, I find that the behavior of MousePosition is weird, which might be due to my lack of understanding.


So first of all, here is the functionality I'd like to simulate.


With[{
    top = 0.5 RandomReal[{0, 1}, 100] + Table[Sin[0.0628 i], {i, 100}],
    bot = 0.5 RandomReal[{0, 1}, 100] + Table[Cos[0.0628 i], {i, 100}]
},
With[{ttDisplayFun = Function[pt, 
    Column[{
        Row[{"top ", top[[Min[100, Max[1, Round[pt[[1]]]]]]]}],

        Row[{"bot ", bot[[Min[100, Max[1, Round[pt[[1]]]]]]]}]
    }]
]},
With[{opts = {Joined -> True, ImageSize -> 400, 
    CoordinatesToolOptions -> {"DisplayFunction" -> ttDisplayFun}}},
        Dynamic@Column[{ListPlot[top, opts], ListPlot[bot, opts]}]
]]]

want


Now, trying it without CoordinatesToolOptions, I got no problem displaying the desired tooltip underneath the two plots.



With[{
    top = 0.5 RandomReal[{0, 1}, 100] + Table[Sin[0.0628 i], {i, 100}],
    bot = 0.5 RandomReal[{0, 1}, 100] + Table[Cos[0.0628 i], {i, 100}]
},
Dynamic@Column[{
    ListPlot[top, Joined -> True, ImageSize -> 400],
    ListPlot[bot, Joined -> True, ImageSize -> 400],
    With[{mouse = MousePosition[{"Graphics", Graphics}, {0, 0}]},
        With[{mouseX = mouse[[1]], mouseY = mouse[[2]]}, Column[{
            "good: mouse coords are in units used in the plot",

            "y values of top and bot easy to retrieve",
            "bad: I want this displayed tooltip style wherever the mouse is",
            Row[{"mouseX: ", mouseX}],
            Row[{"mouseY: ", mouseY}],
            Row[{"top: ", top[[Min[100, Max[1, Round[mouseX]]]]]}],
            Row[{"bot: ", bot[[Min[100, Max[1, Round[mouseX]]]]]}]
        }]]
    ]
}]]


underneath


First thing I tried was to move the code into Epilog.


With[{
    top = 0.5 RandomReal[{0, 1}, 100] + Table[Sin[0.0628 i], {i, 100}],
    bot = 0.5 RandomReal[{0, 1}, 100] + Table[Cos[0.0628 i], {i, 100}]
},
Dynamic@Column[{
    ListPlot[top, Joined -> True, ImageSize -> 400, Epilog -> With[
        {mouse = MousePosition[{"Graphics", Graphics}, {99999, 99999}]},
            Text[Style[Framed[Column[{

                "I am Lazarus", "+++++++++",
                Row[{"top: ", top[[Min[100, Max[1, Round[mouse[[1]]]]]]]}],
                Row[{"bot: ", bot[[Min[100, Max[1, Round[mouse[[1]]]]]]]}]
            }]]
            , Background -> LightYellow, FontSize -> 16]
            , mouse, {-0.5, 1.4}]
        ]],
    ListPlot[bot, Joined -> True, ImageSize -> 400, Epilog -> With[
        {mouse = MousePosition[{"Graphics", Graphics}, {99999, 99999}]},
            Text[Style[Framed[Column[{

                "I am Lazarus", "---------",
                Row[{"top: ", top[[Min[100, Max[1, Round[mouse[[1]]]]]]]}],
                Row[{"bot: ", bot[[Min[100, Max[1, Round[mouse[[1]]]]]]]}]
            }]]
            , Background -> LightYellow, FontSize -> 16]
            , mouse, {-0.5, 1.4}]
        ]]
    }]
]


lazarus


MousePosition will always return coordinates, when the mouse is over one of the two ListPlots; I'd rather have MousePosition only return something (other than the default), if the mouse is over that ListPlot in the Epilog of which I'm calling MousePosition. There obviously should be a way to tell MousePosition, that one is interested only in the coordinates, when the mouse is over some specific graphic. Is there a way to do that?


Anyway, my next attempt was to use GraphicsColumn instead of column, because that has an Epilog option, which Column doesn't. (I actually would prefer Column, since GraphicsColumn adds lightyears of superfluous white space.) But now it turns out that in the Epilog of GraphicsColumn, we're dealing with a whole new coordinate system. I'd like to refer to any of the two coordinate systems of the two plots (don't matter which, since I need only the horizontal component, and that's the same for both.) So it's kind of the same problem as above; MousePosition appears to be inflexible. Am I missing something?


With[{
    top = 0.5 RandomReal[{0, 1}, 100] + Table[Sin[0.0628 i], {i, 100}],
    bot = 0.5 RandomReal[{0, 1}, 100] + Table[Cos[0.0628 i], {i, 100}]
},
Dynamic@Column[{
    GraphicsColumn[{
        ListPlot[top, Joined -> True, ImageSize -> 400],

        ListPlot[bot, Joined -> True, ImageSize -> 400]
    }
    , Epilog -> With[
        {mouse = MousePosition[{"Graphics", Graphics}, {99999, 99999}]},
            Text[Style[Framed[Column[{"wrong coordinate system", mouse}]]
            , Background -> LightYellow, FontSize -> 16], mouse, {-1, 2}]
        ]]
    }]
]


wrong coordinate system


This post is getting too long, what I tried with Mouseover didn't work either.


So ideally, what I'd want would be something like


MousePosition[,...]

or


If[CurrentGraphic[] == someGraphic, ...]

update


Well, I answered my own question below, but I still have no clue whether or not the above things that I would wish one could do with MouseCoordinates are possible. Are they?





Comments

Post a Comment

Popular posts from this blog

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