Сообщение об ошибке в Plotly (в R) о «маркерах»

Question

Кусок кода ...

library(plotly)
library(tidyverse)

my_fav_graph_SO <- function(my_df, my_levels) 
{

  x_axis <- list(
    title = "Variable Name",
    range = my_levels)

  primary_y_axis <- list(
   title = "coeff")

    p <- plot_ly() %>%

    add_lines(x = ~ my_df$factor_level,
              y = ~ my_df$coeff,
              yaxis = primary_y_axis,
              marker = list(color = "blue")) %>%

    layout(
      title = "graph",
      xaxis = x_axis,
      yaxis = primary_y_axis)

  p
}

df <- data.frame(factor_level = c("Aries", "Taurus", "Gemini", "Cancer", "Leo", "Virgo", "Libra", "Scorpio", "Sagittarius", "Capricorn", "Aquarius", "Pisces"),
                 exposure = c(50, 70, NA, 40, 45, 78, 42, 22, 28, 49, 50, 31),
                 coeff = c(1.1, 1.2, NA, 1.3, 1.8, 1.6, 1.4, 1.3, 1.2, 1.1, 1.5, 1.3))

my_levels = c("Aries", "Taurus", "Gemini", "Cancer", "Leo", "Virgo", "Libra", "Scorpio", "Sagittarius", "Capricorn", "Aquarius", "Pisces")

df$factor_level <- factor(df$factor_level, levels = my_levels)

my_fav_graph_SO(df, my_levels)

График dr aws ОК, но я получаю предупреждение:

Указан маркерный объект, но Маркеры не в режиме

Добавление маркеров в режим ...

Может кто-нибудь посоветовать, как избавиться от этого предупреждения, пожалуйста? Я не уверен, что я сделал неправильно.

Спасибо.

Answer 1

Вы добавляете трассировку линии через add_lines, но определяете цвет маркера через marker = list(color = "blue"). Изменив marker на line, вы избавитесь от предупреждения:

library(plotly)
library(tidyverse)

my_fav_graph_SO <- function(my_df, my_levels) 
{

  x_axis <- list(
    title = "Variable Name",
    range = my_levels)

  primary_y_axis <- list(
    title = "coeff")

  p <- plot_ly() %>%

    add_lines(x = ~ my_df$factor_level,
              y = ~ my_df$coeff,
              yaxis = primary_y_axis,
              line = list(color = "blue")) %>%

    layout(
      title = "graph",
      xaxis = x_axis,
      yaxis = primary_y_axis)

  p
}

df <- data.frame(factor_level = c("Aries", "Taurus", "Gemini", "Cancer", "Leo", "Virgo", "Libra", "Scorpio", "Sagittarius", "Capricorn", "Aquarius", "Pisces"),
                 exposure = c(50, 70, NA, 40, 45, 78, 42, 22, 28, 49, 50, 31),
                 coeff = c(1.1, 1.2, NA, 1.3, 1.8, 1.6, 1.4, 1.3, 1.2, 1.1, 1.5, 1.3))

my_levels = c("Aries", "Taurus", "Gemini", "Cancer", "Leo", "Virgo", "Libra", "Scorpio", "Sagittarius", "Capricorn", "Aquarius", "Pisces")

df$factor_level <- factor(df$factor_level, levels = my_levels)

my_fav_graph_SO(df, my_levels)