R график рассеянно полярной диаграммы пузыря отсутствует

Question

Я знаю, что это должно быть просто, но мне было трудно найти проблему.Вот мой простой воспроизводимый код R :

library(plotly)

risk_status <- data.frame(
  id <- c(1:6),
  r <- c(1, 2, 3, 4, 3, 2),
  theta <- c(30, 90, 180, 220, 270, 330),
  bubbleSize <- c(10, 20, 30, 40, 50, 60),
  name <- c("Rick","Dan","Michelle","Ryan","Gary", "Pedro"),
  status <- c("Low", "Medium", "Low", "Medium", "Low", "Low")
)

risk_status$status <- factor(risk_status$status, levels = c("Low", "Medium", "High"))
bubble_colors_vector <- c("red", "green", "blue")


p <- plot_ly( data = risk_register_data) %>%
  add_trace(
    type = 'scatterpolar',
    r = ~r,
    theta = ~theta,
    size = as.numeric(risk_status$status),
    sizes = c(100,500)#,

    #color = risk_status$status,
    #colors = bubble_colors_vector
  ) %>%
  add_trace(
    type = "scatterpolar",
    mode = "text",
    r = risk_status$r,
    theta = risk_status$theta,
    text = risk_status$id

  )
p

Вывод диаграммы:

Пока это хорошо.Но теперь допустим, если я хочу добавить в него цвет, просто раскомментируя параметры color и colors.Я получаю этот график:

Скажем, если я использую color = as.numeric(risk_status$status) В этом случае я получаю диаграмму примерно так

Здесь я не хочу, чтобы эти масштабы и легенды.

Я знаю, что есть некоторая проблема, потому что, хотя factoring столбец status информационного кадра, я предоставил"Low", "Medium", "High" как уровни, в то время как в столбце присутствует только "Low", "Medium".Но это нормальный случай, также, без цвета размер пузырьков представлен правильно, тогда почему при добавлении цвета также отсутствуют недостающие размеры?

Заранее спасибо!

Answer 1

Наконец, Я решил проблему с помощью обходного пути использования add_trace внутри for loop.

Вот код:

library(plotly)

risk_status <- data.frame(
  id <- c(1:6),
  r <- c(1, 2, 3, 4, 3, 2),
  theta <- c(30, 90, 180, 220, 270, 330),
  bubbleSize <- c(10, 20, 30, 40, 50, 60),
  name <- c("Rick","Dan","Michelle","Ryan","Gary", "Pedro"),
  status <- c("Low", "Medium", "Low", "Medium", "Low", "Low")
)

risk_status$status <- factor(risk_status$status, levels = c("Low", "Medium", "High"))
bubble_colors_vector <- c("red", "green", "blue")


p <- plot_ly( data = risk_status) %>%

  add_trace(
    type = 'scatterpolar',
    r = risk_status$r[risk_status$status == 'Low'],
    theta = risk_status$theta[risk_status$status == 'Low'],
    #size = as.numeric(risk_status$status[risk_status$status == 'Low']),
    #sizes = c(100,500),

    #color = 'red', #risk_status$status[risk_status$status == 'Low'], #as.numeric(risk_status$status), #risk_status$status,
    #colors = bubble_colors_vector[risk_status$status == 'Low'],

    mode = 'markers',
    marker = list(symbol = 'circle', line = list(width = 1, color = 'black'), mode="scatterpolar", color = "red", size=20)
  ) %>%
  add_trace(
    type = 'scatterpolar',
    r = risk_status$r[risk_status$status == 'Medium'],
    theta = risk_status$theta[risk_status$status == 'Medium'],
    #size = as.numeric(risk_status$status[risk_status$status == 'Medium']),
    #sizes = c(100,500),

    #color = 'red', #risk_status$status[risk_status$status == 'Medium'], #as.numeric(risk_status$status), #risk_status$status,
    #colors = bubble_colors_vector[risk_status$status == 'Medium'],

    mode = 'markers',
    marker = list(symbol = 'circle', line = list(width = 1, color = 'black'), mode="scatterpolar", color = "yellow", size=20)
  ) %>%

  add_trace(
    type = 'scatterpolar',
    r = risk_status$r[risk_status$status == 'High'],
    theta = risk_status$theta[risk_status$status == 'High'],
    #size = as.numeric(risk_status$status[risk_status$status == 'High']),
    #sizes = c(100,500),

    #color = 'red', #risk_status$status[risk_status$status == 'High'], #as.numeric(risk_status$status), #risk_status$status,
    #colors = bubble_colors_vector[risk_status$status == 'High'],

    mode = 'markers',
    marker = list(symbol = 'circle', line = list(width = 1, color = 'black'), mode="scatterpolar", color = "green", size=20)
  ) %>%


  add_trace(
    type = "scatterpolar",
    mode = "text",
    r = risk_status$r,
    theta = risk_status$theta,
    text = risk_status$id

  )
p

Выходная диаграмма: