将平均经度和纬度附加到特定的计数标签

Question

我有一个伦敦犯罪数据集，我制作了它的一个子集，结果列为：long, lat, LSOA.code 。 (820 个条目) 我想要 32 的平均长度和纬度（通过计数函数找到）- 不同的 LSOA.codes。我该如何指定？

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

所以我想要这样的数据框：列： LSOA.code、频率、平均值、平均值

我使用计数找到了频率。现在我只需要获得具有不同频率的每个 LSOA.code 的唯一平均经度和纬度。

Answer 1

如果我没理解错的话，您想按 LSOA.code 分组并生成平均纬度和经度？我们可以更新您已经创建的 DF 数据框：

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

Answer 2

这里有一个选项dplyr

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

将平均经度和纬度附加到特定的计数标签

Attaching mean Longitude and Latitude to specific counted labels

r

unique

count

mean

dataframe