Предупреждение при определении коэффициента: дублированные уровни в коэффициентах не рекомендуются

Question

У меня небольшая проблема с моей радиолокационной картой в R. Несмотря на то, что сюжет в порядке, я получаю следующее предупреждение:

> source('~/.active-rstudio-document')
Warning message:
In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  duplicated levels in factors are deprecated
> radar
Warning messages:
1: In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  duplicated levels in factors are deprecated
2: In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  duplicated levels in factors are deprecated

Я видел ту же ошибку в других сообщениях, но я не понимал, как применить ответы к моему набору данных...

Это мой набор данных

MSF,C1,2
OCA,C1,6
SIOA,C1,4
CCFF,C1,4
MSF,C2,4
OCA,C2,2
SIOA,C2,6
CCFF,C2,2
MSF,C3,6
OCA,C3,6
SIOA,C3,6
CCFF,C3,6

И это код для соответствующей радиолокационной карты (вероятно, только первая часть, где я определяю свой набор данных, имеет отношение, но да... вот где я потерян):

colnames(dataset) = c("type", "variable", "value")
dataset$value = as.numeric(dataset$value)

dataset$variable <- factor(dataset$variable, levels = rev(dataset$variable), ordered=TRUE)

# Radar function ------------------------------------------------------------
coord_radar <- function (theta = "x", start = 0, direction = 1) {
  theta <- match.arg(theta, c("x", "y"))
  r <- if (theta == "x")
    "y"
  else "x"
  ggproto("CordRadar", CoordPolar, theta = theta, r = r, start = start,
          direction = sign(direction),
          is_linear = function(coord) TRUE)
}


# Radar plot ------------------------------------------------------------
radar <- ggplot(dataset, aes(x = variable, y = value, group=type)) +
  geom_polygon(aes(group = type, color=type,fill=type), size = 1, alpha=0.1) + 
  scale_fill_manual(values=cbPalette) +
  geom_line(aes(group = type, color=type)) + 
  scale_colour_manual(values = cbPalette) + 
  coord_radar() 

Answer 1

Да, почти все это не имеет отношения к вашей проблеме.

Вы пытаетесь создать фактор со следующими уровнями: rev(dataset$variable), Это дает:

[1] C3 C3 C3 C3 C2 C2 C2 C2 C1 C1 C1

Видишь как у тебя реплицируются уровни? Вы будете хотеть иметь каждый уровень только один раз, в том порядке, который вы хотите. По умолчанию sort(unique(dataset$variable)), который дает C1 C2 C3или вы могли бы использовать rev(unique(dataset$variable) дать C3 C2 C1,

forcats Пакет имеет несколько удобных функций, позволяющих легко вносить или изменять факторы и порядок их уровней.