library(dplyr)
ChickWeight %>%
filter(Chick==1 | Chick == 4) %>%
line_chart("Time", "weight", "Chick",
showBaselineX=FALSE,
xAxis=list(label="Time",format="0a", visible=TRUE),
yAxis=list(label="Weight", visible=TRUE, gridVisible=TRUE),
mainTitle = "Selected chick weight over time")
Run the code above in your browser using DataLab