How can I generate the following graph?

sustainabilityData$1\%>\%$ ggplot$($aes$($x $=$ Recyclable$))+$ geom$\_$histogram$()$

sustainabilityData$1\%>\%$ ggplot$($aes$($x $=$ Recyclable$))+$ geom$\_$bar$()$

sustainabilityData$1\%>\%$ plot$($Recyclable$)$

sustainabilityData$1\%>\%$ ggplot$($aes$($x $=$ Recyclable$))+$ geom$\_$line$()$