I know CombinePlots! However, I still need some way to separate the two charts! Until now, I did not find the related examples in the forums or documentation centers~~ But thank you a lot for your response~~~
Maybe something like this?
ResourceFunction["CombinePlots"][ BarChart[data[[All, 1]], Frame -> True, PlotRange -> All, ImageSize -> Medium], ListLinePlot[data[[All, 2]], Frame -> True, PlotRange -> All, ImageSize -> Medium], "AxesSides" -> "TwoY"]
