Pointer display

Hello,

how to make a rotation pointer with custom scaling, color scale and pointer in R language?