ordinal bar graph

#create new temporary dataset that filters out the missing (NA) values so that they don't appear in the graph
polviewsnew<-dplyr::filter(GSS2014, polviews!='NA')
#create a bar graph using the new temporary dataset
ggplot(polviewsnew, aes(x=polviews)) + 
geom_bar(stat ="count", color="red", fill="white",    aes(y = ((..count..)/sum(..count..)))) + 
ggtitle("Political Views") + 
labs(y="Percent",     x="Political Views") + scale_y_continuous(labels=percent)