Problem with Graphing scale and unknown aesthetics

tidyverse
6

I made a small data set from what you posted and I got the following plots. As written, you will get one line per Coutry. Is that what you want?

library(ggplot2)
w<-read.csv(file="/home/fjcc/R/Play/Dummy.csv",head=TRUE,sep=",")
p<-ggplot(data=w,aes(x=LE))
p+geom_freqpoly(aes(color=Country), binwidth = 10)


print(p + geom_freqpoly(aes(color=Country))+ggtitle("Jielan Liu Question 10")+
        theme(plot.title=element_text(hjust=0.5)))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Created on 2019-11-28 by the reprex package (v0.2.1)