Как вы можете объединить разные координаты для сайта-ловушки, чтобы каждый сайт имел одинаковое положение?

#r #coordinates #aggregate #conditional-statements

#r #координаты #агрегировать #условные операторы

Вопрос:

У меня есть данные о фотоловушках сайтов с фотоловушками, записанные в Excel за 10 лет последовательных полевых поездок. На каждом сайте-ловушке кто-то в некоторых случаях записывал координаты, немного отличающиеся. Это создало много разных координат для одного и того же сайта-ловушки, хотя они были в одном и том же месте. Как мне управлять этими данными, чтобы все координаты были одинаковыми для каждого сайта, используя агрегатную функцию в R?

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

Я еще не пытался сделать это в R, поскольку я не понимаю агрегатную функцию.

Я ожидаю, что каждый сайт будет иметь одинаковые координаты, поэтому, когда он нанесен на карту, он будет намного аккуратнее.

Комментарии:

1. Если вы хотите нормализовать такие данные автоматически, вам нужно написать для этого некоторый код. Без предоставления вами некоторых выборочных данных невозможно помочь вам более подробно

Ответ №1:

Используя очень простые данные:

 siteId <- c(1,1,2,2)
lats <- c(123, 124, 567, 568)
lons <- c(321, 320, 765, 876)
df <- data.frame(siteId, lats, lons)

df1 <-aggregate(df,by=list(siteId), FUN=mean, na.rm=TRUE)
df2 <-aggregate(df,by=list(siteId), FUN=min, na.rm=TRUE)
df3 <-aggregate(df,by=list(siteId), FUN=max, na.rm=TRUE)
  

первый вывод (df1) даст вам набор координат, который вычисляется как среднее значение всех изменений координат для каждого сайта.
Второй вывод (df2) даст вам набор координат, который вычисляется как минимальное значение всех вариаций для каждого сайта.
Второй вывод (df2) даст вам набор координат, который вычисляется как максимальное значение всех вариаций для каждого сайта.

Надеюсь, это поможет.

Комментарии:

1. Здравствуйте, спасибо за ваш ответ. Недавно я был занят кое-чем другим, но я попробую и дам вам знать. Еще раз спасибо.