새로운 XTS 열은 열 이름의 열에있는 열 이름을 기반으로합니다.

Question

저는 R 및 XTS에 상당히 익숙합니다. 혼동스러운 제목을 용서하십시오, 아래의 예는 내 질문을 더 잘 설명해야합니다. 질문 인 How to get value by column name in R?은 XTS 객체로 작업하고 있기 때문에 많은 도움이되지 못했습니다.

XTS 개체의 다른 열 이름 인 문자열 열이 있습니다.

xts_bars <- structure(c("1", "1", "1", "1", "-1", "-1", "-1", "-1", "action4", 
"action4", "action", "action"), .indexCLASS = c("POSIXct", "POSIXt"), 
tclass = c("POSIXct", "POSIXt"), tzone = "", class = c("xts", "zoo"), 
index = c(1506620100, 1506620400, 1506620700, 1506621000), .Dim = c(4L, 3L), 
.Dimnames = list(NULL, c("action", "action4", "column_names"))) 

새 열을 만들고 각 행의 명명 된 열 값을 각 열에 채우고 싶습니다.

xts_bars$column_names 
xts_bars$new_column = xts_bars[,xts_bars$column_names] 

이

IT는 'NEW_COLUMN'열 전에 3 여분의 열을 만드는 것, 작동하지 않는 :는 'NEW_COLUMN'열은 -1, -1, 1을 포함해야

    action action4 column_names action4.1 action4.2 action.1 new_column 
2017-09-28 12:35:00 "1" "-1" "action4" "-1"  "-1"  "1"  "1"  
2017-09-28 12:40:00 "1" "-1" "action4" "-1"  "-1"  "1"  "1"  
2017-09-28 12:45:00 "1" "-1" "action"  "-1"  "-1"  "1"  "1"  
2017-09-28 12:50:00 "1" "-1" "action"  "-1"  "-1"  "1"  "1" 

1.

Answer 1

가장 먼저 떠오르는 것은 매트릭스를 사용하여 객체를 부분 집합으로 만드는 것입니다. 현재 matrix subsetting on xts objects을 수행 할 수 없지만 coredata()을 사용하여 기본 행렬을 추출 할 수 있습니다.

먼저 xts 개체의 하위 집합에 사용할 행렬을 만들어야합니다. 각 행에는 두 개의 열이 필요합니다. 첫 번째 열은 추출 할 요소의 행 번호이고 두 번째 열은 추출 할 요소의 열 번호입니다. 각 행을 추출 된 벡터에서 원하는 요소 쌍인 i, j 쌍으로 생각할 수 있습니다.

열 이름으로 추출하려면 각 이름에 해당하는 열 번호를 찾아야합니다. match() 기능으로이를 수행 할 수 있습니다. 행 번호는 단순히 1:nrow(xts_bars)입니다.

# Find the value in xts_bar$column_names in colnames(xts_bars) 
col_nums <- match(xts_bars$column_names, colnames(xts_bars)) 
# Create subset matrix 
subset_matrix <- cbind(1:nrow(xts_bars), col_nums) 

이제 subset_matrix를 사용하여 객체 당신의 XTS 서브 세트를해야합니다. 현재로서는 가능하지 않으므로 coredata()을 사용하여 기본 행렬을 추출한 다음 그 행렬을 부분 집합으로 사용할 수 있습니다.

# Create new column 
xts_bars$new_column <- coredata(xts_bars)[subset_matrix] 
xts_bars 
#      action action4 column_names new_column 
# 2017-09-28 12:35:00 "1" "-1" "action4" "-1"  
# 2017-09-28 12:40:00 "1" "-1" "action4" "-1"  
# 2017-09-28 12:45:00 "1" "-1" "action"  "1"  
# 2017-09-28 12:50:00 "1" "-1" "action"  "1"