Question

我有一个小问题：我在R中找不到字典数据结构，所以我改用列表（比如“word” - ＆gt; number）所以，现在我有问题如何获取密钥列表。有人知道吗？

Answer 1

是的，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"
>

Answer 2

如果您的“数字”值都是相同模式，则甚至不需要列表。如果我采用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

Answer 3

为了扩展一点Calimo的答案，我在R中创建这个准词典时可能会发现一些有用的东西：

a）如何返回字典的所有VALUES：

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

b）检查词典CONTAINS KEY：

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

c）如何添加新密钥，将值piar添加到字典：

C（FOO，tic2 = 44）

结果：

tic       tac       toe     tic2
12        22        33        44

d）如何满足REAL DICTIONARY的要求 - 那些键不能重复（UNIQU键）？你需要结合b）和c）和构建功能来验证有没有这样的密钥，并做你想做的事情：例如，不允许插入，如果新旧的不同，更新值，或重建某种键（例如，为它添加一些数字，使其独一无二）

e）如何从字典中删除配对BY KEY：

FOO＆LT; -foo [其中（！富= FOO [[＆＃34; TAC＆＃34;]]）]

Answer 4

首先使用词典的原因是性能。虽然你可以使用命名向量和列表来完成任务是正确的，但问题是它们变得非常慢并且内存很多，而且数据更多。

然而，许多人不知道的是，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

Answer 5

包哈希现已可用： https://cran.r-project.org/web/packages/hash/hash.pdf

<强>实施例

c15

Answer 6

您可能需要查看CRAN上的hash package。

Answer 7

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"

Answer 8

我只是评论你在尝试＆＃34;假＆＃34;时可以从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"

等

使用R中的词典/列表

8 个答案: