Sugira um museu para visitar

Analisando metadados geográficos de uma coleção de fotos turísticas, faça sugestões sobre outros pontos de interesse na mesma área, por exemplo, um museu.

In[1]:=

files = Map[img \[Function] ExampleData[img, "FilePath"], ExampleData[{"TestImageSet", "Oxford2011"}]]; geopos = Map[file \[Function] Import[file, "GeoPosition"], files];

Calcule o centroide dos locais onde as fotos foram tiradas.

In[2]:=

geodata = GeoPosition[{Mean@geopos[[ All, 1, 1]], Mean@geopos[[All, 1, 2]], Mean@Cases[geopos, GeoPosition[{_, _, h_}] :> h]}]

Out[2]=

Encontre o museu mais próximo.

In[3]:=

entMus = Quiet[First@GeoNearest["Museum", geodata]];

In[4]:=

geoMus = Quiet[FindGeoLocation@entMus];

Busque e agrupe informações sobre este museu.

In[5]:=

mus = EntityValue[entMus, EntityProperty["Museum", "Name"]]; type = EntityValue[entMus, EntityProperty["Museum", "MuseumTypes"]]; about = WikipediaData[mus, "SummaryPlaintext"]; description = TextGrid[{ {Style["MUSEUM TO VISIT", 15], SpanFromLeft}, {Style["Name:", Bold], mus}, {Style["Types:", Bold], StringTake[ToString[type], {2, -2}]}, {Style["About:", Bold], about} }, ItemSize -> {{4, 30}, Automatic}]

Out[5]=

Visualize informações deste museu quando passar o mouse em cima de um mapa dos arredores.

In[6]:=

tooltip = Tooltip[GeoMarker[geoMus, Entity["Icon", "Museum"]], description];

In[7]:=

GeoGraphics[{Thick, Red, GeoDisk[geodata, Quantity[1000, "Meters"]], tooltip}, "GeoRange" -> 1500, ImageSize -> Medium]

Out[7]=