New answers tagged

1

Alternatively, get an API key from here (free), and use something like the following: quandl[dataset_, startdate_, enddate_, apikey_] := Import[StringJoin["https://www.quandl.com/api/v3/datasets/", dataset, ".json?api_key=", apikey, "&start_date=", startdate, "&end_date=", enddate]][[1, 2, 6, 2]]; which gives DateListPlot[quandl["WGC/...


3

Just in case anyone comes across this post in a search, here is a one-liner here for version 10 and after. If latlong is the list from the OP, then you can do this GeoGraphics[{Red, PointSize[.02], Point@GeoPosition@latlong}] The input for GeoGraphics is structured like that for Graphics, and you can use a whole host of options GeoGraphics[{Red, ...


4

Answer posted for the benefit of future users of the Quandl package for MMA by Anmol Bajracharya, also described in this Wolfram Community post. Thanks to @MarcoB's search through Quandl's database browser, he found a link to the World Gold Council. Using the code "WGC/GOLD_DAILY_USD" works in this case: << QuandlLink` DateListPlot[ Rest@ ...


7

This is J.M.s answer. I post it as it nicely illustrates "flagging" countries and tooltips. Graphics[Select[Table[Tooltip[Inset[CountryData[i, "Flag"], {CountryData[i, "PovertyFraction"], CountryData[i, "CellularPhones"]/CountryData[i, "Population"]} // QuantityMagnitude, Automatic, Scaled[1/50]], CanonicalName[i]], {i, ...


3

Just to illustrate DynamicWrapper using Anton Antonov's code: pr = PadRight[Partition[povresults[[All, 1]], UpTo[6]]] /. {0 -> ""}; Grid[pr, Frame -> All]; f = DynamicModule[{col = Black}, DynamicWrapper[Dynamic[Style[#, col, Bold]], If[CurrentValue["MouseOver"], col = Red; pos = {#2, #3[[1]]}, col = Black; pos = {}]]] &; Column[ ...


6

Here is code based on yours that I think produces the graph you want: listOfCountries = CountryData[#, "Name"] & /@ CountryData["Countries"]; povresults = Table[{i, CountryData[i, "PovertyFraction"], CountryData[i, "CellularPhones"]/ CountryData[i, "Population"]}, {i, listOfCountries}]; povresults = Select[povresults, FreeQ[#, Missing] &...


0

Got a partial workaround using Show to graph categories of StarData together: markerRed = Graphics[{Red, Disk[]}]; (* Plot luminosity versus mass for ClassOStar": *) classOStarMassLuminosity = ListLogLogPlot[ Tooltip[{##2}, {#1, #2, #3}] & @@@ Take[StarData[EntityClass["Star", "ClassOStar"], {"Name", "Mass", "Luminosity"}], 200], ...


4

In case size means length of each edge: edgeLength = PolyhedronData["TruncatedCube", "EdgeLengths"][[1]]; Graphics3D[ GeometricTransformation[ First @ PolyhedronData["TruncatedCube"], ScalingTransform[{1, 1, 1} (Sqrt[2] - 1)/edgeLength] ] , Axes -> True ]


3

This bug appears to be fixed as early as of version 10.3.1.



Top 50 recent answers are included