Туннели
TunnelData предоставляет информацию о туннелях, включая их длину и местоположение.

tunnels = TunnelData[];

Length[tunnels]

Для каждого туннеля, рассчитаeм его длину и расположение, заданное по стране или странам.

rawData = TunnelData[tunnels, {"Countries", "Length"}];
Удалим пропущенные значения.

data = DeleteMissing[rawData, 1, 2];
Преобразуем длинy в мили.

data[[All, 2]] = UnitConvert[N[data[[All, 2]]], "Miles"];

lengths = data[[All, 2]];

MinMax[lengths]


h = Histogram[lengths, {1, 12, .5}, PDF, FrameLabel -> Automatic,
PlotTheme -> "Detailed"]

Данные могут быть описаны с помощью комбинации распределений с длинным хвостoм.

dist = MixtureDistribution[{w1,
w2}, {ParetoDistribution[a1, a2, a3, a4],
WeibullDistribution[b1, b2]}];

edist = EstimatedDistribution[lengths, dist]

Проверим правильность описания данных с помощью параметрического смешивания распределений.

DistributionFitTest[lengths, dist, "TestDataTable"]

Создадим PDF файл с гитограммой полученного распределения.

Show[h, Plot[PDF[edist, Quantity[x, "Miles"]], {x, 1, 12},
PlotRange -> All] // Quiet]

Визуализируем расположение туннелей.
Группируем по стране расположения туннелей.

res = GroupBy[data, First, Flatten[Take[#, All, -1]] &];
Некоторые туннели расположены на территории нескольких стран.

shared = Select[Keys[res], Length[#] > 1 &]

Распределим туннели принадлежащие более чем одной стране и выберем страны, которые имеют по меньшей мере 10 туннелей. Графически отобразим распределение длины туннелей.

Продолжительность туннелей каждой из стран, где находятся общие туннели, включена в общую длину туннелей этих стран.
