我在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()
最佳答案
是的,几乎所有这些都与您的问题无关。
您正在尝试创建具有以下级别的因子: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
软件包具有几个便捷功能,可轻松创建或更改因子及其级别的顺序。
关于r - 定义因子时发出警告:不赞成重复使用因子水平,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38931194/