I am using this code to create a Pareto chart, but it does not work well on this dataset, the x-axis becomes unsorted in the graph
cds <- catsvdogs newdata
