在一组条件下获得最大值
Get max value under a set of conditions
我想创建一个名为 max distance 的新列，我想在其中显示与列 Distance (km) 的最大距离。但是，我想通过在 Season 和 Transmitter 列中进行选择来缩短我的数据框。换句话说：每个唯一的 Transmitter 名称都应该在唯一的季节值下获得最大距离。例如：发射器 A69-1602-59769 应该在 Winter1、Spawn1、Forage、Winter2 和 Spawn2 下获得最大距离值，最终对于每个独特的发射器。不幸的是，我的数据集非常大，并不是所有独特的功能都是可见的。 Season 的唯一值如下所示：
[1]“Winter1”“Spawn1”“草料”“Winter2”“Spawn2”
我怎样才能做到这一点？
structure(list(Date = structure(c(18211, 18211, 18211, 18211,
18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212,
18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213,
18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214,
18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216,
18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217,
18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219,
18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220,
18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221,
18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222,
18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224,
18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769",
"A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778",
"A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772",
"A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773",
"A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772",
"A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769",
"A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343
), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127), `Distance (km)` = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L,
1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L,
1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L,
966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L,
1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L,
1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L,
1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L,
1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L,
722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L,
1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L,
846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L,
1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L,
1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L,
839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L,
957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L,
856978L), class = "data.frame")
基础 R
aggregate(`Distance (km)` ~ Transmitter + Batch.location + Season, data = dat, FUN = max)
# Transmitter Batch.location Season Distance (km)
# 1 A69-1602-59769 Den Oever Winter1 0
# 2 A69-1602-59770 Den Oever Winter1 0
# 3 A69-1602-59771 Den Oever Winter1 0
# 4 A69-1602-59772 Den Oever Winter1 0
# 5 A69-1602-59773 Den Oever Winter1 0
# 6 A69-1602-59774 Den Oever Winter1 0
# 7 A69-1602-59775 Den Oever Winter1 0
# 8 A69-1602-59776 Den Oever Winter1 0
# 9 A69-1602-59777 Den Oever Winter1 0
# 10 A69-1602-59778 Den Oever Winter1 0
dplyr
library(dplyr)
dat %>%
group_by(Transmitter, Season, Batch.location) %>%
summarize(`max distance` = max(`Distance (km)`), .groups = "drop")
# # A tibble: 10 x 4
# Transmitter Season Batch.location `max distance`
# <chr> <chr> <chr> <dbl>
# 1 A69-1602-59769 Winter1 Den Oever 0
# 2 A69-1602-59770 Winter1 Den Oever 0
# 3 A69-1602-59771 Winter1 Den Oever 0
# 4 A69-1602-59772 Winter1 Den Oever 0
# 5 A69-1602-59773 Winter1 Den Oever 0
# 6 A69-1602-59774 Winter1 Den Oever 0
# 7 A69-1602-59775 Winter1 Den Oever 0
# 8 A69-1602-59776 Winter1 Den Oever 0
# 9 A69-1602-59777 Winter1 Den Oever 0
# 10 A69-1602-59778 Winter1 Den Oever 0
data.table
library(data.table)
as.data.table(dat)[, .(`max distance` = max(`Distance (km)`)), by = .(Transmitter, Batch.location, Season)]
# Transmitter Batch.location Season max distance
# <char> <char> <char> <num>
# 1: A69-1602-59769 Den Oever Winter1 0
# 2: A69-1602-59776 Den Oever Winter1 0
# 3: A69-1602-59775 Den Oever Winter1 0
# 4: A69-1602-59771 Den Oever Winter1 0
# 5: A69-1602-59774 Den Oever Winter1 0
# 6: A69-1602-59773 Den Oever Winter1 0
# 7: A69-1602-59772 Den Oever Winter1 0
# 8: A69-1602-59777 Den Oever Winter1 0
# 9: A69-1602-59778 Den Oever Winter1 0
# 10: A69-1602-59770 Den Oever Winter1 0
数据
dat <- structure(list(Date = structure(c(18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213, 18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216, 18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217, 18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219, 18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221, 18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222, 18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777", "A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778", "A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774", "A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772", "A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773", "A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769", "A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127), "Distance (km)" = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L, 1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L, 1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L, 966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L, 1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L, 1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L, 1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L, 1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L, 722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L, 1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L, 846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L, 1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L, 1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L, 839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L, 957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L, 856978L), class = "data.frame")
我想创建一个名为 max distance 的新列，我想在其中显示与列 Distance (km) 的最大距离。但是，我想通过在 Season 和 Transmitter 列中进行选择来缩短我的数据框。换句话说：每个唯一的 Transmitter 名称都应该在唯一的季节值下获得最大距离。例如：发射器 A69-1602-59769 应该在 Winter1、Spawn1、Forage、Winter2 和 Spawn2 下获得最大距离值，最终对于每个独特的发射器。不幸的是，我的数据集非常大，并不是所有独特的功能都是可见的。 Season 的唯一值如下所示：
[1]“Winter1”“Spawn1”“草料”“Winter2”“Spawn2”
我怎样才能做到这一点？
structure(list(Date = structure(c(18211, 18211, 18211, 18211,
18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212,
18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213,
18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214,
18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216,
18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217,
18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219,
18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220,
18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221,
18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222,
18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224,
18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769",
"A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778",
"A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772",
"A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773",
"A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772",
"A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769",
"A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343
), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127), `Distance (km)` = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L,
1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L,
1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L,
966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L,
1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L,
1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L,
1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L,
1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L,
722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L,
1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L,
846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L,
1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L,
1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L,
839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L,
957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L,
856978L), class = "data.frame")
基础 R
aggregate(`Distance (km)` ~ Transmitter + Batch.location + Season, data = dat, FUN = max)
# Transmitter Batch.location Season Distance (km)
# 1 A69-1602-59769 Den Oever Winter1 0
# 2 A69-1602-59770 Den Oever Winter1 0
# 3 A69-1602-59771 Den Oever Winter1 0
# 4 A69-1602-59772 Den Oever Winter1 0
# 5 A69-1602-59773 Den Oever Winter1 0
# 6 A69-1602-59774 Den Oever Winter1 0
# 7 A69-1602-59775 Den Oever Winter1 0
# 8 A69-1602-59776 Den Oever Winter1 0
# 9 A69-1602-59777 Den Oever Winter1 0
# 10 A69-1602-59778 Den Oever Winter1 0
dplyr
library(dplyr)
dat %>%
group_by(Transmitter, Season, Batch.location) %>%
summarize(`max distance` = max(`Distance (km)`), .groups = "drop")
# # A tibble: 10 x 4
# Transmitter Season Batch.location `max distance`
# <chr> <chr> <chr> <dbl>
# 1 A69-1602-59769 Winter1 Den Oever 0
# 2 A69-1602-59770 Winter1 Den Oever 0
# 3 A69-1602-59771 Winter1 Den Oever 0
# 4 A69-1602-59772 Winter1 Den Oever 0
# 5 A69-1602-59773 Winter1 Den Oever 0
# 6 A69-1602-59774 Winter1 Den Oever 0
# 7 A69-1602-59775 Winter1 Den Oever 0
# 8 A69-1602-59776 Winter1 Den Oever 0
# 9 A69-1602-59777 Winter1 Den Oever 0
# 10 A69-1602-59778 Winter1 Den Oever 0
data.table
library(data.table)
as.data.table(dat)[, .(`max distance` = max(`Distance (km)`)), by = .(Transmitter, Batch.location, Season)]
# Transmitter Batch.location Season max distance
# <char> <char> <char> <num>
# 1: A69-1602-59769 Den Oever Winter1 0
# 2: A69-1602-59776 Den Oever Winter1 0
# 3: A69-1602-59775 Den Oever Winter1 0
# 4: A69-1602-59771 Den Oever Winter1 0
# 5: A69-1602-59774 Den Oever Winter1 0
# 6: A69-1602-59773 Den Oever Winter1 0
# 7: A69-1602-59772 Den Oever Winter1 0
# 8: A69-1602-59777 Den Oever Winter1 0
# 9: A69-1602-59778 Den Oever Winter1 0
# 10: A69-1602-59770 Den Oever Winter1 0
数据
dat <- structure(list(Date = structure(c(18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213, 18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216, 18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217, 18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219, 18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221, 18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222, 18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777", "A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778", "A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774", "A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772", "A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773", "A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769", "A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127), "Distance (km)" = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L, 1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L, 1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L, 966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L, 1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L, 1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L, 1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L, 1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L, 722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L, 1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L, 846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L, 1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L, 1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L, 839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L, 957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L, 856978L), class = "data.frame")