Redrawing a ggplot graph with plotly

Question

Out of curiosity I am trying to reconstruct a ggplot graph with plotly.

It is an example of a simple linear regression. The graph shows the observed data, the regression line and vertical lines showing the errors.

The ggplot looks like this:

The reconstructed plotly graph looks like this:

Is there a way to push the vertical lines showing the errors to the back of the points?
Is there a better approach?

The data may be found here: Advertising.csv

This is the code used to make the plots:

    library(ggplot2)
    library(plotly)


    #### prepare data ####
    adv <- read.csv("Advertising.csv")

    fit_tv <- lm(sales ~ TV, data = adv)  

    adv_plot <- data.frame(adv, fit = fit_tv$fitted.values)

    #### ggplot ####
    p1 <- ggplot(adv_plot, aes(x = TV, y = sales)) + 
            geom_segment(aes(x = TV, xend = TV, y = sales, yend = fit), size = 0.5, color = "lightgrey") + 
            geom_point(color = "red") + 
            geom_point(aes(y = fit), color = "blue") 

    p1

    #### Plotly ####
    p2 <- plot_ly(adv_plot, x = ~TV, y = ~sales, type = "scatter", mode = "markers", marker = list(color = "red", size = 5)) %>% 
            add_trace(x = ~TV, y = ~fit, type = "scatter", mode = "markers", marker = list(color = "blue", size = 5))

    line <- list(
            type = "line",
            line = list(color = "lightgrey"),
            xref = "x",
            yref = "y"
    )

    lines <- list()
    for (i in 1:length(adv_plot$sales)) {
            line[["x0"]] <- adv_plot$TV[i]
            line[["x1"]] <- adv_plot$TV[i]
            line[["y0"]] <- adv_plot$sales[i]
            line[["y1"]] <- adv_plot$fit[i]
            lines <- c(lines, list(line))
    }
    p2 <- layout(p2, shapes = lines, showlegend = FALSE)
    p2

I tried it following your comment. It works fine. It is almost the same plot as with ggplot with added plotly interactivity. However I would like to do it completely with plotly to understand and learn how to use it and tweak it. Even if my motivation to not use ggplotly is not because of performance I bounced on this article this morning: ggplotly vs plotly — Valter Beaković
– Valter Beaković, Commented Nov 27, 2017 at 12:32
Managed to find the answer. If you are curios to see it I have posted the answer to my question. — Valter Beaković
– Valter Beaković, Commented Dec 3, 2017 at 20:18

Valter Beaković · Accepted Answer · 2017-12-03 20:16:47Z

1

At the end managed to find the answer myself. The order of the segments and traces keep the error lines in the background.

The data is here: Advertising.csv

This is the code:

    library(ggplot2)
    library(plotly)
    adv <- read.csv("Advertising.csv")

    fit_tv <- lm(sales ~ TV, data = adv)  

    adv_plot <- data.frame(adv, fit = fit_tv$fitted.values)
    p <- plot_ly(adv_plot, x = ~TV) %>%
            add_segments(x = ~TV, y = ~fit, xend = ~TV, yend = ~sales, mode = 'line', line = list(color = "lightgrey")) %>% 
            add_trace(y = ~sales, name = 'trace 0', type = "scatter", mode = 'markers', marker = list(color = "red", size = 5)) %>%
            add_trace(y = ~fit, name = 'trace 1', type = "scatter", mode = 'markers', marker = list(color = "blue", size = 5)) %>% 
            layout(showlegend = FALSE)

    p

answered Dec 3, 2017 at 20:16

Valter Beaković

3,2702 gold badges24 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Redrawing a ggplot graph with plotly

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related