Добавление сегментов стрелок к точечной диаграмме - PullRequest
Новая
       79

Добавление сегментов стрелок к точечной диаграмме

0 голосов
/ 05 декабря 2018

У меня есть XY данные, которые я хочу построить на точечной диаграмме, используя R s plotly package.Для некоторых точек у меня есть стрелки, определенные их начальными и конечными координатами X и Y, которые я также хочу построить.

Вот данные: 

set.seed(1)

df <- data.frame(x=rnorm(100),y=rnorm(100),
                 arrow.x.start=NA,arrow.y.start=NA,
                 arrow.x.end=NA,arrow.y.end=NA)

arrow.idx <- sample(100,20,replace = F)

df$arrow.x.start[arrow.idx] <- df$x[arrow.idx]
df$arrow.x.end[arrow.idx] <- df$arrow.x.start[arrow.idx]+runif(length(arrow.idx),-0.5,0.5)
df$arrow.y.start[arrow.idx] <- df$y[arrow.idx]
df$arrow.y.end[arrow.idx] <- df$arrow.y.start[arrow.idx]+runif(length(arrow.idx),-0.5,0.5)

Использование ggplot2 это достигается с помощью: 

library(ggplot2)

ggplot(df,aes(x=x,y=y))+geom_point()+theme_minimal()+
  geom_segment(aes(x=arrow.x.start,y=arrow.y.start,xend=arrow.x.end,yend=arrow.y.end),arrow=arrow())

, что дает: enter image description here

В plotly это построит точки: 

plotly::plot_ly(marker=list(size=5,color="black"),type='scatter',mode="markers",x=df$x,y=df$y,showlegend=F) %>%
  plotly::layout(xaxis=list(title="x",zeroline=F,showticklabels=F,showgrid=F,showgrid=F),yaxis=list(title="y",zeroline=F,showticklabels=F,showgrid=F,showgrid=F))

Итак, я пытаюсь выяснить, как добавить стрелки.

add_segments имеет аргументы x, xend, y и yend и добавив следующее: 

plotly::plot_ly(marker=list(size=5,color="black"),type='scatter',mode="markers",x=df$x,y=df$y,showlegend=F) %>%
  plotly::layout(xaxis=list(title="x",zeroline=F,showticklabels=F,showgrid=F,showgrid=F),yaxis=list(title="y",zeroline=F,showticklabels=F,showgrid=F,showgrid=F)) %>%
  plotly::add_segments(x=df$arrow.x.start,xend=df$arrow.x.end,y=df$arrow.y.start,yend=df$arrow.y.end,line=list(color="blue"))

Кажется, добавить точку в конце строки:

enter image description here

И я не смог найти в его документацииаргумент, который добавит стрелку в конце строки.

Есть идеи?

1 Ответ

0 голосов
/ 05 декабря 2018

Вы можете использовать аннотации 

plot_ly(df) %>%
  add_markers(~x, ~y) %>%
  add_annotations( x = ~arrow.x.end,
                   y = ~arrow.y.end,
                   xref = "x", yref = "y",
                   axref = "x", ayref = "y",
                   text = "",
                   showarrow = T,
                   ax = ~arrow.x.start,
                   ay = ~arrow.y.start)

enter image description here

...