Rで分散分析を行った際に自由度DFがすべて1になってしまう

Question

前提・実現したいこと

現在，Rを用いてデータの分散分析を行っています．
しかし，自由度を表すDFの値がどの変数でも1になってしまいます．
実際の自由度は1ではありません．
F値やsum Sqなどは正常な値が出ていそうなのですが．．．

Rの不具合でしょうか？

発生している問題・エラーメッセージ

発生している問題：DFの値がどの変数でも1になってしまう

該当のソースコード

install.packages("reader")
install.packages("tidyverse")
install.packages("tableone")
library(reader)
library(tidyverse)
library(tableone)
#サンプルデータの読み込み
df <- read.csv("R_book_data.csv")
#交互作用なし二元配置分散分析（被験者間実験）
summary(aov(pre1~ Year+Height, data = df))

試したこと

summaryの部分をanovaに変更してもダメでした．

補足情報（FW/ツールのバージョンなど）

信頼度の高いサンプルデータを使用しているのでデータに不具合があるとは考えにくいかと思います．