Заговор дает предупреждение менее чем за 3 наблюдениями

Question

Я хочу связать документ .Rmd в PDF, и этот документ содержит фрагмент кода, в котором я использую plotly для построения «разбросанного по полярности» графика двух групп из набора данных, который выглядит следующим образом:

category  | group1 | group2
----------|--------|-------
category1 |   25.2 |   53.8
category2 |   14.6 |   34.1
category3 |   35.7 |   35.5
...       |    ... |    ...

Из-за предупреждения "менее 3 наблюдений" выполнение останавливается, когда я пытаюсь связать его в PDF, независимо от suppressWarnings вокруг блока кода или warning=FALSE в параметрах чанка.

Код:

library(plotly)
suppressWarnings(plot_ly(
  data[data$category != "category5",],
  type = "scatterpolar",
  mode = "lines+markers"
) %>% add_trace(
    r = ~group1,
    theta = ~category,
    color = ~"Group 1",
    line = list(color="#000088",width=2),
    marker = list(color="#000088",width=2)
) %>% add_trace(
    r = ~group2,
    theta = ~category,
    color = ~"Group 2",
    line = list(color="#FF0000", width=2),
    marker = list(color="#FF0000", width=2)
) %>% layout(
  title="Title",
  annotations=list(x=1, y=-.1, text="Source", showarrow=FALSE, xanchor="right"),
  legend=list(x=.9),
  margin=list(t=100, b=50, r=-100)
))

Как я могу это исправить?

Answer 1

Я понял это сейчас: атрибут colors в функции plot_ly решает проблему.

library(plotly)
plot_ly(
  data[data$category != "category5",],
  type = "scatterpolar",
  mode = "lines+markers",
  colors = c("#000088","#FF0000")
) %>% add_trace(
    r = ~group1,
    theta = ~category,
    color = ~"Group 1",
    line = list(color="#000088",width=2),
    marker = list(color="#000088",width=2)
) %>% add_trace(
    r = ~group2,
    theta = ~category,
    color = ~"Group 2",
    line = list(color="#FF0000", width=2),
    marker = list(color="#FF0000", width=2)
) %>% layout(
  title="Title",
  annotations=list(x=1, y=-.1, text="Source", showarrow=FALSE, xanchor="right"),
  legend=list(x=.9),
  margin=list(t=100, b=50, r=-100)
)