如何基于現有列中與另一列的分類值匹配的數字創建新列

Question 1

我有一個帶有游戲、類別、是否單人游戲以及評級的數據框。我添加了一個新的專欄，其中包含每個單人/雙人分組中每個類別的最高評分方面的最佳游戲。

category <- c("Party","Adventure","Puzzle","Party","Adventure","Puzzle","Party","Adventure","Puzzle","Party","Adventure","Puzzle","Party","Adventure","Puzzle","Party","Adventure","Puzzle")
solo <- c("solo","solo","solo","double","double","double","solo","solo","solo","double","double","double","solo","solo","solo","double","double","double")
game <- c("Game1","Game2","Game3","Game1","Game2","Game3","Game1","Game2","Game3","Game1","Game2","Game3","Game1","Game2","Game3","Game1","Game2","Game3")
rating <- c(8,7,6,5,3,3,2,1,10,3,4,5,6,3,2,1,3,1) 
df <- as.data.frame(rating)
df$game <- game
df$solo <- solo
df$category <- category

df <- df  %>% 
  group_by(category, solo) %>% 
  mutate(best_game = max(rating, na.rm = TRUE)) %>%
  ungroup

我的問題是，我如何添加一個列，使游戲對應于best_game中的最高評分，而不是每個單人組/雙人組和類別組的最高評分(best_game？

示例輸出。預期產出是我希望發生的事情

rating    game    solo   category  best_game  **(expected_output)**
    5       Game1   double  Party   5            Game1
    3       Game1   double  Party   5            Game1

Question 2

只需包含一個station，將game變量子集為rating == max(rating)

df <- df  %>% 
        group_by(category, solo) %>% 
        mutate(best_game = game[rating == max(rating, na.rm = TRUE)]) %>%
        ungroup

df

# A tibble: 18 × 5
   rating game  solo   category  best_game
    <dbl> <chr> <chr>  <chr>     <chr>    
 1      8 Game1 solo   Party     Game1    
 2      7 Game2 solo   Adventure Game2    
 3      6 Game3 solo   Puzzle    Game3    
 4      5 Game1 double Party     Game1    
 5      3 Game2 double Adventure Game2    
 6      3 Game3 double Puzzle    Game3    
 7      2 Game1 solo   Party     Game1    
 8      1 Game2 solo   Adventure Game2    
 9     10 Game3 solo   Puzzle    Game3    
10      3 Game1 double Party     Game1    
11      4 Game2 double Adventure Game2    
12      5 Game3 double Puzzle    Game3    
13      6 Game1 solo   Party     Game1    
14      3 Game2 solo   Adventure Game2    
15      2 Game3 solo   Puzzle    Game3    
16      1 Game1 double Party     Game1    
17      3 Game2 double Adventure Game2    
18      1 Game3 double Puzzle    Game3

Answer 1

只需包含一個station，將game變量子集為rating == max(rating)

df <- df  %>% 
        group_by(category, solo) %>% 
        mutate(best_game = game[rating == max(rating, na.rm = TRUE)]) %>%
        ungroup

df

# A tibble: 18 × 5
   rating game  solo   category  best_game
    <dbl> <chr> <chr>  <chr>     <chr>    
 1      8 Game1 solo   Party     Game1    
 2      7 Game2 solo   Adventure Game2    
 3      6 Game3 solo   Puzzle    Game3    
 4      5 Game1 double Party     Game1    
 5      3 Game2 double Adventure Game2    
 6      3 Game3 double Puzzle    Game3    
 7      2 Game1 solo   Party     Game1    
 8      1 Game2 solo   Adventure Game2    
 9     10 Game3 solo   Puzzle    Game3    
10      3 Game1 double Party     Game1    
11      4 Game2 double Adventure Game2    
12      5 Game3 double Puzzle    Game3    
13      6 Game1 solo   Party     Game1    
14      3 Game2 solo   Adventure Game2    
15      2 Game3 solo   Puzzle    Game3    
16      1 Game1 double Party     Game1    
17      3 Game2 double Adventure Game2    
18      1 Game3 double Puzzle    Game3

如何基于現有列中與另一列的分類值匹配的數字創建新列

熱門問答

React路由器鏈接標記顏色在生成環境中未更改

Unity player控制器腳本不工作

如何更改bootstrap 5中的各個邊框顏色？

了解何時有人在Stack Exchange上投票支持您的問題

如何使SQLite在SQLAlchemy中使用唯一的自動遞增id？

C程序與腳本或cron之間的通信

使用AJAX進行表單提交時，PHP如何處理并發請求

input輸入框默認的placeholder文字內容怎么修改顏色

如何在MQL4中編寫代碼以自動從MT4平臺獲取實時交易數據并導出到Excel

angular究竟好在哪，為什么要用

mysql load data infile

karma-coverage覆蓋率總數為0問題求助