2016-08-13 57 views
8

我有在我的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 

这是为correspo代码nding雷达图(可能只在我定义我的数据集是相关的,但是是啊...这就是我丢失的第一部分):

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() 

回答

15

是,几乎所有的这无关你的问题。

您正试图创建一个具有以下级别的因子: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包有几个便利功能,可轻松制作或更改因素及其级别的顺序。

+0

太好了,非常感谢您的回复!行'dataset $ variable < - factor(dataset $ variable,levels = rev(unique(dataset $ variable)),ordered = TRUE)'这样做 – Jonas