Quantityakwic 출력에 데이터를 추가하십시오.

Question

고객 ID (아래 참조)와 같은 kwic 출력에 메타 데이터를 추가하여 마스터 파일을 쉽게 조회 할 수 있습니다. 나는 cbind를 사용하여 데이터를 추가하려고 시도했지만 아무 것도 올바르게 일치하지 않습니다.

가능한 경우 예를 들어 주시면 감사하겠습니다.

 docname position contextPre  keyword contextPost   CustID 
    text3790  5 nothing at all looks good and sounds great   1 
    text3801 11 think the offer is a good value and has a lot  3 
    text3874 10 not so sure thats a good word to use    5 

발생 data.frame

 CustID Comment 
     1  nothing at all looks good and sounds great 
     2  did not see anything that was very appealing 
     3  I think the offer is a good value and has a lot of potential 
     4  these items look terrible how are you still in business 
     5  not so sure thats a good word to use 
     6  having a hard time believing some place would sell an item so low 
     7  it may be worth investing in some additional equipment 

Answer 1

을 나는 이상적인 솔루션이 docvars을 사용하는 것입니다 생각 , 그러나 kwic은 그들을 보여줄 수있는 선택권이없는 것 같습니다. 나는 여전히 id-doc 매핑 테이블을 kwic 결과와 병합해야한다.

library(data.table) 
library(quanteda) 

s <- "CustID, Comment 
1,  nothing at all looks good and sounds great 
2,  did not see anything that was very appealing 
3,  I think the offer is a good value and has a lot of potential 
4,  these items look terrible how are you still in business 
5,  not so sure thats a good word to use 
6,  having a hard time believing some place would sell an item so low 
7,  it may be worth investing in some additional equipment" 

# I'm using data.table mainly to read the data easily. 
dt <- fread(s, data.table=FALSE) 

# all operations below apply to data frame 
myCorpus <- corpus(df$Comment) 
# the Corpus and CustID came from same data frame, 
# thus ensured the mapping is correct 
docvars(myCorpus, "CustID") <- df$CustID 
summary(myCorpus) 
# build the mapping table of docname and CustID. 
# The docname is in row.names, have to make an explicit column 
dv_table <- docvars(myCorpus) 
id_table <- data.frame(docname = row.names(dv_table), CustID = dv_table$CustID) 
result <- kwic(myCorpus, "good", window = 3, valuetype = "glob") 
id_result <- merge(result, id_table, by = "docname") 

결과 : 피드백

> id_result 
    docname position contextPre keyword  contextPost CustID 
1 text1  5 at all looks good and sounds great  1 
2 text3  7 offer is a good value and has   3 
3 text5  6 sure thats a good word to use   5 

Answer 2

당신이 열을 일반적인 방법으로 추가 할 수 있도록 그것은 data.frame 객체입니다 처음에는

library(quanteda) 
h <- head(kwic(inaugTexts, "secure*", window = 3, valuetype = "glob")) 

#Add new ID column 
h$CustID <- 1:nrow(h)