Sorry, my first post did not go as expected. Please try the following.
Original_Table <- data.frame(Risk = c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,6,6,7,7,7,7,7),
Year = c(2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2017,2018,2019,2016,2017,2015,2016,2017,2018,2019),
Score = c(867,994,634,696,"NA","NA","NA",964,863,997,"NA","NA",777,856,"NA","NA","NA","NA","NA","NA",803,929,797,950,"NA",871,"NA","NA",699,620))
Solution_Table <- data.frame(Risk = c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,6,6,7,7,7,7,7),
Year = c(2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2015,2016,2017,2018,2019,2017,2018,2019,2016,2017,2015,2016,2017,2018,2019),
Score = c(867,994,634,696,696,964,964,964,863,997,777,777,777,856,856,"NA","NA","NA","NA","NA",803,929,797,950,950,871,871,871,699,620))