Функция заказа делает то, что я не понимаю

Question

Я пытаюсь упорядочить фрейм данных в порядке убывания, используя функцию order, но когда я это делаю, удаляются все, кроме нескольких переменных. Почему функция не работает и почему она удаляет большую часть фрейма данных. Спасибо за любую помощь!

library(Lahman)

Batting_61 <- Batting[Batting$yearID >= 1960 & Batting$yearID <=1969,]


HR_61 <- aggregate(Batting_61$HR~Batting_61$playerID, data = x, FUN = sum)
colnames(HR_61) <- c("PlayerID","HR")
HR_62 <- HR_61[order(-HR),]

Answer 1

Разве это не работает?

Batting_61 <- Batting[Batting$yearID >= 1960 & Batting$yearID <= 1969,]
HR_61 <- aggregate(Batting_61$HR~Batting_61$playerID, data = x, FUN = sum)
colnames(HR_61) <- c("PlayerID","HR")
HR_62 <- copy(HR_61)    

HR_62 <- HR_62[order(HR_62$HR, decreasing = TRUE),]

      PlayerID  HR
857  killeha01 393
1    aaronha01 375
1045  mayswi01 350
1373 robinfr02 316
1058 mccovwi01 300
752  howarfr01 288

Answer 2

Я думаю, что вы, возможно, пытаетесь сделать это ниже, но я сделал это, используя tidyverse .

library(dplyr)
library(Lahman)

Batting %>% 
  filter(between(yearID, 1960, 1969)) %>% 
  group_by(playerID) %>% 
  summarise(HR = sum(HR)) %>% 
  arrange(desc(HR))

#> # A tibble: 1,786 x 2
#>    playerID     HR
#>    <chr>     <int>
#>  1 killeha01   393
#>  2 aaronha01   375
#>  3 mayswi01    350
#>  4 robinfr02   316
#>  5 mccovwi01   300
#>  6 howarfr01   288
#>  7 cashno01    278
#>  8 bankser01   269
#>  9 mantlmi01   256
#> 10 cepedor01   254
#> # … with 1,776 more rows