Aesthetics must be either length 1 or the same as the data (1983): colour

tudo bem? Estou tentando fazer um gráfico de interação no R usando o pacote ggplot2, no entanto o seguinte erro está ocorrendo

Aesthetics should be the length 1 or the same as the data (1983): color.

Alguém pode me ajudar?

Data base: http://halweb.uc3m.es/esp/Personal/personas/durban/esp/web/cursos/Maringa/gam-markdown/index.html

Os dados estão na seção data.zip, a base dados é a leukemia.txt. Note: Eu estou utilizando as seguintes librarys:

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) 

Segue o código abaixo:

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()