Изменить градусы ветра на символ в R

Question

Я прочитал в csv файле о погоде по дням. Одна из переменных называется winddirection (windrichting), но она дается в градусах, а 0 и 990 имеют особое значение.

Я хочу изменить цифры на север/юг/запад/восток, но когда я использовал функцию замены, он изменил тип данных всего вектора на символ, который не позволил моей следующей заменять диапазон работы. Итак, теперь я закончил с заявлением if/else if/else, но я не могу заставить его работать. Также я получаю условие ошибки имеет длину> 1. Может ли кто-нибудь помочь мне заставить это работать, поэтому у меня есть диапазоны 45-135 к востоку, 135-225 юга и т. Д.

вот мой код, где mydata$DD является переменной для направления ветра с более чем 2000 значениями.

windrichting <- mydata$DD 
windrichting <- if (windrichting == 990){ 
    windrichting == "Veranderlijk" 
} else if (windrichting>45 && windrichting<=135){ 
    windrichting == "Oost" 
} else if (windrichting>135 && windrichting<=225){ 
    windrichting == "Zuid" 
} else if (windrichting>225 && windrichting <=315){ 
    windrichting == "West" 
} else if (windrichting ==0){ 
    windrichting == "Windstil" 
} else windrichting == "Noord" 

Answer 1

Вы можете сделать это, используя функцию *apply.

windrichting_text <- unlist(lapply(windrichting, function (x) { 
    if (x == 990) { 
     return("Veranderlijk") 
    } else if { 
     .... 
    } else { 
     return ("Noord") 
    }) 

Применяется функция, определенная для всех элементов в списке.

Answer 2

Возможно, что-то похожее на это?

tmp <- round((windrichting + 45)/90) %% 8 
tmp[windrichting == 990] <- 8 
tmp <- factor(tmp, levels = 0:9, labels = c("Noord", "Oost", "Zuid", "West", "Veranderlijk", "Windstil")) 
tmp[windrichting == 0] <- "Windstil" 
windrichting <- tmp