Tenho uma base de dados com consumo de racao por animal e por dia.
Segue só uma parte da base para terem uma ideia:
Animal Time Consumo
5 1 2.53396
5 2 2.32906
5 3 2.94379
5 4 3.36162
6 1 2.89082
6 2 2.53898
6 3 2.97881
6 4 3.03876
7 1 2.81885
7 2 2.73889
7 3 2.67891
7 4 2.87885
Quero gerar uma grafico no qual somente um dos animais (Ex: Animal=7) tenha cor da linha diferente (consumo em funcao do time) e os demais tenham a mesma cor. No ggplot consegui fazer um grafico para que todos os animais tenham a mesma cor, só nao consigo fazer uma linha para o animal 7 com cor diferente. Segue o comnado que usei:
library(ggplot2)
Consumo$Animal <- factor(Consumo$Animal)
ggplot(data = Consumo, aes(x = Time, y = Consumo, colours=Animal)) +
geom_line(color="grey") +
xlab("Time, d") +
ylab("Forecast daily feed intake,kg") +
theme_bw() +
xlim(c(5, 80)) +
ylim(c(0, 5))+
labs(title = "C: Current model") + theme(plot.title = element_text(face="bold",size=18, hjust = 0))+
theme(axis.title = element_text(size = 18),
axis.text = element_text(size = 14))
