Добавляйте 1 к значению по мере повышения ранга

Я работаю с некоторыми сгруппированными ранжированными данными, которые имеют широту и долготу. Я хотел бы добавлять 0,00075 в поле широты каждый раз, когда ранг увеличивается на 1.

Ниже приведена одна из 5000 групп, и неизвестно, какой будет максимальная стойка, поэтому мне нужно, чтобы это было в группе group_by, в идеале с использованием dplyr.

Я знаю, что могу использовать

group_by(loc_id) %>% mutate(y = if_else(rank > 1, as.character(Y + 0.00075), as.character(Y))

но это работает только один раз.

Вот некоторый код r для создания фрейма данных, полного данных

id <- c(1,2,3,4,5)
loc_id <- c(77,77,77,77,77)
x <- c(-74.001981, -74.001981, -74.001981, -74.001981, -74.001981)
y <- c(40.736038, 40.736038, 40.736038, 40.736038, 40.736038)
views <- c(55,45,66,22,99)
rank <- c(3,4,2,5,1)
data <- data.frame(id, loc_id, x, y, views, rank)

r dplyr
person Jeffkrop    schedule 23.08.2019    source источник
comment
Что ты имеешь в виду под одноразовым. если он сгруппирован по 'loc_id', он должен изменить значения для каждой группы. Кроме того, вы предоставили данные только для одного «loc_id», поэтому неясно, что вы имели в виду.   -  person akrun    schedule 23.08.2019
comment
Он изменяет все значения с рангом больше 1, чтобы он зацикливался, чтобы каждая строка в группе имела другую широту, увеличивающуюся на 0,00075 по мере повышения ранга.   -  person Jeffkrop    schedule 23.08.2019
comment
Разве ты не можешь просто сделать data %>% group_by(loc_id) %>% mutate(y = y + ((rank - 1) * 0.00075))?   -  person tmfmnk    schedule 23.08.2019
comment
Спасибо @tmfmnk, я никогда такого не видел. Спасибо, что нашли время   -  person Jeffkrop    schedule 23.08.2019

Ответы (1)


arrow_upward
2
arrow_downward

Превратил мой комментарий в пост. Используя dplyr, вы можете сделать:

data %>% 
 group_by(loc_id) %>% 
 mutate(y = y + ((rank - 1) * 0.00075))
person tmfmnk    schedule 23.08.2019