Hi all,

Just though I'd comment an update in case anyone is still following this issue.

I commented above recommending the use of geom_segment as an alternative to geom_dumbbell, however I am still running into issues.

I have the following code:

      activity_data_plot <-  ggplot() +
       geom_segment(data = activity_start_end, aes(x = start, xend = end, y = event,
                                                    yend = event, colour = event),
                     size =4, lineend = "round")+

#I have two geom_points here, to have a start and end point similar to geom_dumbbell.
#This works in ggplotly without the geom_segment lines
        geom_point(data=activity_start_end, aes(x = start, y = event), size =4, stroke = 3,shape = 21, fill = "white", colour = "black")+
        geom_point(data=activity_start_end, aes(x = end, y = event), size =4, stroke = 3, shape = 21, fill = "white", colour = "black")

I also tried using geom_rect instead of geom_segment:

       #geom_segment can be replaced with geom_rect, but throw the same error
         geom_rect(data = activity_start_end, aes(xmin = start, xmax = end, ymin = event, 
                                                ymax = event, colour = event), size =4)+

When debugging, the warning message is produced here, which reads as follows:

Warning: Error in [[: attempt to select less than one element in get1index
111: eval
110: eval
109: with.default
107: FUN
106: vapply
105: FUN
104: lapply
103: gg2list
102: ggplotly.ggplot
95: func
82: origRenderFunc
81: output$activityPlot
1: runApp

This occurs after above plot is fed into:

ggplotly(activity_data_plot, dynamicTicks = TRUE, tooltip =c("y","x")) %>% layout(yaxis = list(tickmode="auto", autorange=TRUE), legend = list(orientation = "h", y=-0.2)) %>% config(displayModeBar = F)

However this is not where the error seems to occur.

The dataframe looks like this:

> activity_start_end
                                   event  id          timesubmit               start                 end
1                   something happens 1 621 2019-06-13 13:12:06 2019-06-10 19:00:00 2019-06-10 22:00:00
2                   something happens 2 639 2019-06-13 13:12:38 2019-06-03 17:00:00 2019-06-06 22:00:00
3                   something happens 3 639 2019-06-13 13:13:14 2019-06-12 09:00:00 2019-06-12 13:00:00

Where I'm trying to plot a line between the start and end times of a certain event, which looks like this in ggplot:

Not sure what the issue is, and would appreciate any suggestions if anyone has any.

Many thanks.

Add support for geom_dumbbell #1454

Description

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions