-3

次のような要因に従っていくつかのデータを分割します。

 a <- factor(data$fact)
 b <- split(data,a)

ここで、いくつかの要因を一緒に追加したいと思います。

tot <- b$A+b$B

しかし、次のエラーが表示されます。

"sum" not meaningful for factors

どんな助けでも素晴らしいでしょう。

aaa val1 val2 ...
aaa
bbb
bbb
ccc
ccc

因子に分割すると、3 つになります。しかし、たとえば aaa と ccc を一緒に考えたいと思います。これは、他の列の値を合計する必要があることを意味します。

ありがとう

4

2 に答える 2

1

分割する前に新しい因子変数を作成します。

# Make up some data
df = data.frame(Cases = sample(LETTERS[1:5], 10, replace=TRUE),
                Set1 = 1:10, Set2 = 11:20)
# Duplicate your cases column
df$Cases_2 = df$Cases
# Create a new set of factor levels
levels(df$Cases_2) <- ifelse(levels(df$Cases_2) %in% c("A","B"), 
                             "AB", levels(df$Cases_2))
temp = split(df[-c(1, 4)], df$Cases_2)
temp
# $AB
#   Set1 Set2
# 3    3   13
# 5    5   15
# 6    6   16
# 8    8   18
# 
# $C
#   Set1 Set2
# 4    4   14
# 9    9   19
# 
# $D
#    Set1 Set2
# 2     2   12
# 7     7   17
# 10   10   20
# 
# $E
#   Set1 Set2
# 1    1   11

次に、を使用lapplyして計算しますcolSums。

lapply(temp, colSums)
# $AB
# Set1 Set2 
#   22   62 
# 
# $C
# Set1 Set2 
#   13   33 
# 
# $D
# Set1 Set2 
#   19   49 
# 
# $E
# Set1 Set2 
#    1   11
于 2012-07-10T12:38:46.760 に答える
0

おそらく、次を使用して結果のデータ フレームを結合する必要がありますrbind。

tot <- rbind(b$A, b$B)
于 2012-07-10T11:10:46.100 に答える