Я строю распределение углов сrose.diag функция отcircular библиотека. Входные данные являются радиантами. Мой код MWE

    library(circular);
    dat<-read.csv(file.choose(),header=F);
    data=unlist(dat);
    rose.diag(data, bins=24)

и я получаю этот график:

Мне интересно показать только часть данных, от -pi / 2 до pi / 2, и что длина самого большого тика равна длине радиуса круга, как показано здесь:

Любая помощь будет оценена!

РЕДАКТИРОВАТЬ

Как предлагает #lawyeR, вот код с образцом данных:

    library(circular);
    data<- c(-0.188,-0.742,-0.953,-0.948,-0.953,-1.187,-0.9327200,-0.855,-  0.024,1.303,-1.041,-1.068,-1.066,1.442,1.150,0.965,0.665,0.649,0.984,-1.379,-0.584,-0.573,-0.357,-0.237,-0.287,-0.486,-0.783,-0.298,0.849,1.088,-1.003,-0.952,-0.776,-0.811,-0.880);
    rose.diag(data, bins=24);