Bar Plots Are Not showing in geom_bar Function

AvgYearlyPOP <- sqldf(“SELECT AVG(Popularity) AS Avg_Pop,
Top_Year,
Artist_Type
FROM Spotify
GROUP BY Top_Year, Artist_Type”)