이름 목록을 사용하여 수식을 기반으로 새 열 만들기

Question

숫자가 아닌 수식을 기반으로 새 열을 만드는 방법에 대한 답을 많이 찾을 수있었습니다.

변수가 속하는 범주를 나타내는 새로운 열을 작성해야하는 녹은 데이터 프레임이 있습니다. 내가 많이 있기 때문에 새 열을 만들려면 다음을 사용하고 싶습니다 -

내가 작업 환경에 저장된 각각의 범주에 오는 변수 이름의 목록이

Year Type  variable  value 
1 2016 T Agrostis.canina   6 
2 2016 R Agrostis.canina   2 
3 2016 Q Agrostis.canina   0 
4 2016 T Carex.nigra    0 
5 2016 R Carex.nigra    9 
6 2016 Q Carex.nigra    3 
7 2015 T Agrostis.canina   0 
8 2015 R Agrostis.canina   2 
9 2015 Q Agrostis.canina   0 
10 2015 T Carex.nigra    6 
11 2015 R Carex.nigra    0 
12 2015 Q Carex.nigra    5 

: 이것은 내 현재 dataframe의 한 부분입니다 변수 이름! 이상적으로 dataframe은 다음과 같이 보일 것이다 :

Year Type  variable  value veg.type 
1 2016 T Agrostis.canina   6 Graminoid 
2 2016 R Agrostis.canina   2 Graminoid 
3 2016 Q Agrostis.canina   0 Graminoid 
4 2016 T Carex.nigra    0 Dwarf.shrub 
5 2016 R Carex.nigra    9 Dwarf.shrub 
6 2016 Q Carex.nigra    3 Dwarf.shrub 
7 2015 T Agrostis.canina   0 Graminoid 
8 2015 R Agrostis.canina   2 Graminoid 
9 2015 Q Agrostis.canina   0 Graminoid 
10 2015 T Carex.nigra    6 Dwarf.shrub 
11 2015 R Carex.nigra    0 Dwarf.shrub 
12 2015 Q Carex.nigra    5 Dwarf.shrub 

나는 내에서 ifelse 사용하여 시도,하지만 난 아직 아무것도 작동하지 않았다 나는 그것의 핵심 부분을 누락 생각합니다.

미리 감사드립니다.

편집 : 각 veg.type은 기본적으로 다양한 변수 즉 하위 집합입니다. 등

Dwarf.shrub <- c("Calluna.vulgaris", "Empetrum.nigrum", "Erica.cinerea"...) Graminoid <- c("Agrostis.canina", "Deschampsia.flexuosa", "Holcus.lanatus"...) 는

이것은 내가 같은 veg.type에 나올 변수를 많이 할 것을 의미한다. 이것으로 조금 더 명확 해지기를 바랍니다.

Answer 1

조회로 사용될 두 번째 데이터 프레임을 만들고 기본 데이터 프레임에 left_join()을 만듭니다. stack()은 목록을 스택 데이터 프레임으로 직접 변환합니다.

df2 <- stack(list(Dwarf.Shrub=c("Carex.nigra", "Empetrum.nigrum"), Graminoid=c("Agrostis.canina", "Deschampsia.flexuosa"))) 

#    values   ind 
#1   Carex.nigra Dwarf.Shrub 
#2  Empetrum.nigrum Dwarf.Shrub 
#3  Agrostis.canina Graminoid 
#4 Deschampsia.flexuosa Graminoid 

이제 두 데이터 프레임에서 키의 변수 이름을 제공하는 dplyr과 결합하십시오.

library(dplyr) 
left_join(df, df2, by=c("variable" = "values")) 

# Year Type  variable value veg.type 
#1 2016 T Agrostis.canina  6 Graminoid 
#2 2016 R Agrostis.canina  2 Graminoid 
#3 2016 Q Agrostis.canina  0 Graminoid 
#4 2016 T  Carex.nigra  0 Dwarf Shrub 
# etc 

Answer 2

library(data.table) 
output.df <- merge(df1, df2, by="variable", all.x=T) 

all.x 매개 변수는 모든 행을 df1에 보관한다는 것을 의미합니다. 당신은 원한다면 모두 할 수도 있습니다. 또한 여러 열을 병합하려는 경우 다음을 사용하여 'by'매개 변수를 확장 할 수 있습니다.

by=c("param 1 name","param 2 name",...) 

희망이 있습니다.

Answer 3

가장 간단한 룩업 테이블을 사용하는 것입니다 (당신은 merge 할 필요가 없습니다) :

lookup <- list(Agrostis.canina="Graminoid", 
       Carex.nigra="Dwarf.shrub") 
df$value <- lookup[df$variable] 

Answer 4

내가 내 솔루션을 게시 할 것이라고 생각 : 나는 left_join을 사용

을 @Joe가 제안했습니다. 각 변수에 포함 된 여러 값의 "조회"데이터 프레임이 있었지만 원래의 데이터 프레임은 오히려 넓은 형식이 아니 었습니다. gather 함수를 tidyr에 사용하여 긴 형식을 만들었습니다. 즉, ID 변수 열을 그대로 유지하지 않고 데이터 프레임을 변형 할 수 있다는 의미였습니다. reshape2melt 함수에서 필요로하는 것처럼 보입니다.

여러분 모두 도와 주셔서 감사합니다.