Code
|>
ChickWeight group_by(Diet, Time) |>
summarize(avgWeight=mean(weight)) |>
ggplot(mapping = aes(x=Time, y=avgWeight, color=Diet))+
geom_line()+
labs(title="Comparison of Chick Weights by Diet Over Time", x="Days", y="Weight(g)")
Welcome!
|>
ChickWeight group_by(Diet, Time) |>
summarize(avgWeight=mean(weight)) |>
ggplot(mapping = aes(x=Time, y=avgWeight, color=Diet))+
geom_line()+
labs(title="Comparison of Chick Weights by Diet Over Time", x="Days", y="Weight(g)")