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

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...
Post a Comment
Read more

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...
Post a Comment
Read more

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...
Post a Comment
Read more