美学长度必须为1或与数据（1983）相同：颜色

Question

大家好，我正在尝试使用ggplot2软件包制作R的交互图，但是发生以下错误：

美学的长度应为1或与数据（1983年）相同：颜色。

有人可以帮我吗？

数据库：http://halweb.uc3m.es/esp/Personal/personas/durban/esp/web/cursos/Maringa/gam-markdown/index.html

这是在 data.zip 部分中，数据为 leukemia.txt 。 注意：我正在使用指定的库：

library(nlme)
library(ggplot2)
library(GGally)
library(splines)
library(nlme)
library(fields)
library(lattice)
require(ISLR)
library(grid)
library(dplyr)
library(MASS)
library(mgcv)
library(latticeExtra)
library(fields)

请参见下面的代码：

setwd("C:\\Users\\breni\\Google Drive\\Acadêmica\\Mestrado\\Splines")
dados <- read.table("leukemia.txt", header=TRUE)
dados$treatment  <- factor(dados$treatment)
dados$case  <- factor(dados$case)
head(dados)
attach(dados)


interaction <- dados %>%
  dplyr::select(height, age, case) %>%
  group_by(case, age) %>%
  summarise(Average = mean(height))

x11()
ggplot(interaction, aes(x=age, y=Average, colour=treatment, group=case)) + 
  ggtitle("Evolução da altura em cm no tempo para cada individuo") +   
  geom_line()