R에서 사전 / 목록 작업

사소한 질문이 있습니다. R에서 사전 데이터 구조를 찾을 수 없어서 대신 목록을 사용했습니다 ( "word"-> number). 그래서 지금은 키 목록을 얻는 방법에 문제가 있습니다. 아는 사람 있나요?

예, list유형은 좋은 근사치입니다. names()목록에서 사용 하여 '키'를 설정하고 검색 할 수 있습니다 .

> foo <- vector(mode="list", length=3)
> names(foo) <- c("tic", "tac", "toe")
> foo[[1]] <- 12; foo[[2]] <- 22; foo[[3]] <- 33
> foo
$tic
[1] 12

$tac
[1] 22

$toe
[1] 33

> names(foo)
[1] "tic" "tac" "toe"
> 

"숫자"값이 모두 동일한 모드이면 목록이 필요하지 않습니다. Dirk Eddelbuettel의 예를 들어 보면 :

> foo <- c(12, 22, 33)
> names(foo) <- c("tic", "tac", "toe")
> foo
tic tac toe
 12  22  33
> names(foo)
[1] "tic" "tac" "toe"

목록은 값이 혼합 모드 (예 : 문자 및 숫자) 또는 벡터 인 경우에만 필요합니다.

목록과 벡터 모두에 대해 개별 요소를 이름으로 부분 집합화할 수 있습니다.

> foo["tac"]
tac 
 22 

또는 목록 :

> foo[["tac"]]
[1] 22

Calimo에 대한 약간의 대답을 확장하기 위해 R에서이 유사 사전을 만드는 동안 유용 할 수있는 몇 가지 사항을 더 제시합니다.

a) 사전의 모든 값을 반환하는 방법 :

>as.numeric(foo)
[1] 12 22 33

b) 사전에 키가 포함되어 있는지 확인하십시오.

>'tic' %in% names(foo)
[1] TRUE

c) 새 키, 값 쌍을 사전에 추가하는 방법 :

c (foo, tic2 = 44)

결과 :

tic       tac       toe     tic2
12        22        33        44 

d) REAL DICTIONARY의 요구 사항을 충족하는 방법-키를 반복 할 수 없음 (고유 키)? b)와 c)를 결합하고 그러한 키가 있는지 확인하는 기능을 빌드하고 원하는 작업을 수행해야합니다. 고유하도록 번호를 추가)

e) 사전에서 키로 쌍을 삭제하는 방법 :

foo <-foo [which (foo! = foo [[ "tac"]])]

사전을 사용하는 이유는 성능 때문입니다. 작업에 명명 된 벡터와 목록을 사용할 수있는 것이 옳지 만 문제는 더 많은 데이터로 인해 상당히 느리고 메모리가 부족하다는 것입니다.

그러나 많은 사람들이 알지 못하는 것은 R 이 실제로 내장 된 사전 데이터 구조를 가지고 있다는 것입니다.hash = TRUE

작동 방법은 다음 예제를 참조하십시오.

# vectorize assign, get and exists for convenience
assign_hash <- Vectorize(assign, vectorize.args = c("x", "value"))
get_hash <- Vectorize(get, vectorize.args = "x")
exists_hash <- Vectorize(exists, vectorize.args = "x")

# keys and values
key<- c("tic", "tac", "toe")
value <- c(1, 22, 333)

# initialize hash
hash = new.env(hash = TRUE, parent = emptyenv(), size = 100L)
# assign values to keys
assign_hash(key, value, hash)
## tic tac toe 
##   1  22 333
# get values for keys
get_hash(c("toe", "tic"), hash)
## toe tic 
## 333   1
# alternatively:
mget(c("toe", "tic"), hash)
## $toe
## [1] 333
## 
## $tic
## [1] 1
# show all keys
ls(hash)
## [1] "tac" "tic" "toe"
# show all keys with values
get_hash(ls(hash), hash)
## tac tic toe 
##  22   1 333
# remove key-value pairs
rm(list = c("toe", "tic"), envir = hash)
get_hash(ls(hash), hash)
## tac 
##  22
# check if keys are in hash
exists_hash(c("tac", "nothere"), hash)
##     tac nothere 
##    TRUE   FALSE
# for single keys this is also possible:
# show value for single key
hash[["tac"]]
## [1] 22
# create new key-value pair
hash[["test"]] <- 1234
get_hash(ls(hash), hash)
##  tac test 
##   22 1234
# update single value
hash[["test"]] <- 54321
get_hash(ls(hash), hash)
##   tac  test 
##    22 54321

편집 :이 답변을 바탕으로 더 많은 컨텍스트가 포함 된 블로그 게시물을 작성했습니다. http://blog.ephorie.de/hash-me-if-you-can

이제 패키지 해시 를 사용할 수 있습니다 : https://cran.r-project.org/web/packages/hash/hash.pdf

예

h <- hash( keys=letters, values=1:26 )
h <- hash( letters, 1:26 )
h$a
# [1] 1
h$foo <- "bar"
h[ "foo" ]
# <hash> containing 1 key-value pair(s).
#   foo : bar
h[[ "foo" ]]
# [1] "bar"

Dirk의 대답의 짧은 변형 :

# Create a Color Palette Dictionary 
> color <- c('navy.blue', 'gold', 'dark.gray')
> hex <- c('#336A91', '#F3C117', '#7F7F7F')

> # Create List
> color_palette <- as.list(hex)
> # Name List Items
> names(color_palette) <- color
> 
> color_palette
$navy.blue
[1] "#336A91"

$gold
[1] "#F3C117"

$dark.gray
[1] "#7F7F7F"

table사전을 "위조"하려고 할 때도 많은 마일리지를 얻을 수 있다고 말씀 드리겠습니다 . 예 :

> x <- c("a","a","b","b","b","c")
> (t <- table(x))
x
a b c 
2 3 1 
> names(t)
[1] "a" "b" "c"
> o <- order(as.numeric(t))
> names(t[o])
[1] "c" "a" "b"

기타