Question

您好，请解释一下我如何合并两个可用于生成饼图的表？

#read input data
dat = read.csv("/ramdisk/input.csv", header = TRUE, sep="\t")

# pick needed columns and count the occurences of each entry
df1 = table(dat[["C1"]])
df2 = table(dat[["C2"]])

# rename columns
names(df1) <- c("ID", "a", "b", "c", "d")
names(df2) <- c("ID", "e", "f", "g", "h")

# show data for testing purpose
df1  
# ID   a   b   c   d 
#241  18  17  28  29 
df2
# ID   e   f   g   h 
#230  44   8  37  14 
# looks fine so far, now the problem:

# what I want to do ist merging df and df2 
# so that df will contain the overall numbers of each entry
# df should print
# ID   a   b   c   d    e   f   g   h 
#471  18  17  28  29   44   8  37  14 
# need them to make a nice piechart in the end
#pie(df)

我认为可以通过某种方式完成合并，但是我没有找到正确的方法。我找到的最接近的解决方案是merge（df1，df2，all = TRUE），但这并不是我真正需要的。

Answer 1

一种方法是先stack，然后rbind并做aggregate

out <- aggregate(values ~ ., rbind(stack(df1), stack(df2)), sum)

获取命名为vector

with(out, setNames(values, ind))

或者另一种方法是连接表，然后使用tapply按sum进行分组

v1 <- c(df1, df2)
tapply(v1, names(v1), sum)

或与rowsum

rowsum(v1, group = names(v1))

Answer 2

另一种方法是使用rbindlist和data.table中的colSums获得总数。 rbindlist与fill=TRUE一起接受所有列，即使两个表中都不存在它们也是如此。

df1<-read.table(text="ID   a   b   c   d 
241  18  17  28  29 ",header=TRUE)
df2<-read.table(text="ID   e   f   g   h 
230  44   8  37  14" ,header=TRUE)

library(data.table)
setDT(df1)
setDT(df2)
res <- rbindlist(list(df1,df2), use.names=TRUE, fill=TRUE)
colSums(res, na.rm=TRUE)

 ID   a   b   c   d   e   f   g   h 
471  18  17  28  29  44   8  37  14

Answer 3

我编写了程序包 safejoin ，该程序包以直观的方式处理此类任务（希望如此）。您只需要在两个表之间有一个公共ID（我们将使用tibble::row_id_to_column），然后就可以与sum合并并处理列冲突。

使用@ pierre-lapointe的数据：

library(tibble)
# devtools::install_github("moodymudskipper/safejoin")
library(safejoin)

res <- safe_inner_join(rowid_to_column(df1),
                       rowid_to_column(df2),
                       by = "rowid",
                       conflict = sum)

res
#   rowid  ID  a  b  c  d  e f  g  h
# 1     1 471 18 17 28 29 44 8 37 14

对于给定的行（这里是第一个也是唯一的），您可以通过将其转换为带有unlist的向量并删除不相关的前两个元素来获得饼图：

pie(unlist(res[1,])[-(1:2)])

合并R中的表，如果两个都合并，则合并单元格

3 个答案: