Missões espaciais tripuladas
MannedSpaceMissionData possui informação histórica e atualizada sobre a exploração humana no espaço.
missions = MannedSpaceMissionData[];
Você pode criar um EventSeries baseado na data de lançamento das missões com valores de vetor armazenando a missão como entidade e a duração de cada missão.
data = DeleteMissing[
MannedSpaceMissionData[
missions, {"LaunchDate", "Entity", "MissionDuration"}], 1, 2];
es = EventSeries[data[[All, {2, 3}]], {data[[All, 1]]}]
O gráfico TimelinePlot de marcas de tempo mostra o intervalo quase contínuo das missões espaciais tripuladas desde 1961.
TimelinePlot[es["Dates"]]
Para analisar as durações das missões extraímos o segundo componente da série de evento original e convertemos os valores para horas.
durations = UnitConvert[es["PathComponent", 2], "Hours"]
As missões curtas são mais comuns.
Histogram[durations, Quantity[{0, 6000, 500}, "Hours"],
AxesLabel -> Automatic]
DateListPlot[{durations, line1, line2}, opts]
Calcule algumas estatísticas descritivas das durações das missões. Note que a média e a mediana estão longe uma da outra, indicando uma distribuição de cauda longa.
stats = {Min, Max, Mean, Median};
convert :=
UnitConvert[N[#], MixedUnit[{"Months", "Days", "Hours", "Minutes"}]]
&
TableForm[Map[convert[#[durations]] &, stats],
TableHeadings -> {stats}]
O tempo total que um humano ficou no espaço.
UnitConvert[Total[durations],
MixedUnit[{"Years", "Months", "Days", "Hours", "Minutes",
"Seconds"}]]