GGPlot2: Error: Aesthetics must be either length 1 or the same as the data (16): x, y, group
<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>