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