Reputation: 435
I am having an issue creating unique IDs with make.unique
in R.
In the output below, instead of make.unique
creating AK
rows, AK.1, AK.2, AK.3, AK.4, AK.5, AK.6, AK.7, AK.8, AK.9
, it seems to not get past AK.2
. I'm guessing there might be an issue with how names are grouped before attempting to make unique IDs, or the use of summarize
. I've played around with the order that these columns are created, but can't figure out what is going on.
UniqueID name start end total_0_5 total_over_5 total_5_19 n ratio_5_19 ratio_0_5
1 AB AB -4490 -3220 14.2500000 79.75000 18.2500000 94 0.22884013 0.17868339
2 AG AG -15540 -7050 3.5000000 2.50000 0.5000000 6 0.20000000 1.40000000
3 AI AI -3220 -2385 0.7500000 7.25000 1.0000000 8 0.13793103 0.10344828
4 AK AK -4730 -4540 0.0000000 5.00000 1.0000000 5 0.20000000 0.00000000
5 AK.1 AK -4730 -4235 0.0000000 9.00000 2.6666667 9 0.29629630 0.00000000
6 AK.2 AK -4730 -4050 0.0000000 15.00000 2.0000000 15 0.13333333 0.00000000
7 AK AK -4490 -4235 1.0000000 18.00000 2.8888889 19 0.16049383 0.05555556
8 AK.1 AK -4490 -3750 1.0000000 8.00000 1.0000000 9 0.12500000 0.12500000
9 AK AK -4235 -4050 0.0000000 26.00000 0.0000000 26 0.00000000 0.00000000
10 AK.2 AK -4235 -3750 0.0000000 16.00000 3.8888889 16 0.24305556 0.00000000
11 AK.1 AK -4050 -3750 0.0000000 23.00000 5.6666667 23 0.24637681 0.00000000
12 AK AK -3900 -3750 0.0000000 9.00000 2.0000000 9 0.22222222 0.00000000
I've included the surrounding code in case that is what is introducing errors.
dfsummary <- df %>%
group_by(name, start, end) %>%
add_tally() %>%
summarise(total_0_5 = sum(percent_0_5), total_over_5 = sum(over_5_values), total_5_19 = sum(percent_5_19), n = mean(n)) %>%
mutate(UniqueID = make.unique(name)) %>%
rowwise() %>%
mutate(ratio_5_19 = total_5_19 / total_over_5, ratio_0_5 = total_0_5 / total_over_5) %>%
select(UniqueID, everything()) %>%
filter(n > 4)
Here's the data for df
. I would have cut it down smaller, but I wanted to make sure there was enough information for the summarize functions to work.
structure(list(name = c("A", "A", "B", "B", "C", "D", "E", "F",
"G", "G", "H", "I", "J", "K", "L", "L", "L", "L", "L", "L", "M",
"M", "N", "N", "O", "P", "P", "Q", "Q", "Q", "Q", "Q", "R", "R",
"S", "S", "T", "T", "U", "V", "V", "V", "W", "W", "N", "N", "N",
"N", "N", "X", "X", "X", "X", "X", "X", "X", "X", "X", "X", "X",
"Y", "Y", "Z", "AA", "AA", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB",
"AC", "AD", "AD", "AD", "AE", "AF", "AF", "AB", "AG", "AG", "AG",
"AG", "AG", "AG", "AH", "AI", "AI", "AI", "AI", "AI", "AI", "AI",
"AI", "AJ", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK",
"AK", "AK", "AK", "AK", "AK", "AK", "AK", "AK", "AL", "AL", "AL",
"AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL",
"AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL",
"AL", "AL", "AL", "AL", "AM", "AM", "AM", "AM", "AM", "AM", "AM",
"AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM",
"AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM",
"AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM", "AM",
"AM", "AM", "AM", "AM", "AN", "AN", "AN", "AN", "AN", "AN", "AN",
"AN", "AN", "AN", "AN", "AN", "AN", "AO", "AO", "AO", "AO", "AO",
"AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO",
"AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO", "AO",
"AO", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP",
"AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP",
"AP", "AP", "AP", "AP", "AP", "AP", "AP", "AP", "AQ", "AQ", "AQ",
"AQ", "AQ", "AQ", "AQ", "AQ", "AR", "AR", "AR", "AR", "AR", "AR",
"AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR",
"AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR",
"AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR",
"AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR", "AR",
"AR", "AR", "AR", "AR", "AR", "AS", "AS", "AS", "AS", "AS", "AS",
"AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS",
"AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS",
"AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AT",
"AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT",
"AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT",
"AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AT", "AU", "AU",
"AU", "AU", "AU", "AU", "AU", "AU", "AV", "AV", "AV", "AV", "AV",
"AV", "AV", "AV", "AV", "AV", "AV", "AV", "AV", "AV", "AV", "AV",
"AV", "AV", "AV", "AV", "AV", "AV", "AV", "AW", "AW", "AW", "AW",
"AW", "AW", "AW", "AW", "AW", "AW", "AW", "AW", "AW", "AW", "AW",
"AW", "AW", "AW", "AX", "AX", "AX", "AX", "AX", "AX", "AX", "AX",
"AX", "AX", "AX", "AX", "AX", "AY", "AY", "AY", "AY", "AY", "AY",
"AY", "AY", "AY", "AY", "AY", "AY", "AY", "AY", "AY", "AY", "AY",
"AY", "AY", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ",
"AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ",
"AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ",
"AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ",
"AZ", "AZ", "AZ", "AZ", "BA", "BA", "BA", "BA", "BA", "BA", "BA",
"BA", "BA", "BA", "BA", "BA", "BA", "BA", "BB", "BB", "BB", "BB",
"BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB",
"BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB",
"BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB",
"BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB",
"BB", "BB", "BB", "BB", "BB", "BB", "BC", "BC", "BC", "BC", "BC",
"BC", "BC", "BC", "BC", "BC", "BC", "BC", "BD", "BD", "BD", "BD",
"BD", "BD", "BE", "BE", "BE", "BE", "BE", "BE", "BE", "BE", "BF",
"BF", "BF", "BF", "BF", "BF"), start = c(-15540, -15540, -15540,
-15540, -15540, -15540, -7050, -7050, -7050, -7050, -7050, -5415,
-5415, -5415, -5415, -5415, -5415, -5415, -5415, -5415, -5415,
-5415, -5415, -5415, -5415, -5415, -5415, -5415, -5415, -5415,
-5415, -5415, -5415, -5415, -5415, -5415, -5415, -5415, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -3220, -15540, -15540, -15540, -15540, -15540, -15540,
-5415, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -4050, -4050, -4050, -4050, -4050, -4235, -4235, -4235,
-4050, -4050, -4050, -4050, -4050, -4050, -3900, -4050, -4235,
-4235, -4050, -4050, -3900, -3900, -4050, -3900, -3900, -4050,
-4050, -4235, -4730, -4490, -4235, -4235, -4730, -4050, -4235,
-4730, -4235, -3900, -4730, -4730, -4730, -4050, -4730, -4730,
-4730, -4730, -4730, -4730, -4730, -4730, -4540, -4730, -4235,
-4490, -4730, -4490, -4730, -4540, -4050, -4050, -4730, -4050,
-4490, -4490, -4490, -4490, -4490, -4050, -4490, -4490, -4490,
-4490, -4235, -4235, -4730, -4235, -3900, -3900, -4235, -4235,
-4235, -4235, -4235, -4235, -4235, -4235, -4235, -4490, -4235,
-4235, -4730, -4235, -4235, -4490, -4235, -4235, -4490, -4235,
-4235, -4235, -4235, -4235, -4235, -4235, -4235, -4730, -4235,
-4235, -4490, -4490, -4490, -4730, -4730, -4235, -3900, -4490,
-4490, -4490, -4490, -4490, -4730, -4235, -4490, -4490, -4730,
-4730, -4730, -4235, -4730, -4490, -4730, -4490, -4730, -4235,
-4730, -4730, -4490, -4050, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4540, -4067,
-4490, -4540, -4540, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -3855, -3855, -4067, -4490, -4067, -4067, -4490, -4067,
-4490, -4490, -4490, -3855, -3855, -4490, -4540, -4540, -4540,
-4490, -4490, -4490, -4490, -4067, -4540, -4490, -4540, -4540,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4235,
-4235, -4235, -4235, -4235, -4235, -4235, -4235, -4235, -4235,
-4235, -4235, -4235, -4490, -4490, -4490, -4490, -4540, -4540,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4950, -4950, -5310, -4950, -4950, -4950, -4950, -4950,
-4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950,
-4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950,
-4950, -4950, -4950, -5230, -5230, -5230, -5230, -5230, -5230,
-5310, -4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950,
-4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950, -4950,
-4950, -4950, -4950, -4950, -4950, -4950, -4950, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -3900, -4950, -4950,
-4950, -3900, -4235, -3900, -4235, -3900, -4235, -3900, -4235,
-3900, -3900, -3900, -3900, -3900, -4950, -3900, -3900, -3900,
-3900, -3900, -3900, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-3900, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -3900, -3900, -3900, -4490,
-4490, -4490, -3900, -4235, -4490, -4235, -4050, -4050, -4050,
-4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050,
-4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050,
-4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050, -4050,
-4050, -4235, -4235, -4235, -4235, -4235, -4235, -4235, -4235,
-4490, -3900, -3370, -4235, -3900, -4235, -4235, -4235, -4235,
-4235, -3900, -4235, -3420, -4235, -4235, -3900, -4235, -3900,
-3900, -3900, -3900, -4235, -3750, -5415, -5415, -5415, -5415,
-5415, -4235, -4950, -4235, -5310, -5310, -5310, -5310, -4235,
-4860, -4860, -4860, -4950, -4950, -4235, -4235, -4235, -4235,
-4050, -4235, -4235, -4235, -4235, -4235, -4235, -4235, -4235,
-5310, -5310, -5415, -5415, -4860, -5415, -5310, -5310, -4730,
-4730, -4950, -5310, -5310, -4950, -4950, -5415, -5415, -5415,
-5415, -4730, -5415, -5310, -4950, -5310, -5310, -5310, -5310,
-5310, -5310, -4950, -4950, -4950, -4950, -4950, -5310, -5310,
-5310, -5310, -5310, -5310, -5310, -5310, -4860, -4860, -4950,
-4730, -4730, -4950, -4950, -4950, -4950, -5310, -5310, -5310,
-5310, -5310, -5310, -5310, -4860, -4730, -5310, -5310, -4950,
-4950, -5230, -5415, -4860, -4860, -4730, -4730, -4860, -4730,
-4950, -4950, -4950, -4950, -4950, -4950, -5415, -4235, -4235,
-4235, -4235, -4490, -4235, -4490, -4235, -4235, -4490, -4235,
-4235, -3065, -3220, -4490, -5415, -4490, -4235, -4235, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -3130, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -3370, -3370,
-3370, -3370, -3370, -3370, -3370, -3370, -3370, -3370, -3370,
-3370, -4490, -4490, -4235, -4235, -4235, -4235, -4860, -4950,
-4860, -4950, -4860, -4950, -4860, -4950, -4860, -4860, -4860,
-4860, -4950, -5310), end = c(-7050, -7050, -7050, -7050, -7050,
-7050, -5415, -5415, -5415, -5415, -5415, -4395, -4395, -4395,
-4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395,
-4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395,
-4395, -4395, -4395, -4395, -4395, -4395, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -2385,
-7050, -7050, -7050, -7050, -7050, -7050, -4395, -2385, -2385,
-2385, -2385, -2385, -2385, -2385, -2385, -2385, -3750, -3750,
-3750, -3750, -3750, -3750, -4050, -3750, -3750, -3750, -3750,
-3750, -3750, -3750, -3750, -3750, -3750, -3750, -3750, -3750,
-3750, -3750, -3750, -3750, -3750, -3750, -3750, -4050, -3900,
-4235, -3750, -3750, -4235, -3750, -4050, -4540, -3750, -3750,
-4050, -3900, -3900, -3750, -4050, -4050, -4050, -4050, -4050,
-4050, -4235, -4235, -4050, -4050, -4050, -4235, -4050, -4235,
-4235, -4050, -3750, -3750, -4235, -3750, -4235, -3750, -3750,
-3750, -3750, -3750, -3750, -3750, -3750, -3750, -3900, -4050,
-4050, -4050, -3750, -3750, -3750, -3750, -3750, -4050, -3750,
-4050, -4050, -4050, -4050, -3750, -4050, -4050, -4050, -3750,
-4050, -4235, -4050, -4050, -4235, -3750, -4050, -3750, -4050,
-4050, -4050, -4050, -4050, -4235, -3750, -3750, -4235, -4235,
-4235, -4540, -4540, -4050, -3750, -4235, -4235, -4235, -4235,
-4235, -4050, -4050, -4235, -4235, -4050, -4050, -4540, -4050,
-4235, -4235, -4050, -4235, -4235, -4050, -4235, -4540, -4235,
-3900, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -4235, -4235, -3643, -4235, -4395, -4235,
-4235, -4235, -4235, -4235, -4235, -4235, -3643, -3220, -3220,
-3643, -4235, -3643, -3643, -4235, -3643, -4235, -4235, -3220,
-3220, -3220, -3643, -4395, -4235, -4235, -4235, -4235, -4235,
-4235, -3643, -4395, -4235, -4235, -4395, -4235, -4235, -3220,
-4235, -4235, -3220, -3220, -3220, -4050, -4050, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -4050, -4050, -4050,
-3900, -3900, -3900, -4395, -4490, -4490, -4395, -4395, -4395,
-4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395, -4395,
-4395, -4395, -4395, -4395, -4395, -4395, -4395, -4860, -4860,
-5270, -4860, -4860, -4860, -4860, -4860, -4860, -4860, -4860,
-4860, -4860, -4860, -4860, -4860, -4860, -4860, -4860, -4860,
-4860, -4860, -4860, -4860, -4860, -4860, -4860, -4860, -4860,
-5100, -5100, -5100, -5100, -5100, -5100, -5270, -4860, -3420,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490, -4490,
-3420, -3420, -3420, -3420, -3420, -3420, -3420, -3420, -3420,
-3420, -3420, -3420, -3420, -4490, -4490, -4490, -3420, -3900,
-3420, -3900, -3420, -3900, -3420, -3900, -3420, -3420, -3420,
-3420, -3420, -4490, -3420, -3420, -3420, -3420, -3420, -3420,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3420, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3420, -3420, -3420, -3220, -3643, -4395, -3420,
-3900, -3643, -4050, -3900, -3900, -3900, -3900, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900, -3900,
-3900, -3900, -3900, -3900, -3900, -3900, -3220, -3420, -3220,
-4050, -3420, -4050, -4050, -3900, -4050, -4050, -3420, -4050,
-3370, -4050, -4050, -3420, -4050, -3420, -3420, -3750, -3750,
-4050, -3525, -4395, -4395, -4395, -4395, -4395, -4050, -4730,
-4050, -4950, -4950, -4950, -4950, -4050, -4730, -4730, -4730,
-4860, -4860, -4050, -3900, -3900, -3900, -3900, -3900, -4050,
-4050, -3900, -3900, -3900, -3900, -4050, -5270, -4490, -4395,
-4395, -4730, -4395, -4860, -4730, -4540, -4540, -4860, -5270,
-5270, -4490, -4860, -4395, -4395, -4395, -4395, -4540, -4395,
-5270, -4860, -5270, -5270, -5270, -5270, -5270, -5270, -4860,
-4860, -4730, -4860, -4490, -5270, -5270, -4860, -4860, -4860,
-4860, -4860, -4860, -4730, -4730, -4860, -4540, -4540, -4860,
-4730, -4730, -4860, -5270, -5270, -5270, -5270, -5270, -5270,
-5270, -4730, -4540, -4490, -5270, -4860, -4860, -5100, -4395,
-4730, -4730, -4540, -4540, -4730, -4540, -4860, -4490, -4490,
-4490, -4490, -4490, -4395, -3900, -3900, -3900, -3900, -3220,
-3900, -3220, -3900, -4050, -3220, -3900, -3900, -2990, -2385,
-2385, -3220, -3220, -3420, -3420, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3065, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220, -3220,
-3220, -3220, -3220, -3220, -3130, -3220, -3130, -3130, -3130,
-3130, -3130, -3130, -3130, -3220, -3220, -3220, -3220, -3220,
-3900, -3900, -3900, -3900, -4730, -4860, -4730, -4860, -4730,
-4860, -4730, -4860, -4730, -4730, -4730, -4730, -4860, -5270
), percent_0_5 = c(0, 0, 0, 0, 0, 0, 0.75, 0, 0, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.75, 1, 0,
0, 0, 0, 0, 0.75, 0, 1, 0, 0, 0, 1, 1, 0, 0.75, 0, 0, 0, 0, 0,
0, 0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.75, 0, 0.75, 0.75,
0, 0, 0, 0, 0, 0, 0.75, 0, 0, 0.75, 0.75, 0.75, 0.75, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.75, 0, 0, 0, 0, 0, 0, 0.75, 0,
0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0, 0.75,
0.75, 0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.75, 0.75, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0.75, 0.75, 0, 0, 0, 0, 0, 0, 0.75,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0.4, 0.4, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0, 0,
0, 0.4, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0.4, 0, 0, 0, 0,
0, 0, 0, 0, 0.4, 0, 0, 0, 0, 0, 0.4, 0, 0.4, 0, 0, 0, 0, 0.4,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 0.4, 0, 0, 0, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.8, 0.833333333, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4,
0, 0, 0, 0, 0, 0.4, 0, 0.4, 0, 0, 0, 0.4, 0, 0, 0.4, 0, 0, 0.4,
0, 0, 0, 0, 0.4, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4,
1, 0.4, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0, 0, 0, 0, 0,
0, 0.4, 0, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0.333333333, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4,
0, 1, 0, 0, 0, 0, 0, 0.4, 0, 0, 0, 0, 0, 0.833333333, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0, 0, 0, 0, 0, 0.266666667,
0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0.4, 0, 0, 0, 0, 0.4, 0, 0, 0, 0.4,
0, 0, 0, 0, 0.4, 0.4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0.4, 0, 0,
0, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0, 0), over_5_values = c(1,
1, 1, 1, 1, 1, 0.25, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.25, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 0.25, 0, 1, 1, 1, 1, 1, 0.25, 1, 0,
1, 1, 1, 0, 0, 1, 0.25, 1, 1, 1, 1, 1, 1, 1, 0.25, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 0.25, 1, 0.25, 0.25, 1, 1, 1, 1, 1, 1, 0.25,
1, 1, 0.25, 0.25, 0.25, 0.25, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 0.25, 1, 1, 1, 1, 1, 1, 0.25, 1, 1, 0.25, 1, 1, 1, 1, 1,
1, 1, 0.25, 1, 1, 1, 1, 1, 1, 1, 1, 0.25, 0.25, 1, 0.25, 1, 1,
1, 1, 1, 1, 1, 1, 1, 0.25, 0.25, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
0, 0, 1, 0.25, 0.25, 1, 1, 1, 1, 1, 1, 0.25, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0,
1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
0, 1, 1, 1, 1, 0, 0.6, 0.6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 1, 1, 1, 0.6, 0, 1, 1, 1,
1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 0.6, 0.6, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 1, 1,
1, 1, 1, 0.6, 1, 0.6, 1, 1, 1, 1, 0.6, 1, 1, 1, 1, 1, 1, 1, 1,
1, 0.6, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0.6, 1,
1, 1, 0.6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 0.2, 0.166666667, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 1, 1, 1, 1, 1, 0.6, 1,
0.6, 1, 1, 1, 0.6, 1, 1, 0.6, 1, 1, 0.6, 1, 1, 1, 1, 0.6, 0.6,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 0, 0.6, 0.6, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 0.6, 1, 1, 1, 1, 1, 1, 0.6, 1, 0.6, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.666666667,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.6, 1, 0, 1, 1, 1, 1, 1, 0.6,
1, 1, 1, 1, 1, 0.166666667, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 0.5, 1, 1, 1, 1, 1, 0.733333333, 1, 1, 1, 1, 1, 1, 1, 0,
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
0.6, 0.6, 1, 1, 1, 1, 0.6, 1, 1, 1, 0.6, 1, 1, 1, 1, 0.6, 0.6,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1,
1, 1, 1, 0, 1, 1, 1, 1, 1, 0.6, 1, 1, 1, 0.6, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 0.6, 1, 1), percent_5_19 = c(0, 0, 0, 1, 0,
0, 0.25, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0.75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.25, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0.25, 0, 1, 0, 0, 0, 0, 0.25, 0, 0, 0, 0, 0,
0, 0, 0, 0.25, 0, 0, 0, 0, 0, 1, 1, 0.25, 1, 0, 0, 0, 0, 0, 0,
1, 0, 0, 0, 0.25, 1, 0.25, 0.25, 0, 1, 0, 0, 0, 0, 0.25, 1, 0,
0.25, 0.25, 0.25, 0.25, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0.25, 1, 0, 0, 0, 0, 0, 0.25, 0, 0, 0.25, 0, 0, 0, 0, 0, 0, 0,
0.25, 0, 0, 0, 0, 0, 0.75, 0, 0, 0.25, 0.25, 1, 0.25, 0, 0, 0,
1, 0, 1, 0, 0, 0.75, 0.25, 0.25, 0, 1, 0, 0, 0.75, 0, 0, 0, 0,
0, 0, 0, 0, 0.25, 0.25, 0, 0, 0, 0, 0, 0, 0.25, 0, 0.75, 0, 0,
1, 0, 0, 0, 0, 0, 0, 0, 0.666666667, 1, 0, 0, 1, 0, 0, 0, 0.888888889,
1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.888888889, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0.666666667, 0, 0, 1,
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.333333333,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0.6, 0.6, 0, 0, 0, 0, 0.666666667, 0, 0, 0, 0, 0.6, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0, 0, 0, 0.6, 0, 0, 0, 0, 1, 0,
0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0.6, 0.6, 0, 0, 0.333333333, 0, 0, 0, 0, 0, 0.6,
0.333333333, 0, 0, 0, 0, 0.6, 1, 0.6, 0, 0, 1, 0, 0.6, 0, 0,
0, 0, 0, 0, 0.333333333, 0, 0, 0.6, 0, 0, 0, 0, 0, 0.666666667,
0.666666667, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0, 0, 0, 0.6, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0.2,
0.166666667, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1,
0, 0, 0, 0, 0, 0.6, 0, 0, 0, 0, 0, 0.6, 0, 0.6, 0, 0, 0, 0.6,
0, 0, 0.6, 0, 0, 0.6, 0, 0, 0, 0, 0.6, 0.6, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0.6, 0, 0.6, 0.6, 0, 0, 0, 0, 1, 1, 0, 0, 0,
0, 0.6, 0, 0, 0, 0, 1, 0, 0.6, 0, 0.6, 0, 0.333333333, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0.333333333, 0, 0, 0, 0, 0, 0, 0, 0, 0.666666667,
0, 0, 0, 0.666666667, 0, 0, 0, 0, 0, 0, 0.6, 0, 0, 0, 0, 1, 0,
0.333333333, 0.6, 0, 0, 0, 0, 0, 0.166666667, 0, 0, 0, 0, 1,
0, 0.333333333, 0.666666667, 0, 0, 0, 0, 0, 0.5, 0, 0, 1, 0,
0, 0.733333333, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0, 0, 0,
0, 0.6, 0, 0, 0, 0.6, 0, 0, 0, 0, 0.6, 0.6, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0.6, 0, 0, 0, 0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0.6, 0, 0)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-824L))
Upvotes: 0
Views: 54
Reputation: 388862
I think you need to ungroup
before using make.unique
. Remember that your data is still grouped by name
and start
at the make.unique
step. summarise
drops only the last group from group_by
function.
library(dplyr)
df %>%
group_by(name, start, end) %>%
add_tally() %>%
summarise(total_0_5 = sum(percent_0_5), total_over_5 = sum(over_5_values),
total_5_19 = sum(percent_5_19), n = mean(n)) %>%
ungroup() %>%
mutate(UniqueID = make.unique(name)) %>%
rowwise() %>%
mutate(ratio_5_19 = total_5_19 / total_over_5,
ratio_0_5 = total_0_5 / total_over_5) %>%
select(UniqueID, everything()) %>%
filter(n > 4)
# UniqueID name start end total_0_5 total_over_5 total_5_19 n ratio_5_19 ratio_0_5
# <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
# 1 AB AB -4490 -3220 14.2 79.8 18.2 94 0.229 0.179
# 2 AG AG -15540 -7050 3.5 2.5 0.5 6 0.2 1.4
# 3 AI AI -3220 -2385 0.75 7.25 1 8 0.138 0.103
# 4 AK AK -4730 -4540 0 5 1 5 0.2 0
# 5 AK.1 AK -4730 -4235 0 9 2.67 9 0.296 0
# 6 AK.2 AK -4730 -4050 0 15 2 15 0.133 0
# 7 AK.5 AK -4490 -4235 1 18 2.89 19 0.160 0.0556
# 8 AK.6 AK -4490 -3750 1 8 1 9 0.125 0.125
# 9 AK.7 AK -4235 -4050 0 26 0 26 0 0
#10 AK.9 AK -4235 -3750 0 16 3.89 16 0.243 0
# … with 33 more rows
Upvotes: 2