The first thing you might try is to filter out specific industries. So this example would select all the data where the first argument was "SomeIndustry"
someIndustryData = Select[data, First[#]=="SomeIndustry" &]
Once you have that data, you could select the second part of every pair
someIndustryData[[All,2]]
Of course, this might be a pain to do for all industries, so you can always use GroupBy:
GroupBy[data,First]
<| "Industry1" -> {....}, "Industry2" ->{...}, ..... |>
