ggplot stat_smoothを使ったプロット多項式回帰直線

Question

私はggplot：stat_smoothを使って二次多項式回帰直線を持つ散布図を作成しようとしています。 はここにコードです：

Error: Mapping must be created by `aes()` or `aes_()` 

どうもありがとう：

df.car_spec_data <- read.csv(url("http://www.sharpsightlabs.com/ 
wp- content/uploads/2015/01/auto-snout_car-specifications_COMBINED.txt")) 

df.car_spec_data$year <- as.character(df.car_spec_data$year) 

df.car_spec_data %>% group_by(year) %>% 
summarise(maxspeed=max(top_speed_mph, 
na.rm=T)) %>% ggplot(aes(x=year, y=maxspeed, 
group=1))+geom_point(color='red', alpha=0.3, 
size=3)+stat_smooth(method='lm', y~poly(x,2)) 

は、私は、次のエラーメッセージが表示されました。

Answer 1

これは（mtcarsデータセットのために）動作します：

df.car_spec_data <- mtcars 
df.car_spec_data %>% group_by(cyl) %>% 
    summarise(maxmpg=max(mpg, na.rm=T)) %>% 
    ggplot(aes(x=cyl, y=maxmpg, group=1)) + 
    geom_point(color='red', alpha=0.3,size=3)+ 
    stat_smooth(method='lm', formula = y~poly(x,2))