16

質問に適切なタイトルを付ける方法さえわかりません！

データフレーム d があるとします:

現在のデータフレーム:

d <- data.frame(sample = LETTERS[1:2], cat = letters[11:20], count = c(1:10))

   sample cat count
1       A   k     1
2       B   l     2
3       A   m     3
4       B   n     4
5       A   o     5
6       B   p     6
7       A   q     7
8       B   r     8
9       A   s     9
10      B   t    10

そして、各猫の値が独自の列になり、サンプルが列のまま（または行名になる）、カウントが新しい猫列の値になるように再配置しようとしています。 sample には猫のカウントがありません。そのようです：

望ましいデータフレーム レイアウト:

   sample   k   l   m   n   o   p   q   r   s   t
1       A   1   0   3   0   5   0   7   0   9   0
2       B   0   2   0   4   0   6   0   8   0  10

これについて最善の方法は何ですか？

これは私が得た限りです：

for (i in unique(d$sample)) {
    s <- d[d$sample==i,]
    st <- as.data.frame(t(s[,3]))
    colnames(st) <- s$cat
    rownames(st) <- i
}

つまり、元のデータ フレームのサンプルをループし、サンプル サブセットごとに転置します。したがって、この場合、私は得る

   k m o q s
 A 1 3 5 7 9

と

   l n p r  t
 B 2 4 6 8 10

そして、これは私が立ち往生するところです。merge、bind、 、...でたくさんのことを試しましたがapply、正しいことを思いつかないようです。さらに、上記のループが必要なステップであるかどうか疑問に思わずにはいられunstackません。

言うまでもなく、私は R を初めて使用します...誰かが私を助けてくれれば、それは大歓迎です!

PS理由データフレームを再配置しようとしているのは、値のプロットを簡単にするためです(つまり、実際のdfを表形式のプロットで表示したい)。

ありがとうございました！

4

3 に答える 3

12

reshapeベースRから使用：

nn<-reshape(d,timevar="cat",idvar="sample",direction="wide")
names(nn)[-1]<-as.character(d$cat)
nn[is.na(nn)]<-0
> nn
  sample k l m n o p q r s  t
1      A 1 0 3 0 5 0 7 0 9  0
2      B 0 2 0 4 0 6 0 8 0 10
于 2013-10-13T14:16:45.650 に答える
0

tidyverseこれも興味深いかもしれない解決策です：

library(tidyr)

d %>%
  pivot_wider(names_from = cat, 
              values_from = count, 
              values_fill = 0)

# A tibble: 2 x 11
  sample     k     l     m     n     o     p     q     r     s     t
  <chr>  <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
1 A          1     0     3     0     5     0     7     0     9     0
2 B          0     2     0     4     0     6     0     8     0    10
于 2021-08-24T18:50:21.690 に答える