объединение кадра данных по столбцу и строкам

Question

У меня есть два набора данных, который разделяет подобные аспекты, например, набор данные

name year region 
Jane 1980 1 
Jane 1981 2 
Mike 1980 1 
Mike 1985 4 
Bob  1980 NA 
Bob  1981 1 

и набор данных B

year 1 2 3 4 5 
1980 12 44 76 108 140 
1981 55 77 99 121 143 
1982 56 76 96 116 136 
1983 56 43 30 17 4 

Я хочу, чтобы создать новый столбец в первый набор данных под названием «income», который включает номера во втором наборе данных в соответствии с годом и столбцами 1-5. Например, поскольку Боб в 1980 году был в регионе 5, соответствующий income был бы равен 140. Если нет совпадения, я хочу, чтобы income был NA.

До сих пор я пытался

which(A$year==B$year & A$region==rownames(B)[2:6]) 

, но я не думаю, что это работает.

Я также хочу добавить, что не существует совпадений для всех точек данных, для переменной области A имеются значения NA для переменной области A, а количество лет в наборе данных B не охватывает все годы в данных set A.

Answer 1

Вот альтернатива, поскольку Joran заставляет меня работать ....

Создать matrix ваших доходов.

b <- as.matrix(B[-1]) 
rownames(b) <- B[,1] 

Использование match, чтобы соответствовать «год» с первого data.frame с rownames этой новой матрицы. Мы можем создать матрицу с этим как наш первый столбец (индекс строки) и «область» из вашего исходного data.frame в качестве второго столбца (индекс столбца).

cbind(match(A$year, rownames(b)), A$region) 
#  [,1] [,2] 
# [1,] 1 1 
# [2,] 2 2 
# [3,] 1 1 
# [4,] 2 4 
# [5,] 1 5 
# [6,] 2 1 

Мы можем использовать, чтобы извлечь соответствующие данные из матрицы «Ъ», и добавить его в оригинальной data.frame.

A$income <- b[cbind(match(A$year, rownames(b)), A$region)] 
A 
# name year region income 
# 1 Jane 1980  1  12 
# 2 Jane 1981  2  77 
# 3 Mike 1980  1  12 
# 4 Mike 1981  4 121 
# 5 Bob 1980  5 140 
# 6 Bob 1981  1  55 

---

Это предполагает, что мы начинаем с:

A <- read.table(text = "name year region 
Jane 1980 1 
Jane 1981 2 
Mike 1980 1 
Mike 1981 4 
Bob  1980 5 
Bob  1981 1",header = TRUE,sep = "") 

B <- read.table(text = "year 1 2 3 4 5 
1980 12 44 76 108 140 
1981 55 77 99 121 143 
1982 56 76 96 116 136 
1983 56 43 30 17 4",header = TRUE,sep = "",check.names = FALSE) 

Answer 2

Вам просто нужно преобразовать свой второй набор данных из широкого формата в длинный. Это можно сделать довольно легко, используя reshape2 и plyr:

library(reshape2) 
library(plyr) 

b <- read.table(text = "year 1 2 3 4 5 
1980 12 44 76 108 140 
1981 55 77 99 121 143 
1982 56 76 96 116 136 
1983 56 43 30 17 4",header = TRUE,sep = "",check.names = FALSE) 

a <- read.table(text = "name year region 
Jane 1980 1 
Jane 1981 2 
Mike 1980 1 
Mike 1981 4 
Bob  1980 5 
Bob  1981 1",header = TRUE,sep = "") 

b <- melt(b,id.vars = "year") 
b <- rename(b,c("variable" = "region")) 

merge(a,b,all.x = TRUE) 

В зависимости от типа вы хотите присоединиться, вы можете использовать либо all.y = TRUE или all = TRUE в merge.

Answer 3

С Joran и Ананда принимают все хорошие варианты, вот нелепые один:

a$income <- 
    mapply(function(ro,co) b[ro,co], match(a$year,b$year), as.character(a$region)) 

# name year region income 
#1 Jane 1980  1  12 
#2 Jane 1981  2  77 
#3 Mike 1980  1  12 
#4 Mike 1981  4 121 
#5 Bob 1980  5 140 
#6 Bob 1981  1  55 

(При этом используется данные из ответа Джорана.)

Answer 4

Это моя третья попытка предоставить sqldf решения проблем преобразования данных за последние пару недель. Еще нет любви. Мы посмотрим, что думают люди на этот раз ...

Используя данные из ответа Joran в:

require(sqldf) 

sqldf('select 
      a.name 
      ,a.year 
      ,a.region 
      ,case 
      when region = 1 then b.X1 
      when region = 2 then b.X2 
      when region = 3 then b.X3 
      when region = 4 then b.X4 
      when region = 5 then b.X5 
      end income 
     from a 
      join b 
      on a.year= b.year') 

Здесь я «плавление» данные с помощью стандартного оператора SQL случай.

sqldf требует, чтобы я префиксные столбцы области в b с помощью X, поскольку механизм базы данных, работающий под пакетом, заставляет нецелые имена полей.