Прикрепление средней долготы и широты к определенным подсчитанным меткам

Question

У меня есть набор данных о преступлениях в Лондоне, и я сделал его подмножество, которое привело к появлению столбцов: long, lat, LSOA.code. (820 записей) Я хочу иметь в виду длинные и латы из 32 (обнаруженных функцией подсчета) - разные коды LSOA.co. Как мне это указать?

#subset data to relevant long-lat and type of polygon
london_crim_sub = subset(london_crim, select = c(5,6,8))
#remove missing
london_crim_sub = remove_missing(london_crim_sub)

library(dplyr)

DF = data.frame(count(london_crim_sub$LSOA.code))

Итак, мне нужен такой кадр данных: columns: LSOA.code, freq, meanlon, meanlat

Я нашел freq, используя количество. Теперь мне нужно только получить уникальное среднее значение long и lat для LSOA.code с другой частотой.

Answer 1

Вот вариант с dplyr

library(dplyr)
london_crim_sub %>%
         group_by(LSOA.code) %>%
          summarise_at(vars(lat, lon), list(mean = ~mean(.))) %>%
         select(-LSOA.code)%>%
         bind_cols(DF, .)

Answer 2

Если я вас правильно понял, вы хотите сгруппировать по LSOA.code и получить среднюю широту и долготу? Мы можем обновить уже созданный вами фрейм данных DF:

DF$meanlat <- aggregate(lat ~ LSOA.code, london_crim_sub, mean)
DF$meanlon <- aggregate(lon ~ LSOA.code, london_crim_sub, mean)