r - リストの要素をグローバル環境の独立したオブジェクトとして返す

Question

リストがあり、リストの要素をグローバル環境で個別のオブジェクトに分割したいと考えています。

たとえば、次のリストが必要です。

obj <- list(a=1:5, b=2:10, c=-5:5)

、、およびの 3 つの別個のオブジェクトaにbなりcます。

私はこれを達成しようとしました:

lapply(obj, FUN = function(x) names(x)[1] <<- x[1])

しかし、失敗しましたError in names(x)[1] <<- x[1] : object 'x' not found。

どうすれば目的を達成できますか?

score 59 · Accepted Answer

リストを環境にマッピングするための特別な関数があります:

> obj <- list(a=1:5, b=2:10, c=-5:5)
> ls()
[1] "obj"
> list2env(obj,globalenv())
<environment: R_GlobalEnv>
> ls()
[1] "a"   "b"   "c"   "obj"

PS回答として提供された私のコメントです

score 9 · Accepted Answer

これも機能します：

lapply(seq_along(obj), function(i) assign(names(obj)[i], obj[[i]], envir = .GlobalEnv))

score 0 · Accepted Answer

リストがまだ名前付きリストになっていない場合は、最初に名前を設定する必要があります。たとえば、文字をインクリメントします。

obj2 <- list(1:5, 2:10, -5:5)

list2env(setNames(obj2, letters[seq(obj2)]), envir=.GlobalEnv)
ls()
# [1] "a"    "b"    "c"    "obj2"

score -1 · Accepted Answer

おすすめはしませんが使えますattach

> obj <- list(a=1:5, b=2:10, c=-5:5)
> attach(obj)
> a
[1] 1 2 3 4 5
> b
[1]  2  3  4  5  6  7  8  9 10
> c
 [1] -5 -4 -3 -2 -1  0  1  2  3  4  5

4 に答える 4