以特定方式转换为宽格式

Question

在每个区域，测量各种Rockband的性能。我们需要重新塑造，以便方便地看到前3个品牌及其每个区域的得分。给定输入文件将类似于

Answer 1

我们可以尝试使用data.table。转换＆＃39; data.frame＆＃39;到＆＃39; data.table＆＃39; （setDT(df1)），按＆＃39;区＆＃39;分组，我们order＆＃39; PopularityScore＆＃39;前三行（head(.SD,3)）的子集，我们创建一个按＆＃39; Area＆＃39;分组的序列列（＆＃39; ind＆＃39;），然后使用{{1}重新整形为宽格式}。

dcast

数据

library(data.table)#v1.9.6+
 DT <- setDT(df1)[order(-PopularityScore), head(.SD,3) ,.(Area)][, ind:= 1:.N, Area]
dcast(DT, Area~ind, value.var=c('RockBand', 'PopularityScore'))
#           Area  RockBand_1 RockBand_2 RockBand_3 PopularityScore_1
#1: floridaChrist       Rocus  Metajones         U3             87012
#2:         sesam FlowerModes   Scouting         U3             51326
#   PopularityScore_2 PopularityScore_3
#1:             43136             17969
#2:             36622             30839