Histogram[RandomVariate[ℛSolarGrid,1000],{2},"ProbabilityDensity",ChartStyleDirective[Opacity[0.8],ColorData[97][3]],FrameTrue,FrameLabel{"Lifetime (years)","Probability Density"},AxesFalse,ImageSize500,Epilog{{Thick,Red,Dashed,Line[{{NExpectation[t,tℛSolarGrid],0},{NExpectation[t,tℛSolarGrid],0.05}}]},Text[Style["E[t]",14,Bold,Red],{NExpectation[t,tℛSolarGrid],0.055}]}]