R: Создайте векторный график с пеленгом и расстоянием

#r #ggplot2

Вопрос:

У меня есть набор данных с тремя столбцами. Ниже приведен заголовок(данные 1, 5):

 data1=data.frame(species=c("600162", "600006", "600264", "600077", "600265"), Bearing=c(158,47,223,318,71),Distance=c(4702,6642,3108,130000,16455))  

Я хочу создать график с направлением векторов, основанным на градусах «Пеленга», и длиной вектора, основанной на «Расстоянии».

введите описание изображения здесь

Могу я узнать, каков наилучший курс действий? Заранее большое вам спасибо за ваше любезное внимание.

Ответ №1:

 library(ggplot2) # sin/cos swapped b/c Bearing is clockwise from top ggplot(data1, aes(xend = Distance * sin(Bearing * pi / 180),  yend = Distance * cos(Bearing * pi / 180)))    geom_segment(aes(x = 0, y = 0), arrow = arrow(length = unit(0.1, "inches"), type = "closed"))    ggrepel::geom_text_repel(aes(x = Distance * sin(Bearing * pi / 180),  y = Distance * cos(Bearing * pi / 180),  label = species), size = 3)    coord_equal()  

введите описание изображения здесь