title関数に入力する文字列に含まれるアンダースコア記号をエスケープ('_'を'\_'に変更)しないと下付き文字になる点に注意が必要です。
for nn = 1:height(F_name)
%% Figureの設定
f=figure('Position',[100 100 1000 800]);
movegui(f,'east');
rootname='データ1';
yearname='2022';
PDF=bar(Hx,Hy,'k');hold on;
gazo=sprintf('%s_%s_%d.jpg',rootname,yearname,nn);
title(strrep(gazo,'_','\_'));
grid on;
% 画像保存
print(gazo,'-djpeg');
close
end