6

私は現在、data.frameの操作方法を学んでおり、それらを並べ替える方法についてかなり混乱しています。

現在、次のようなdata.frameがあります。

  • 列1：ショップ名
  • 列2：製品
  • 3列目：このショップによるこの商品の購入数

または視覚的に次のようなもの：

+---+-----------+-------+----------+--+
|   | Shop.Name | Items | Product  |  |
+---+-----------+-------+----------+--+
| 1 | Shop1     |     2 | Product1 |  |
| 2 | Shop1     |     4 | Product2 |  |
| 3 | Shop2     |     3 | Product1 |  |
| 4 | Shop3     |     2 | Product1 |  |
| 5 | Shop3     |     1 | Product4 |  |
+---+-----------+-------+----------+--+

私が達成したいのは、次の「ショップ中心の」構造です。

  • 列1：ショップ名
  • 列2：product1で販売されたアイテム
  • 列3：product2で販売されたアイテム
  • 列4：product3で販売されたアイテム..。

特定のショップ/商品のラインがない場合（販売がないため）、0を作成したいと思います。

また

+---+-------+-------+-------+-------+-------+-----+--+--+
|   | Shop  | Prod1 | Prod2 | Prod3 | Prod4 | ... |  |  |
+---+-------+-------+-------+-------+-------+-----+--+--+
| 1 | Shop1 |     2 |     4 |     0 |     0 | ... |  |  |
| 2 | Shop2 |     3 |     0 |     0 |     0 | ... |  |  |
| 3 | Shop3 |     2 |     0 |     0 |     1 | ... |  |  |
+---+-------+-------+-------+-------+-------+-----+--+--+
4

3 に答える 3

12

これまでの回答はある程度機能しますが、質問への完全な回答ではありません。特に、特定の商品を販売する店舗が存在しない場合の問題には対応していません。あなたの入力例と希望する出力から、「Product3」を販売するショップはありませんでした。実際、「Product3」は source にも表示されませんdata.frame。さらに、ショップと商品の組み合わせごとに複数の行が存在する可能性がある状況に対応していません。

これは、これまでのデータと 2 つのソリューションの修正版です。「Shop1」と「Product1」の組み合わせ用に別の行を追加しました。factor実際にそのレベルを持つケースがない場合でも、変数が取ることができるレベルを含む変数に製品を変換したことに注意してください。

mydf <- data.frame(
  Shop.Name = c("Shop1", "Shop1", "Shop2", "Shop3", "Shop3", "Shop1"),
  Items = c(2, 4, 3, 2, 1, 2),
  Product = factor(
    c("Product1", "Product2", "Product1", "Product1", "Product4", "Product1"),
    levels = c("Product1", "Product2", "Product3", "Product4")))

  1. dcast「reshape2」より

    library(reshape2)
dcast(mydf, formula = Shop.Name ~ Product, value="Items", fill=0)
# Using Product as value column: use value.var to override.
# Aggregation function missing: defaulting to length
# Error in .fun(.value[i], ...) : 
#   2 arguments passed to 'length' which requires 1

    なに？いきなり効かない。代わりにこれを行います：

    dcast(mydf, formula = Shop.Name ~ Product, 
      fill = 0, value.var = "Items", 
      fun.aggregate = sum, drop = FALSE)
#   Shop.Name Product1 Product2 Product3 Product4
# 1     Shop1        4        4        0        0
# 2     Shop2        3        0        0        0
# 3     Shop3        2        0        0        1

  2. オールドスクールになりましょう。cast「リシェイプ」より

    library(reshape)
cast(mydf, formula = Shop.Name ~ Product, value="Items", fill=0)
# Aggregation requires fun.aggregate: length used as default
#   Shop.Name Product1 Product2 Product4
# 1     Shop1        2        1        0
# 2     Shop2        1        0        0
# 3     Shop3        1        0        1

    ええ。あなたが望んでいたものではありません...代わりにこれを試してください：

    cast(mydf, formula = Shop.Name ~ Product, 
     value = "Items", fill = 0, 
     add.missing = TRUE, fun.aggregate = sum)
#   Shop.Name Product1 Product2 Product3 Product4
# 1     Shop1        4        4        0        0
# 2     Shop2        3        0        0        0
# 3     Shop3        2        0        0        1

  3. 基本に戻りましょう。xtabsベースRから

    xtabs(Items ~ Shop.Name + Product, mydf)
#          Product
# Shop.Name Product1 Product2 Product3 Product4
#     Shop1        4        4        0        0
#     Shop2        3        0        0        0
#     Shop3        2        0        0        1

    または、data.frame(「Shop.Name」変数が の に変換されていることに注意してくださいrow.names) data.frame:

    as.data.frame.matrix(xtabs(Items ~ Shop.Name + Product, mydf))
#       Product1 Product2 Product3 Product4
# Shop1        4        4        0        0
# Shop2        3        0        0        0
# Shop3        2        0        0        1
于 2013-01-25T05:12:05.807 に答える
1

ライブラリdcastから使用します。reshape2

library(reshape2)

> df <- data.frame(Shop.Name=rep(c("Shop1","Shop2","Shop3"),each=3),
+                  Items=rpois(9,5),
+                  Product=c(rep(c("Prod1","Prod2","Prod3","Prod4"),2),"Prod5")
+ )
> df
  Shop.Name Items Product
1     Shop1     6   Prod1
2     Shop1     5   Prod2
3     Shop1     6   Prod3
4     Shop2     5   Prod4
5     Shop2     6   Prod1
6     Shop2     6   Prod2
7     Shop3     4   Prod3
8     Shop3     7   Prod4
9     Shop3     5   Prod5
> dcast(df,Shop.Name ~ Product,value.var="Items",fill=0)
  Shop.Name Prod1 Prod2 Prod3 Prod4 Prod5
1     Shop1     6     5     6     0     0
2     Shop2     6     6     0     5     0
3     Shop3     0     0     4     7     5
于 2013-01-24T18:35:08.757 に答える
0

何らかの理由で元の形状変更パッケージを使用する場合：

Shop.Name <- c("Shop1", "Shop1", "Shop2", "Shop3", "Shop3")
Items <- c(2,4,3,2,1)
Product <- c("Product1", "Product2", "Product1", "Product1", "Product4")
(df <- data.frame(Shop.Name, Items, Product))

cast(df, formula = Shop.Name ~ Product, value="Items", fill=0)
于 2013-01-24T23:19:21.470 に答える