Hi Edward,
I'm not really sure that this is what you want as I can't figure out
what the "earn" factor is, but:
epdat[order(epdat$Var2,epdat$Freq,decreasing=TRUE),]
Jim
On Sat, Apr 23, 2016 at 4:08 AM, Patzelt, Edward <patzelt at
g.harvard.edu> wrote:> Hi R-Help,
>
> data at bottom
>
> I've been struggling with a problem where I need to order based on 1)
the
> Frequency "Freq" and 2) keeping each group of 3 of the same type
together
> "Var2" but I want across all groups it to go "high to
low" based on the
> earn factor.
>
> Thank you!
>
> structure(list(Var1 = structure(c(1L, 3L, 2L, 1L, 2L, 3L, 1L,
> 3L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 2L,
> 3L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L, 2L, 3L, 1L, 2L,
> 1L, 3L, 2L, 1L, 3L, 2L, 1L, 2L, 3L, 1L, 3L, 2L, 1L, 3L, 2L, 1L,
> 2L, 3L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 3L, 2L, 3L, 1L, 2L, 1L, 2L,
> 3L, 3L, 1L, 2L, 1L, 3L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L, 2L,
> 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 3L, 1L, 2L, 1L, 3L, 2L, 1L,
> 3L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 3L,
> 2L, 3L, 1L, 2L, 1L, 2L, 3L, 1L, 2L, 3L, 3L, 2L, 1L, 3L, 1L, 2L,
> 3L, 1L, 2L, 1L, 3L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L, 2L, 3L,
> 1L, 2L, 1L, 3L, 2L, 1L, 2L, 3L, 1L, 3L, 2L, 3L, 1L, 2L, 3L, 1L,
> 2L, 3L, 1L, 2L, 1L, 3L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 3L,
> 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L, 2L, 3L, 1L, 2L, 3L,
> 1L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 1L,
> 2L, 3L, 1L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 2L, 3L,
> 1L, 2L, 3L, 1L, 2L, 3L, 1L, 3L, 2L, 1L, 2L, 3L, 1L, 3L, 2L, 1L,
> 2L, 3L, 1L, 3L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 3L, 2L, 3L, 1L,
> 2L, 1L, 2L, 3L), .Label = c("bank", "missed",
"steal"), class = "factor"),
> Var2 = structure(c(89L, 89L, 89L, 88L, 88L, 88L, 87L, 87L,
> 87L, 86L, 86L, 86L, 85L, 85L, 85L, 84L, 84L, 84L, 83L, 83L,
> 83L, 82L, 82L, 82L, 81L, 81L, 81L, 80L, 80L, 80L, 79L, 79L,
> 79L, 78L, 78L, 78L, 77L, 77L, 77L, 76L, 76L, 76L, 75L, 75L,
> 75L, 74L, 74L, 74L, 73L, 73L, 73L, 72L, 72L, 72L, 71L, 71L,
> 71L, 70L, 70L, 70L, 69L, 69L, 69L, 68L, 68L, 68L, 67L, 67L,
> 67L, 66L, 66L, 66L, 65L, 65L, 65L, 64L, 64L, 64L, 63L, 63L,
> 63L, 62L, 62L, 62L, 61L, 61L, 61L, 60L, 60L, 60L, 59L, 59L,
> 59L, 58L, 58L, 58L, 57L, 57L, 57L, 56L, 56L, 56L, 55L, 55L,
> 55L, 54L, 54L, 54L, 53L, 53L, 53L, 52L, 52L, 52L, 51L, 51L,
> 51L, 50L, 50L, 50L, 49L, 49L, 49L, 48L, 48L, 48L, 47L, 47L,
> 47L, 46L, 46L, 46L, 45L, 45L, 45L, 44L, 44L, 44L, 43L, 43L,
> 43L, 42L, 42L, 42L, 41L, 41L, 41L, 40L, 40L, 40L, 39L, 39L,
> 39L, 38L, 38L, 38L, 37L, 37L, 37L, 36L, 36L, 36L, 35L, 35L,
> 35L, 34L, 34L, 34L, 33L, 33L, 33L, 32L, 32L, 32L, 31L, 31L,
> 31L, 30L, 30L, 30L, 29L, 29L, 29L, 28L, 28L, 28L, 27L, 27L,
> 27L, 26L, 26L, 26L, 25L, 25L, 25L, 24L, 24L, 24L, 23L, 23L,
> 23L, 22L, 22L, 22L, 21L, 21L, 21L, 20L, 20L, 20L, 19L, 19L,
> 19L, 18L, 18L, 18L, 17L, 17L, 17L, 16L, 16L, 16L, 15L, 15L,
> 15L, 14L, 14L, 14L, 13L, 13L, 13L, 12L, 12L, 12L, 11L, 11L,
> 11L, 10L, 10L, 10L, 9L, 9L, 9L, 8L, 8L, 8L, 7L, 7L, 7L, 6L,
> 6L, 6L, 5L, 5L, 5L, 4L, 4L, 4L, 3L, 3L, 3L, 2L, 2L, 2L, 1L,
> 1L, 1L), .Label = c("PROCS001", "PROCS002",
"PROCS003", "PROCS004",
> "PROCS006", "PROCS007", "PROCS008",
"PROCS009", "PROCS010",
> "PROCS011", "PROCS012", "PROCS013",
"PROCS014", "PROCS016",
> "PROCS017", "PROCS019", "PROCS020",
"PROC009", "PROC010",
> "PROC012", "PROC013", "PROC014",
"PROC015", "PROC016", "PROC017",
> "PROC018", "PROC019", "PROC020",
"PROC021", "PROC024", "PROC025",
> "PROC026", "PROC028", "PROC030",
"PROC032", "PROA001", "PROA002",
> "PROA003", "PROA006", "PROA007",
"PROA008", "PROA009", "PROA010",
> "PROA011", "PROA012", "PROA013",
"PROA014", "PROA015", "PROA016",
> "PROA018", "PROA019", "PROA020",
"PROA021", "PROA022", "PRO013",
> "PRO016", "PRO017", "PRO018",
"PRO019", "PRO020", "PRO021",
> "PRO022", "PRO024", "PRO027",
"PRO028", "PRO029", "PRO030",
> "PRO032", "PRO033", "PRO034",
"PRO035", "PRO037", "PRO038",
> "PRO039", "PRO040", "PRO041",
"PRO042", "PRO044", "PRO045",
> "PRO047", "PRO048", "PRO049",
"PRO050", "PRO051", "PRO052",
> "PRO053", "PRO056", "PRO057",
"PRO058"), class = "factor"),
> Freq = c(71L, 9L, 0L, 80L, 0L, 0L, 63L, 17L, 0L, 80L, 0L,
> 0L, 53L, 27L, 0L, 74L, 6L, 0L, 40L, 40L, 0L, 80L, 0L, 0L,
> 66L, 14L, 0L, 80L, 0L, 0L, 80L, 0L, 0L, 60L, 20L, 0L, 68L,
> 12L, 0L, 61L, 18L, 1L, 56L, 24L, 0L, 80L, 0L, 0L, 40L, 40L,
> 0L, 46L, 34L, 0L, 80L, 0L, 0L, 57L, 23L, 0L, 77L, 2L, 1L,
> 78L, 2L, 0L, 56L, 24L, 0L, 80L, 0L, 0L, 79L, 1L, 0L, 73L,
> 7L, 0L, 73L, 7L, 0L, 80L, 0L, 0L, 79L, 1L, 0L, 52L, 28L,
> 0L, 53L, 27L, 0L, 53L, 26L, 1L, 55L, 25L, 0L, 70L, 9L, 1L,
> 66L, 14L, 0L, 50L, 30L, 0L, 46L, 34L, 0L, 80L, 0L, 0L, 71L,
> 9L, 0L, 62L, 18L, 0L, 73L, 7L, 0L, 80L, 0L, 0L, 80L, 0L,
> 0L, 79L, 1L, 0L, 77L, 3L, 0L, 59L, 21L, 0L, 41L, 39L, 0L,
> 74L, 6L, 0L, 80L, 0L, 0L, 59L, 21L, 0L, 74L, 6L, 0L, 78L,
> 2L, 0L, 80L, 0L, 0L, 74L, 6L, 0L, 80L, 0L, 0L, 80L, 0L, 0L,
> 80L, 0L, 0L, 79L, 1L, 0L, 66L, 14L, 0L, 80L, 0L, 0L, 80L,
> 0L, 0L, 80L, 0L, 0L, 80L, 0L, 0L, 80L, 0L, 0L, 72L, 8L, 0L,
> 80L, 0L, 0L, 69L, 11L, 0L, 80L, 0L, 0L, 80L, 0L, 0L, 79L,
> 1L, 0L, 80L, 0L, 0L, 64L, 16L, 0L, 75L, 0L, 0L, 67L, 8L,
> 0L, 68L, 7L, 0L, 73L, 2L, 0L, 75L, 0L, 0L, 75L, 0L, 0L, 75L,
> 0L, 0L, 44L, 30L, 1L, 75L, 0L, 0L, 42L, 33L, 0L, 75L, 0L,
> 0L, 42L, 33L, 0L, 45L, 30L, 0L, 67L, 8L, 0L, 51L, 24L, 0L,
> 58L, 17L, 0L, 75L, 0L, 0L)), .Names = c("Var1",
"Var2", "Freq"
> ), row.names = c(265L, 267L, 266L, 262L, 263L, 264L, 259L, 261L,
> 260L, 258L, 256L, 257L, 255L, 253L, 254L, 250L, 252L, 251L, 247L,
> 249L, 248L, 244L, 245L, 246L, 243L, 241L, 242L, 240L, 238L, 239L,
> 235L, 236L, 237L, 234L, 232L, 233L, 231L, 229L, 230L, 226L, 228L,
> 227L, 223L, 225L, 224L, 220L, 221L, 222L, 217L, 219L, 218L, 214L,
> 216L, 215L, 211L, 212L, 213L, 210L, 208L, 209L, 207L, 205L, 206L,
> 202L, 204L, 203L, 201L, 199L, 200L, 196L, 197L, 198L, 195L, 193L,
> 194L, 190L, 192L, 191L, 189L, 187L, 188L, 184L, 185L, 186L, 183L,
> 181L, 182L, 178L, 180L, 179L, 175L, 177L, 176L, 172L, 174L, 173L,
> 171L, 169L, 170L, 166L, 168L, 167L, 163L, 165L, 164L, 162L, 160L,
> 161L, 159L, 157L, 158L, 156L, 154L, 155L, 153L, 151L, 152L, 148L,
> 150L, 149L, 147L, 145L, 146L, 142L, 143L, 144L, 139L, 140L, 141L,
> 138L, 137L, 136L, 135L, 133L, 134L, 132L, 130L, 131L, 127L, 129L,
> 128L, 126L, 124L, 125L, 121L, 122L, 123L, 120L, 118L, 119L, 117L,
> 115L, 116L, 112L, 114L, 113L, 109L, 110L, 111L, 106L, 108L, 107L,
> 105L, 103L, 104L, 102L, 100L, 101L, 99L, 97L, 98L, 94L, 96L,
> 95L, 93L, 91L, 92L, 90L, 88L, 89L, 85L, 86L, 87L, 84L, 82L, 83L,
> 81L, 79L, 80L, 76L, 77L, 78L, 75L, 73L, 74L, 72L, 70L, 71L, 69L,
> 67L, 68L, 66L, 64L, 65L, 61L, 62L, 63L, 60L, 58L, 59L, 55L, 56L,
> 57L, 54L, 52L, 53L, 51L, 49L, 50L, 46L, 48L, 47L, 43L, 45L, 44L,
> 40L, 42L, 41L, 37L, 38L, 39L, 34L, 35L, 36L, 31L, 32L, 33L, 28L,
> 30L, 29L, 25L, 26L, 27L, 22L, 24L, 23L, 19L, 20L, 21L, 16L, 18L,
> 17L, 15L, 13L, 14L, 12L, 10L, 11L, 7L, 9L, 8L, 6L, 4L, 5L, 1L,
> 2L, 3L), class = "data.frame")
>
>
>
> --
> Edward H Patzelt | Clinical Science PhD Student
> Psychology | Harvard University
> Systems Neuroscience of Psychopathology Laboratory
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.