Draw an absorption spectrum

spectrum.wl

(* https://mathematica.stackexchange.com/questions/145594/how-can-i-plot-visible-spectrum *)
data = {{380., 0.765}, {380.5, 0.774}, {381., 0.767}, {381.5, 0.76}, {382., 
  0.747}, {382.5, 0.698}, {383., 0.7}, {383.5, 0.654}, {384., 
  0.646}, {384.5, 0.639}, {385., 0.646}, {385.5, 0.597}, {386., 
  0.598}, {386.5, 0.609}, {387., 0.557}, {387.5, 0.552}, {388., 
  0.547}, {388.5, 0.566}, {389., 0.588}, {389.5, 0.619}, {390., 
  0.601}, {390.5, 0.599}, {391., 0.628}, {391.5, 0.645}, {392., 
  0.713}, {392.5, 0.752}, {393., 0.697}, {393.5, 0.7}, {394., 
  0.731}, {394.5, 0.742}, {395., 0.759}, {395.5, 0.804}, {396., 
  0.753}, {396.5, 0.78}, {397., 0.795}, {397.5, 0.773}, {398., 
  0.753}, {398.5, 0.728}, {399., 0.705}, {399.5, 0.705}, {400., 
  0.763}, {400.5, 0.76}, {401., 0.811}, {401.5, 0.793}, {402., 
  0.764}, {402.5, 0.798}, {403., 0.794}, {403.5, 0.775}, {404., 
  0.803}, {404.5, 0.806}, {405., 0.835}, {405.5, 0.822}, {406., 
  0.859}, {406.5, 0.843}, {407., 0.833}, {407.5, 0.873}, {408., 
  0.908}, {408.5, 0.948}, {409., 0.955}, {409.5, 0.928}, {410., 
  0.873}, {410.5, 0.92}, {411., 0.951}, {411.5, 1.035}, {412., 
  1.026}, {412.5, 1.036}, {413., 1.034}, {413.5, 1.055}, {414., 
  1.068}, {414.5, 1.073}, {415., 1.209}, {415.5, 1.245}, {416., 
  1.293}, {416.5, 1.443}, {417., 1.536}, {417.5, 1.652}, {418., 
  1.791}, {418.5, 1.933}, {419., 2.206}, {419.5, 2.501}, {420., 
  2.685}, {420.5, 2.787}, {421., 3.}, {421.5, 3.25}, {422., 
  3.57}, {422.5, 3.76}, {423., 3.994}, {423.5, 4.196}, {424., 
  4.296}, {424.5, 4.414}, {425., 4.483}, {425.5, 4.547}, {426., 
  4.434}, {426.5, 4.438}, {427., 4.213}, {427.5, 3.952}, {428., 
  3.718}, {428.5, 3.333}, {429., 3.097}, {429.5, 2.859}, {430., 
  2.667}, {430.5, 2.397}, {431., 2.224}, {431.5, 2.175}, {432., 
  1.977}, {432.5, 1.827}, {433., 1.826}, {433.5, 1.774}, {434., 
  1.866}, {434.5, 1.844}, {435., 1.873}, {435.5, 1.893}, {436., 
  1.884}, {436.5, 1.877}, {437., 1.989}, {437.5, 2.021}, {438., 
  2.024}, {438.5, 2.053}, {439., 2.144}, {439.5, 2.139}, {440., 
  2.161}, {440.5, 2.195}, {441., 2.288}, {441.5, 2.317}, {442., 
  2.315}, {442.5, 2.39}, {443., 2.377}, {443.5, 2.399}, {444., 
  2.406}, {444.5, 2.421}, {445., 2.46}, {445.5, 2.501}, {446., 
  2.463}, {446.5, 2.553}, {447., 2.586}, {447.5, 2.637}, {448., 
  2.603}, {448.5, 2.667}, {449., 2.65}, {449.5, 2.633}, {450., 
  2.693}, {450.5, 2.798}, {451., 2.759}, {451.5, 2.814}, {452., 
  2.887}, {452.5, 2.892}, {453., 2.991}, {453.5, 2.95}, {454., 
  2.999}, {454.5, 2.985}, {455., 3.001}, {455.5, 3.104}, {456., 
  3.085}, {456.5, 3.17}, {457., 3.198}, {457.5, 3.256}, {458., 
  3.453}, {458.5, 3.43}, {459., 3.509}, {459.5, 3.467}, {460., 
  3.54}, {460.5, 3.627}, {461., 3.753}, {461.5, 3.889}, {462., 
  4.032}, {462.5, 4.099}, {463., 4.213}, {463.5, 4.316}, {464., 
  4.535}, {464.5, 4.496}, {465., 4.806}, {465.5, 4.906}, {466., 
  5.174}, {466.5, 5.544}, {467., 5.711}, {467.5, 6.015}, {468., 
  6.131}, {468.5, 6.598}, {469., 6.785}, {469.5, 7.074}, {470., 
  7.398}, {470.5, 7.872}, {471., 8.203}, {471.5, 8.772}, {472., 
  9.399}, {472.5, 10.17}, {473., 10.59}, {473.5, 11.1}, {474., 
  11.85}, {474.5, 12.63}, {475., 13.62}, {475.5, 14.61}, {476., 
  15.54}, {476.5, 16.88}, {477., 18.12}, {477.5, 19.33}, {478., 
  20.97}, {478.5, 22.45}, {479., 23.86}, {479.5, 25.39}, {480., 
  27.07}, {480.5, 28.94}, {481., 30.89}, {481.5, 32.86}, {482., 
  35.01}, {482.5, 37.31}, {483., 39.93}, {483.5, 42.84}, {484., 
  45.77}, {484.5, 48.74}, {485., 52.45}, {485.5, 55.56}, {486., 
  59.48}, {486.5, 62.82}, {487., 67.01}, {487.5, 70.97}, {488., 
  74.98}, {488.5, 79.35}, {489., 84.03}, {489.5, 88.81}, {490., 
  93.59}, {490.5, 98.23}, {491., 103.8}, {491.5, 109.}, {492., 
  114.7}, {492.5, 120.4}, {493., 126.6}, {493.5, 132.1}, {494., 
  138.3}, {494.5, 144.6}, {495., 151.}, {495.5, 157.}, {496., 
  163.8}, {496.5, 170.2}, {497., 177.2}, {497.5, 183.9}, {498., 
  191.2}, {498.5, 197.7}, {499., 204.9}, {499.5, 211.3}, {500., 
  219.1}, {500.5, 224.}, {501., 231.3}, {501.5, 238.3}, {502., 
  244.}, {502.5, 250.6}, {503., 257.7}, {503.5, 263.3}, {504., 
  268.7}, {504.5, 274.2}, {505., 280.6}, {505.5, 287.3}, {506., 
  293.1}, {506.5, 298.6}, {507., 303.4}, {507.5, 309.7}, {508., 
  314.7}, {508.5, 319.7}, {509., 323.9}, {509.5, 328.7}, {510., 
  332.4}, {510.5, 335.5}, {511., 338.7}, {511.5, 342.8}, {512., 
  346.5}, {512.5, 350.5}, {513., 354.7}, {513.5, 356.7}, {514., 
  359.}, {514.5, 361.6}, {515., 364.6}, {515.5, 366.1}, {516., 
  368.3}, {516.5, 368.7}, {517., 370.6}, {517.5, 372.3}, {518., 
  374.3}, {518.5, 375.2}, {519., 376.}, {519.5, 376.2}, {520., 
  375.5}, {520.5, 376.5}, {521., 376.9}, {521.5, 376.8}, {522., 
  377.2}, {522.5, 377.}, {523., 376.3}, {523.5, 375.6}, {524., 
  375.2}, {524.5, 374.4}, {525., 373.6}, {525.5, 372.5}, {526., 
  372.6}, {526.5, 371.2}, {527., 370.7}, {527.5, 369.}, {528., 
  366.9}, {528.5, 365.}, {529., 364.1}, {529.5, 362.}, {530., 
  361.6}, {530.5, 361.1}, {531., 357.9}, {531.5, 356.8}, {532., 
  354.7}, {532.5, 353.2}, {533., 351.7}, {533.5, 350.}, {534., 
  347.2}, {534.5, 345.7}, {535., 343.1}, {535.5, 341.7}, {536., 
  340.}, {536.5, 337.6}, {537., 335.3}, {537.5, 333.7}, {538., 
  331.7}, {538.5, 329.8}, {539., 327.5}, {539.5, 326.5}, {540., 
  323.5}, {540.5, 321.5}, {541., 319.4}, {541.5, 316.7}, {542., 
  315.2}, {542.5, 312.7}, {543., 310.5}, {543.5, 308.8}, {544., 
  304.8}, {544.5, 303.}, {545., 301.3}, {545.5, 298.7}, {546., 
  296.4}, {546.5, 294.1}, {547., 292.}, {547.5, 289.6}, {548., 
  286.2}, {548.5, 283.}, {549., 280.9}, {549.5, 279.}, {550., 
  276.1}, {550.5, 273.6}, {551., 271.6}, {551.5, 268.9}, {552., 
  265.9}, {552.5, 263.1}, {553., 259.6}, {553.5, 257.}, {554., 
  254.4}, {554.5, 252.1}, {555., 249.5}, {555.5, 246.7}, {556., 
  243.2}, {556.5, 240.1}, {557., 236.7}, {557.5, 233.4}, {558., 
  229.8}, {558.5, 227.2}, {559., 222.9}, {559.5, 219.8}, {560., 
  217.}, {560.5, 214.9}, {561., 211.6}, {561.5, 208.9}, {562., 
  204.9}, {562.5, 202.}, {563., 198.3}, {563.5, 194.8}, {564., 
  191.6}, {564.5, 188.4}, {565., 184.8}, {565.5, 181.7}, {566., 
  177.9}, {566.5, 174.7}, {567., 171.}, {567.5, 167.}, {568., 
  164.4}, {568.5, 161.2}, {569., 157.3}, {569.5, 154.2}, {570., 
  151.2}, {570.5, 148.2}, {571., 144.9}, {571.5, 142.3}, {572., 
  139.1}, {572.5, 136.4}, {573., 133.4}, {573.5, 130.9}, {574., 
  127.9}, {574.5, 124.4}, {575., 121.2}, {575.5, 118.7}, {576., 
  115.9}, {576.5, 113.2}, {577., 110.8}, {577.5, 108.}, {578., 
  105.3}, {578.5, 103.4}, {579., 101.2}, {579.5, 98.61}, {580., 
  96.39}, {580.5, 93.85}, {581., 91.54}, {581.5, 90.05}, {582., 
  88.04}, {582.5, 86.48}, {583., 84.13}, {583.5, 81.98}, {584., 
  80.2}, {584.5, 78.65}, {585., 77.}, {585.5, 75.23}, {586., 
  73.54}, {586.5, 71.8}, {587., 70.3}, {587.5, 68.89}, {588., 
  67.25}, {588.5, 65.89}, {589., 64.38}, {589.5, 62.78}, {590., 
  60.94}, {590.5, 59.77}, {591., 58.99}, {591.5, 57.54}, {592., 
  56.58}, {592.5, 55.55}, {593., 54.56}, {593.5, 53.22}, {594., 
  52.2}, {594.5, 51.17}, {595., 49.76}, {595.5, 48.61}, {596., 
  47.47}, {596.5, 46.52}, {597., 45.29}, {597.5, 44.41}, {598., 
  43.79}, {598.5, 42.54}, {599., 41.53}, {599.5, 40.73}, {600., 
  39.88}, {600.5, 38.96}, {601., 37.98}, {601.5, 37.21}, {602., 
  36.29}, {602.5, 35.66}, {603., 34.76}, {603.5, 34.44}, {604., 
  33.74}, {604.5, 32.78}, {605., 31.86}, {605.5, 31.16}, {606., 
  30.46}, {606.5, 29.62}, {607., 29.05}, {607.5, 28.4}, {608., 
  27.71}, {608.5, 26.99}, {609., 26.42}, {609.5, 25.95}, {610., 
  25.53}, {610.5, 25.02}, {611., 24.48}, {611.5, 23.78}, {612., 
  22.97}, {612.5, 22.68}, {613., 22.22}, {613.5, 21.95}, {614., 
  21.43}, {614.5, 20.66}, {615., 20.15}, {615.5, 19.62}, {616., 
  19.12}, {616.5, 18.75}, {617., 18.17}, {617.5, 17.86}, {618., 
  17.53}, {618.5, 17.28}, {619., 16.71}, {619.5, 16.28}, {620., 
  15.88}, {620.5, 15.51}, {621., 15.11}, {621.5, 14.84}, {622., 
  14.45}, {622.5, 14.07}, {623., 13.68}, {623.5, 13.4}, {624., 
  13.07}, {624.5, 12.97}, {625., 12.6}, {625.5, 12.28}, {626., 
  11.96}, {626.5, 11.71}, {627., 11.52}, {627.5, 11.19}, {628., 
  10.76}, {628.5, 10.54}, {629., 10.3}, {629.5, 10.05}, {630., 
  9.827}, {630.5, 9.503}, {631., 9.355}, {631.5, 8.983}, {632., 
  8.915}, {632.5, 8.593}, {633., 8.362}, {633.5, 8.201}, {634., 
  8.003}, {634.5, 7.824}, {635., 7.69}, {635.5, 7.505}, {636., 
  7.214}, {636.5, 7.032}, {637., 6.893}, {637.5, 6.662}, {638., 
  6.496}, {638.5, 6.351}, {639., 6.138}, {639.5, 6.04}, {640., 
  5.905}, {640.5, 5.765}, {641., 5.579}, {641.5, 5.566}, {642., 
  5.443}, {642.5, 5.294}, {643., 5.097}, {643.5, 4.858}, {644., 
  4.793}, {644.5, 4.62}, {645., 4.561}, {645.5, 4.422}, {646., 
  4.303}, {646.5, 4.236}, {647., 4.054}, {647.5, 4.078}, {648., 
  3.88}, {648.5, 3.794}, {649., 3.739}, {649.5, 3.643}, {650., 
  3.569}, {650.5, 3.392}, {651., 3.35}, {651.5, 3.207}, {652., 
  3.199}, {652.5, 3.112}, {653., 3.027}, {653.5, 2.979}, {654., 
  2.898}, {654.5, 2.797}, {655., 2.69}, {655.5, 2.591}, {656., 
  2.52}, {656.5, 2.507}, {657., 2.523}, {657.5, 2.423}, {658., 
  2.344}, {658.5, 2.304}, {659., 2.292}, {659.5, 2.246}, {660., 
  2.158}, {660.5, 2.05}, {661., 1.974}, {661.5, 1.981}, {662., 
  1.886}, {662.5, 1.823}, {663., 1.746}, {663.5, 1.749}, {664., 
  1.692}, {664.5, 1.681}, {665., 1.666}, {665.5, 1.663}, {666., 
  1.563}, {666.5, 1.444}, {667., 1.449}, {667.5, 1.448}, {668., 
  1.398}, {668.5, 1.384}, {669., 1.365}, {669.5, 1.372}, {670., 
  1.277}, {670.5, 1.308}, {671., 1.273}, {671.5, 1.211}, {672., 
  1.181}, {672.5, 1.097}, {673., 1.1}, {673.5, 1.143}, {674., 
  1.104}, {674.5, 1.084}, {675., 1.013}, {675.5, 1.}, {676., 
  0.963}, {676.5, 0.94}, {677., 0.942}, {677.5, 0.928}, {678., 
  0.867}, {678.5, 0.923}, {679., 0.866}, {679.5, 0.847}, {680., 
  0.817}, {680.5, 0.79}, {681., 0.813}, {681.5, 0.813}, {682., 
  0.747}, {682.5, 0.723}, {683., 0.686}, {683.5, 0.659}, {684., 
  0.662}, {684.5, 0.687}, {685., 0.678}, {685.5, 0.646}, {686., 
  0.64}, {686.5, 0.604}, {687., 0.576}, {687.5, 0.561}, {688., 
  0.536}, {688.5, 0.534}, {689., 0.547}, {689.5, 0.521}, {690., 
  0.514}, {690.5, 0.525}, {691., 0.482}, {691.5, 0.483}, {692., 
  0.483}, {692.5, 0.463}, {693., 0.461}, {693.5, 0.469}, {694., 
  0.437}, {694.5, 0.448}, {695., 0.405}, {695.5, 0.399}, {696., 
  0.403}, {696.5, 0.404}, {697., 0.373}, {697.5, 0.373}, {698., 
  0.396}, {698.5, 0.379}, {699., 0.376}, {699.5, 0.393}, {700., 
  0.393}};
ListLinePlot[data, PlotTheme -> "Detailed"]
cf = Blend[{Black, 
     Blend[{White, ColorData["VisibleSpectrum"][#1]}]}, #2/
     Max[data[[All, 1]]]] &;
ArrayPlot[{cf @@@ data}, AspectRatio -> 1/10, 
 PlotRangePadding -> None]