r - 在 R 中操作数据帧

Question

如果有人能帮助完成下面的任务，我将不胜感激。我搜索了 R 主题，但没有找到任何专门解决这个问题的内容。我也试过 which, table 但没有真正得到任何地方。

x_1 <- c("A1", "A1", "B10", "B10", "B10", "C100", "C100", "C100")
y_1 <- as.Date(c("2010-11-17", "2010-11-17", "2010-11-17", "2009-02-14",
                 "2004-10-20", "2008-03-21", "2010-09-30", "2004-06-22"))
A <- data.frame(x_1, y_1)

x_2 <- c("A1", "B10", "B10", "B10","B10", "C100", "C100", "C100")
y_2 <- as.Date(c("2013-07-23", "2012-01-01", "2011-08-29", "2011-10-20",
                 "2010-08-10", "2012-06-21", "2013-08-27", "2012-11-25"))
B <- data.frame(x_2, y_2)

A 和 B 是我正在使用的两个数据框。我需要使用 B 中给定的名称编号/顺序从 A 构建一个新数据框(即 x_2)。新数据框将包含 x_2 中的名称以及 y_1 中每个类别中的最早日期(例如，“B10” 中的最早日期A 中的 code> 类别是 2004-10-20, etc.) 这样我最终得到一个新的数据框 A2 如下:

x_3 <- c("A1", "B10", "B10", "B10", "B10", "C100", "C100", "C100")
y_3 <- as.Date(c("2010-11-17","2004-10-20", "2004-10-20", "2004-10-20",
                 "2004-10-20","2004-06-22", "2004-06-22", "2004-06-22" ) )
A2 <- data.frame(x_3, y_3 )

我的意图是从 B 中减去 A2 中的日期，以获得以天为单位的持续时间数字。以上是我真实数据的一个非常简化的版本。我正在处理的数据大约有 3000 行。

任何帮助将不胜感激，如果有任何需要澄清的地方，请告诉我。我在 MAC 中使用 R 的 2.15.2 版。

谢谢

Answer 1

这是创建 A2 的一种方法:

C <- A[order(A$x_1,A$y_1),]
A2 <- C[match(B$x_2,C$x_1),]

使用 order() 将确保最早的日期排在最前面。使用 match() 匹配变量的第一次出现，因此它只会选择最早的日期。