_df <- as.data.frame(cbind(res_domains = domains_un, num_pub=as.numeric(domains_freq)))

subplot                 package:plotly                 R Documentation

_V_i_e_w _m_u_l_t_i_p_l_e _p_l_o_t_s _i_n _a _s_i_n_g_l_e _v_i_e_w

_D_e_s_c_r_i_p_t_i_o_n:

     View multiple plots in a single view

_U_s_a_g_e:

     subplot(
       ...,
       nrows = 1,
       widths = NULL,
       heights = NULL,
       margin = 0.02,
       shareX = FALSE,
       shareY = FALSE,
       titleX = shareX,
       titleY = shareY,
       which_layout = "merge"
     )
     
_A_r_g_u_m_e_n_t_s:

     ...: One of the following

            • any number of plotly/ggplot2 objects.

            • a list of plotly/ggplot2 objects.

            • a tibble with one list-column of plotly/ggplot2 objects.

   nrows: number of rows for laying out plots in a grid-like structure.
          Only used if no domain is already specified.

  widths: relative width of each column on a 0-1 scale. By default all
          columns have an equal relative width.

 heights: relative height of each row on a 0-1 scale. By default all
          rows have an equal relative height.

  margin: either a single value or four values (all between 0 and 1).
          If four values are provided, the first is used as the left
          margin, the second is used as the right margin, the third is
          used as the top margin, and the fourth is used as the bottom
          margin. If a single value is provided, it will be used as all
          four margins.

  shareX: should the x-axis be shared amongst the subplots?

  shareY: should the y-axis be shared amongst the subplots?

  titleX: should x-axis titles be retained?

  titleY: should y-axis titles be retained?

which_layout: adopt the layout of which plot? If the default value of
          "merge" is used, layout options found later in the sequence
          of plots will override options found earlier in the sequence.
          This argument also accepts a numeric vector specifying which
          plots to consider when merging.

_V_a_l_u_e:

     A plotly object

_A_u_t_h_o_r(_s):

     Carson Sievert

_E_x_a_m_p_l_e_s:

     # pass any number of plotly objects to subplot()
     p1 <- plot_ly(economics, x = ~date, y = ~uempmed)
     p2 <- plot_ly(economics, x = ~date, y = ~unemploy)
     subplot(p1, p2, p1, p2, nrows = 2, margin = 0.05)
     
     #'  # anchor multiple traces on the same legend entry
      p1 <- add_lines(p1, color = I("black"), name = "1st", legendgroup = "1st")
      p2 <- add_lines(p2, color = I("red"), name = "2nd", legendgroup = "2nd")
      
      subplot(
        p1, style(p1, showlegend = FALSE),
        p2, style(p2, showlegend = FALSE),
        nrows = 2, margin = 0.05
      )
     
     # or pass a list
     economics_long %>%
       split(.$variable) %>%
       lapply(function(d) plot_ly(d, x = ~date, y = ~value)) %>%
       subplot(nrows = NROW(.), shareX = TRUE)
       
     # or pass a tibble with a list-column of plotly objects
     economics_long %>%
       group_by(variable) %>%
       do(p = plot_ly(., x = ~date, y = ~value)) %>%
       subplot(nrows = NROW(.), shareX = TRUE)
       
     # learn more at https://plotly.com/r/subplot.html