11

これは簡単な答えになると思いますが、うまくいきません！irisデータセットを使用した例を次に示します。

a <- table(iris[,2])
b <- table(iris[,3])

これら 2 つのテーブルを一緒に追加するにはどうすればよいですか? たとえば、新しい出力テーブルでは、変数 3 の値は 27 (26+1)、変数 3.3 の値は 8 (6+2) になります。

どんな助けでも大歓迎です。

4

5 に答える 5

9

aこれは、 と の両方に存在する変数を使用する場合に機能しますb。

n <- intersect(names(a), names(b))
a[n] + b[n]

#  3 3.3 3.5 3.6 3.7 3.8 3.9   4 4.1 4.2 4.4 
# 27   8   8   5   4   7   5   6   4   5   5

すべての変数を使用する場合:

n <- intersect(names(a), names(b)) 

res <- c(a[!(names(a) %in% n)], b[!(names(b) %in% n)], a[n] + b[n])

res[order(names(res))] # sort the results
于 2012-10-15T14:06:52.947 に答える
3 
temp<-merge(a,b,by='Var1')
temp$sum<-temp$Freq.x + temp$Freq.y

   Var1 Freq.x Freq.y sum
1     3     26      1  27
2   3.3      6      2   8
3   3.5      6      2   8
4   3.6      4      1   5
5   3.7      3      1   4
6   3.8      6      1   7
7   3.9      2      3   5
8     4      1      5   6
9   4.1      1      3   4
10  4.2      1      4   5
11  4.4      1      4   5
于 2012-10-15T14:07:19.837 に答える
3

ここに別のものがあります：

transform(merge(a,b, by="Var1"), sum=Freq.x + Freq.y)
   Var1 Freq.x Freq.y sum
1     3     26      1  27
2   3.3      6      2   8
3   3.5      6      2   8
4   3.6      4      1   5
5   3.7      3      1   4
6   3.8      6      1   7
7   3.9      2      3   5
8     4      1      5   6
9   4.1      1      3   4
10  4.2      1      4   5
11  4.4      1      4   5
于 2012-10-15T14:09:15.947 に答える
2

merge()これは、ソリューションのわずかに拷問されたワンライナーバージョンです。

do.call(function(Var1, Freq.x, Freq.y) data.frame(Var1=Var1, Freq=rowSums(cbind(Freq.x, Freq.y))), merge(a, b, by="Var1"))

すべての変数を使用する場合は、次のようになります。

do.call(function(Var1, Freq.x, Freq.y) data.frame(Var1=Var1, Freq=rowSums(cbind(Freq.x, Freq.y), na.rm=TRUE)), merge(a, b, by="Var1", all=TRUE))

ワンライナーとは異なり、transform().x と .y を蓄積しないため、繰り返し使用できます。

于 2015-02-19T00:20:38.090 に答える
1

data.table パッケージのマージ機能は、あなたが望むものかもしれません: https://rpubs.com/ronasta/join_data_tables

于 2019-07-24T19:21:29.720 に答える