data1 <- read.csv("C://Desktop//lung cancer.csv",header=T)
x = (2000:2013)
y = (0:12000)
hist(data1$Year,data1$Cases, ylab="Cases",xlab="Year",
        main="Number of cases of Lung Cancer:2000-2013")

>
>