การทำงานกับพจนานุกรม / รายการใน R

ฉันมีคำถามเล็กน้อย: ฉันไม่พบโครงสร้างข้อมูลพจนานุกรมใน R ดังนั้นฉันจึงใช้ list แทน (เช่น "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:

ก) วิธีการคืนค่าทั้งหมดของพจนานุกรม:

>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) จะปฏิบัติตามข้อกำหนดของพจนานุกรมจริงได้อย่างไร - คีย์นั้นไม่สามารถทำซ้ำได้ (คีย์ที่ไม่ซ้ำกัน)? คุณต้องรวม b) และ c) และสร้างฟังก์ชันที่ตรวจสอบว่ามีคีย์ดังกล่าวหรือไม่และทำในสิ่งที่คุณต้องการเช่นไม่อนุญาตให้แทรกค่าอัปเดตหากใหม่แตกต่างจากคีย์เก่าหรือสร้างคีย์ใหม่ (เช่น เพิ่มจำนวนเพื่อให้ไม่ซ้ำกัน)

จ) วิธีลบคู่ตามคีย์จากพจนานุกรม:

ฟู <-foo [ซึ่ง (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"

เป็นต้น