Arbeiten mit Wörterbüchern / Listen in R

Habe ich triviale Frage: ich konnte nicht finden eine dictionary-Datenstruktur in R, so habe ich die Liste statt (wie "Wort"->Zahl)
So, jetzt habe ich das problem, wie man der Liste der Schlüssel.
Jemand kennt?

InformationsquelleAutor der Frage Ivri | 2010-05-18

  1. 90

    Ja, die list Typ ist eine gute Näherung. Sie können names() auf Ihrer Liste festlegen und abrufen der 'Schlüssel':

    > 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"
>

    InformationsquelleAutor der Antwort Dirk Eddelbuettel

  2. 42

    Brauchen Sie nicht einmal Listen, wenn Sie Ihre "Nummer" die Werte sind alle aus dem gleichen Modus. Wenn ich Dirk Eddelbuettel Beispiel:

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

    Listen sind nur erforderlich, wenn Ihre Werte entweder im gemischten Modus (z.B. Buchstaben und zahlen) oder Vektoren.

    Beiden Listen und Vektoren, ein einzelnes element kann subsetted von name:

    > foo["tac"]
tac 
 22

    Oder für eine Liste:

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

    InformationsquelleAutor der Antwort Calimo

  3. 13

    Erweitern, ein wenig Antwort von Calimo ich paar mehr Dinge, die Sie nützlich finden können während der Erstellung dieses quasi dictionaris in R:

    a) wie die Rückkehr der alle WERTE des dictionary:

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

    b) überprüfen Sie, ob das Wörterbuch ENTHÄLT SCHLÜSSEL:

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

    c), wie das HINZUFÜGEN von NEUEN Schlüssel-Wert piar Wörterbuch:

    c(foo,tic2=44)

    Ergebnisse:

    tic       tac       toe     tic2
12        22        33        44

    d) wie zu tun, die Anforderung der ECHTEN WÖRTERBUCH - Dank diesem Schlüssel KÖNNEN NICHT wiederholen(Retina Display-TASTEN)? Sie verbinden müssen, b) und c) und build-Funktion, die überprüft, whethere es ist so Schlüssel, und tun, was Sie wollen: e.g nicht zulassen, einfügen, aktualisieren Sie Wert, wenn der neue unterscheidet sich von der alten, oder neu erstellen, irgendwie Taste(e-Taste.g fügt einige Nummer, damit es eindeutig ist)

    e), wie LÖSCHEN paar SCHLÜSSEL aus dem Wörterbuch:

    foo<-foo[die(foo!=foo[["AGB"]])]

    InformationsquelleAutor der Antwort andilabs

  4. 10

    Den Grund für die Verwendung von Wörterbüchern ist in Erster Linie die Leistung. Es ist zwar richtig, dass Sie können benannte Vektoren und Listen, für die Aufgabe das Problem ist, dass Sie immer sehr langsam und Speicher hungrig mit mehr Daten.

    Doch was viele Menschen nicht wissen, ist, dass R hat ja einen eingebauten dictionary-Datenstruktur: - Umgebungen mit der option hash = TRUE

    Siehe das folgende Beispiel für, wie es funktioniert:

    # 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

    InformationsquelleAutor der Antwort vonjd

  5. 5

    Möchten Sie vielleicht Blick auf die hash Paket auf CRAN.

    InformationsquelleAutor der Antwort Jyotirmoy Bhattacharya

  6. 5

    Paket hash ist nun verfügbar:
    https://cran.r-project.org/web/packages/hash/hash.pdf

    Beispiele

    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"

    InformationsquelleAutor der Antwort Ngọc Linh Vũ

  7. 4

    Werde ich nur Kommentare, die Sie bekommen können, eine Menge Kilometer aus table wenn Sie versuchen, zu "schummeln", ein Wörterbuch, z.B.

    > 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"

    etc.

    InformationsquelleAutor der Antwort Gabriel Perdue

  8. 4

    Kürzere Variante von Dirk ' s Antwort:

    # 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"

    InformationsquelleAutor der Antwort Nettle

Schreibe einen Kommentar