title: GGPlot2: Error: Aesthetics must be either length 1 or the same as the data (16): x, y, group
body: <p>Here is the code I have for what I thought was a simple line graph</p>
  
  <pre><code>ggplot(data=top15andAllDatasummary.df, aes(x=years, y=calculations, group=1)) +
      geom_line() +
      geom_point()
  </code></pre>
  
  <p>And I got this error:</p>
  
  <blockquote>
    <p>Error: Aesthetics must be either length 1 or the same as the data (16): x, y, group</p>
  </blockquote>
  
  <p>I have data in a dataframe in r. My X-Axis was going to be years and the Y-axis was going to be some calculations (16 of them) I constructed per year.</p>
  
  <p>Edited to add</p>
  
  <pre><code>structure(list(`2001` = c(349.315750645518, 217.47436370343, 
  5.17963850977499, 126.661748432313, 57, 39), `2002` = c(703.26693877551, 
  429.92, 9.32897959183673, 264.017959183673, 161, 108), `2003` = c(314.897774687065, 
  193.792420027816, 4.08936022253129, 117.015994436718, 54, 37), 
      `2004` = c(305.988451086957, 190.680027173913, 3.87839673913043, 
      111.430027173913, 55, 38), `2005` = c(118.528015659408, 74.3175923660387, 
      1.50942011255199, 42.7010031808172, 10, 8), `2006` = c(120.531992244304, 
      73.8279205041202, 1.54362578768783, 45.1604459524964, 10, 
      8), `2007` = c(113.973899988451, 69.7619817530893, 1.44693382607691, 
      42.7649844092851, 10, 8), `2008` = c(110.676242590059, 67.3693570451436, 
      1.36285909712722, 41.9440264477884, 9, 7), `2009` = c(101.965558714192, 
      63.1446534003936, 1.22982724688388, 37.5910780669145, 9, 
      7), `2010` = c(93.9744360902256, 59.8894736842105, 1.14199785177229, 
      32.9429645542427, 9, 7), `2011` = c(91.8911316298046, 58.5660296328108, 
      1.15675327464033, 32.1683487223534, 9, 7), `2012` = c(91.2302181013592, 
      58.598356337583, 1.16773785691708, 31.4641239068591, 8, 6
      ), `2013` = c(87.1390443392165, 55.0509040034438, 1.10277658200603, 
      30.9853637537667, 8, 6), `2014` = c(85.7812132234942, 56.0456831068792, 
      1.09725045469134, 28.6382796619236, 8, 6), `2015` = c(88.331452900479, 
      58.526237360298, 1.22362959020756, 28.5815859499734, 8, 6
      )), .Names = c("2001", "2002", "2003", "2004", "2005", "2006", 
  "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", 
  "2015"), row.names = c("AllDataMeanByYear", "AllDataMeanAggAssault", 
  "AllDataMeanMurderManSlaughter", "AllDataMeanRobbery", "AllDataMedianByYear", 
  "AllDataMedianAggAssault"), class = "data.frame")
  
  
  All Code:
  
   ## Total
  lwdata$total &lt;- lwdata$murdermanslaughter + lwdata$Robbery +    lwdata$Aggravated_assault
  ## Data Calculations Top 15
  top15 &lt;- lwdata[lwdata$total &gt;= lwdata$total[order(lwdata$Year, lwdata$total, decreasing=TRUE)][15] , ]
  ## Top 15 Means
  Top15MeanByYear &lt;- tapply(top15$total,top15$Year,mean)
  Top15MeanAggAssault &lt;- tapply(top15$Aggravated_assault,top15$Year,mean)
  Top15MeanMurderManSlaughter &lt;- tapply(top15$murdermanslaughter,top15$Year,mean)
  Top15MeanRob &lt;- tapply(top15$Robbery,top15$Year,mean)
  ## All Data Means
  AllDataMeanByYear &lt;- tapply(lwdata$total,lwdata$Year,mean)
  AllDataMeanAggAssault &lt;- tapply(lwdata$Aggravated_assault,lwdata$Year,mean)
  AllDataMeanMurderManSlaughter &lt;- tapply(lwdata$murdermanslaughter,lwdata$Year,mean)
  AllDataMeanRobbery &lt;- tapply(lwdata$Robbery,lwdata$Year,mean)
  ## Top 15 Medians
  Top15MedianByYear &lt;- tapply(top15$total,top15$Year,median)
  Top15MedianAggAssault &lt;- tapply(top15$Aggravated_assault,top15$Year,median)
  Top15MedianMurderManSlaughter &lt;- tapply(top15$murdermanslaughter,top15$Year,median)
  Top15MedianRob &lt;- tapply(top15$Robbery,top15$Year,median)
  ## All Data Medians
  AllDataMedianByYear &lt;- tapply(lwdata$total,lwdata$Year,median)
  AllDataMedianAggAssault &lt;- tapply(lwdata$Aggravated_assault,lwdata$Year,median)
  AllDataMedianMurderManSlaughter &lt;-  tapply(lwdata$murdermanslaughter,lwdata$Year,median)
  AllDataMedianRobbery &lt;- tapply(lwdata$Robbery,lwdata$Year,median)
  ## Rounding Data To Two Decimal Points
  Top15MeanByYear &lt;- round(Top15MeanByYear,digits=2)
  Top15MeanAggAssault &lt;- round(Top15MeanAggAssault,digits=2)
  Top15MeanMurderManSlaughter &lt;- round(Top15MeanMurderManSlaughter,digits=2)
  Top15MeanRob &lt;- round(Top15MeanRob,digits=2)
  AllDataMeanByYear &lt;- round(AllDataMeanByYear,digits=2)
  AllDataMeanAggAssault &lt;- round(AllDataMeanAggAssault,digits=2)
  AllDataMeanAggAssault &lt;- round(AllDataMeanAggAssault,digits=2)
  AllDataMeanRobbery &lt;- round(AllDataMeanRobbery,digits=2)
  Top15MedianByYear &lt;- round(Top15MedianByYear,digits=2)
  Top15MedianAggAssault &lt;- round(Top15MedianAggAssault,digits=2)
  Top15MedianMurderManSlaughter &lt;- round(Top15MedianMurderManSlaughter,digits=2)
  Top15MedianRob &lt;- round(Top15MedianRob,digits=2)
  AllDataMedianByYear &lt;- round(AllDataMedianByYear,digits=2)
  AllDataMedianAggAssault &lt;- round(AllDataMedianAggAssault,digits=2)
  AllDataMedianMurderManSlaughter &lt;-     round(AllDataMedianMurderManSlaughter,digits=2)
  AllDataMedianRobbery &lt;- round(AllDataMedianRobbery,digits=2)
  ## Summaries
  AllDataSummary &lt;- rbind(AllDataMeanByYear, AllDataMeanAggAssault, AllDataMeanMurderManSlaughter, AllDataMeanRobbery, AllDataMedianByYear, AllDataMedianAggAssault, AllDataMedianMurderManSlaughter, AllDataMedianRobbery)
  Top15Summary &lt;- rbind(Top15MeanByYear, Top15MeanAggAssault, Top15MeanMurderManSlaughter, Top15MeanRob,Top15MedianByYear,Top15MedianAggAssault,Top15MedianMurderManSlaughter,Top15MedianRob)
  Top15andAllDatasummary &lt;- rbind(AllDataSummary,Top15Summary)
  ## Class of New Items
  class(AllDataSummary)
  class(Top15Summary)
  class(top15andAllDatasummary)
  ## Converting Matrices to Data Frames
  AllDataSummary.df &lt;- as.data.frame(AllDataSummary)
  Top15Summary.df &lt;- as.data.frame(Top15Summary)
  Top15andAllDatasummary.df &lt;- as.data.frame(Top15andAllDatasummary)
  ## Checking of New Classes
  class(AllDataSummary.df)
  class(Top15Summary.df)
  class(Top15andAllDatasummary.df)
  ## Verifications for Names of New Components
  colnames(Top15andAllDatasummary.df)
  rownames(Top15andAllDatasummary.df)
  ## New Components
  years &lt;- colnames(Top15andAllDatasummary.df)
  calculations &lt;- colnames(Top15andAllDatasummary.df)
  ## Chicago
  Chicago &lt;- top15[which(top15$City=="Chicago"), ] 
  ## Basic Plots
  plot(y=Chicago$total, x=Chicago$Year, type="l", xlab = "Year", ylab = "Total       Violent Crime (minus rape)", main="Chicago-Specific Data", col="blue")
  ## Data Types for Chicago
  str(Chicago)
  </code></pre>
  
  <p>link to full >100K set of data is <a href="https://www.dropbox.com/s/e8c2h1k2aartpf8/lwdata.csv?dl=0" rel="nofollow">here</a></p>