读取R中的数据帧时出现问题

Question

I would like to plot my data set based on the changes over years. My code

df <- read.table(text = 'Year   impact
2017    1
2016    0.065037954
2016    0.102155159
2015    0.030964478
2015    0.100059625
2015    0.089210196
2014    0.034352628
2014    0.080435423
2012    0.054331258
2011    0.052896022
2011    0.087341494
2010    0.025212239
2010    0.0456487
',header=TRUE)

ggplot(data=df, aes(x=Year)) +
  geom_density() +
  ggtitle("Test")+
  xlab("Year")+
  ylab("Probability")

the x-axis should show years (2017 2016 ...) and the y-axis should show the values (minimum 0 and maximum 1). Is there any mistake in my code?

EDIT the out put dput(df) as follow:

structure(list(Yearimpact = c(20171, 20160.065037954, 20160.102155159, 
20160.030964478, 20160.100059625, 20160.089210196, 20160.034352628, 
20160.080435423, 20160.054331258, 20160.052896022, 20160.087341494, 
20160.025212239, 20160.0456487)), .Names = "Yearimpact", class = "data.frame", row.names = c(NA, 
-13L))

Answer 1

Using fread() from the data.table package is simpler, reads large datasets faster, and typically results in fewer errors. Try this instead:

require(data.table)
require(ggplot2)

df <- fread("Year   impact
             2017    1
             2016    0.065037954
             2016    0.102155159
             2015    0.030964478
             2015    0.100059625
             2015    0.089210196
             2014    0.034352628
             2014    0.080435423
             2012    0.054331258
             2011    0.052896022
             2011    0.087341494
             2010    0.025212239
             2010    0.0456487")

If you need to convert this data table to a data frame for some reason afterword, you can use this:

df <- data.frame(df)

Either way, you can then graph the data:

ggplot(data=df, aes(x=Year)) +
  geom_density() +
  ggtitle("Test")+
  xlab("Year")+
  ylab("Probability")

Output: