dimple( weight ~ Time, groups = "Diet" , type = "line", data = ChickWeight, width = 600, height = 400 ) %>%
add_legend( )
dimple( weight ~ Time, groups = "Diet" , type = "line", data = ChickWeight, width = 600, height = 400 ) %>%
add_legend( x = 50, y = 390, width = 500, horizontalAlign = "right" )
Run the code above in your browser using DataLab