使用pivot或其他解决方案在R中输出我的数据集

我对R还是新手，但在帮助下取得了进步 这群人中的一个。我和我认为是个问题 这可以用pivot_解决，尽管我还没有成功。 提前感谢您的帮助

我的数据集如下：

    RaceNum Horse             DrawA row_c
     <int> <chr>              <dbl> <int>
 1   21127 A'Ali            -0.242      1
 2   20260 A'Ali             0.128      2
 3   17889 A'Ali            NA          3
 4   21712 A'Shamardi       -0.519      1
 5   20340 A'Shamardi        0.767      2
 6    5285 A Bit Of A Touch NA          1
 7    4825 A Bit Of A Touch -0.0256     2
 8    4207 A Bit Of A Touch  0.139      3
 9    3397 A Bit Of Ginger   0.704      1
10    3206 A Bit Of Ginger   0.152      2
# ... with 64,290 more rows

基本上，对于每匹马，我需要输出3的DrawA值 实例。 也许更广泛的支点不是实现这一目标的最佳方式？ 我试着使用group_by（Horse）输出我需要的内容，然后 使用Summary在4列宽的数据集中显示输出。

---

希望有人能帮忙

如果使用

row\u c

作为名称，您可以非常轻松地对数据使用

pivot\u wide

。下面是一个简单数据示例

library（tidyr）
df#A tibble:2 x 4
#>马匹抽签1抽签2抽签3
#>            
#>1 A 0.979 0.153 0.427
#>2 B 0.853 0.210 NA

如果使用

行c

作为名称，您可以非常轻松地对数据使用

透视。下面是一个简单数据示例

library（tidyr）
df#A tibble:2 x 4
#>马匹抽签1抽签2抽签3
#>            
#>1 A 0.979 0.153 0.427
#>2 B 0.853 0.210 NA
基本R解决方案：

df1 <- as.data.frame.matrix(xtabs(DrawA~Horse+row_c, df))
within(setNames(df1, paste0("DrawA_", names(df1))), {horse <- row.names(df1)})

df1baser解决方案：

df1 <- as.data.frame.matrix(xtabs(DrawA~Horse+row_c, df))
within(setNames(df1, paste0("DrawA_", names(df1))), {horse <- row.names(df1)})

df1能否通过
dput（）
提供样本数据？能否通过
dput（）
提供样本数据？非常感谢。这个解决方案对我有效！非常感谢。这个解决方案对我有效@赌徒不用担心。它按要求工作了吗？很酷。Thanks@Bookie别担心。它按要求工作了吗？很酷。谢谢