rotation(jams) <- 90
rotation(jams)
jams2 <- set_rotation(jams,
270)
rotation(jams2)
jams3 <- set_rotation(jams,
2:3, 1, 270)
rotation(jams3)
jams4 <- map_rotation(jams,
by_rows(
270,
90)
)
rotation(jams4)
Run the code above in your browser using DataLab