我想在 R 的一行中分配多个变量。可以做这样的事情吗？
values # initialize some vector of values
(a, b) = values[c(2,4)] # assign a and b to values at 2 and 4 indices of 'values'
通常我想在一行中分配大约 5-6 个变量，而不是多行。有替代方案吗？
问问题
68130 次
14 回答
42
在Struggling through Problems 博客上有一个很好的答案
这是从那里获取的，只做了很小的修改。
使用以下三个功能（加上一个允许不同大小的列表）
# Generic form
'%=%' = function(l, r, ...) UseMethod('%=%')
# Binary Operator
'%=%.lbunch' = function(l, r, ...) {
Envir = as.environment(-1)
if (length(r) > length(l))
warning("RHS has more args than LHS. Only first", length(l), "used.")
if (length(l) > length(r)) {
warning("LHS has more args than RHS. RHS will be repeated.")
r <- extendToMatch(r, l)
}
for (II in 1:length(l)) {
do.call('<-', list(l[[II]], r[[II]]), envir=Envir)
}
}
# Used if LHS is larger than RHS
extendToMatch <- function(source, destin) {
s <- length(source)
d <- length(destin)
# Assume that destin is a length when it is a single number and source is not
if(d==1 && s>1 && !is.null(as.numeric(destin)))
d <- destin
dif <- d - s
if (dif > 0) {
source <- rep(source, ceiling(d/s))[1:d]
}
return (source)
}
# Grouping the left hand side
g = function(...) {
List = as.list(substitute(list(...)))[-1L]
class(List) = 'lbunch'
return(List)
}
然后执行：
使用新函数对左侧进行分组g()
右侧应该是向量或列表 使用新创建的二元运算符%=%
# Example Call; Note the use of g() AND `%=%`
# Right-hand side can be a list or vector
g(a, b, c) %=% list("hello", 123, list("apples, oranges"))
g(d, e, f) %=% 101:103
# Results:
> a
[1] "hello"
> b
[1] 123
> c
[[1]]
[1] "apples, oranges"
> d
[1] 101
> e
[1] 102
> f
[1] 103
使用不同大小列表的示例：
较长的左侧
g(x, y, z) %=% list("first", "second")
# Warning message:
# In `%=%.lbunch`(g(x, y, z), list("first", "second")) :
# LHS has more args than RHS. RHS will be repeated.
> x
[1] "first"
> y
[1] "second"
> z
[1] "first"
较长的右手边
g(j, k) %=% list("first", "second", "third")
# Warning message:
# In `%=%.lbunch`(g(j, k), list("first", "second", "third")) :
# RHS has more args than LHS. Only first2used.
> j
[1] "first"
> k
[1] "second"
于 2012-11-12T23:54:28.000 回答
38
考虑使用基础 R 中包含的功能。
例如，创建一个 1 行数据框（例如V）并在其中初始化变量。现在您可以一次分配给多个变量，V[,c("a", "b")] <- values[c(2, 4)]按名称调用每个变量 ( V$a)，或同时使用多个变量 ( values[c(5, 6)] <- V[,c("a", "b")])。
如果您变得懒惰并且不想从数据框中调用变量，您可以attach(V)（尽管我个人从不这样做）。
# Initialize values
values <- 1:100
# V for variables
V <- data.frame(a=NA, b=NA, c=NA, d=NA, e=NA)
# Assign elements from a vector
V[, c("a", "b", "e")] = values[c(2,4, 8)]
# Also other class
V[, "d"] <- "R"
# Use your variables
V$a
V$b
V$c # OOps, NA
V$d
V$e
于 2013-02-25T14:02:39.333 回答
38
我整理了一个 R 包zeallot来解决这个问题。zeallot 包括一个%<-%用于解包、多重和解构赋值的运算符 ()。赋值表达式的 LHS 是使用对c(). 赋值表达式的 RHS 可以是任何返回或为向量、列表、嵌套列表、数据框、字符串、日期对象或自定义对象的表达式（假设有destructure实现）。
这是使用 zeallot（最新版本，0.0.5）修改的初始问题。
library(zeallot)
values <- c(1, 2, 3, 4) # initialize a vector of values
c(a, b) %<-% values[c(2, 4)] # assign `a` and `b`
a
#[1] 2
b
#[1] 4
有关更多示例和信息，可以查看包vignette。
于 2017-07-26T14:26:54.670 回答
14
这是我的想法。可能语法很简单：
`%tin%` <- function(x, y) {
mapply(assign, as.character(substitute(x)[-1]), y,
MoreArgs = list(envir = parent.frame()))
invisible()
}
c(a, b) %tin% c(1, 2)
给出这样的：
> a
Error: object 'a' not found
> b
Error: object 'b' not found
> c(a, b) %tin% c(1, 2)
> a
[1] 1
> b
[1] 2
虽然这没有经过很好的测试。
于 2011-09-23T01:56:34.250 回答
10
一个潜在的危险（尽可能多地使用assign是有风险的）选项是Vectorize assign：
assignVec <- Vectorize("assign",c("x","value"))
#.GlobalEnv is probably not what one wants in general; see below.
assignVec(c('a','b'),c(0,4),envir = .GlobalEnv)
a b
0 4
> b
[1] 4
> a
[1] 0
或者我想您可以使用自己的函数手动对其进行矢量化，mapply这可能会为参数使用合理的默认值envir。例如，Vectorize将返回一个与 具有相同环境属性的函数assign，在本例中为namespace:base，或者您可以只设置envir = parent.env(environment(assignVec))。
于 2011-09-22T19:15:25.023 回答
9
正如其他人所解释的那样，似乎没有内置任何东西。 ...但您可以设计vassign如下功能：
vassign <- function(..., values, envir=parent.frame()) {
vars <- as.character(substitute(...()))
values <- rep(values, length.out=length(vars))
for(i in seq_along(vars)) {
assign(vars[[i]], values[[i]], envir)
}
}
# Then test it
vals <- 11:14
vassign(aa,bb,cc,dd, values=vals)
cc # 13
不过要考虑的一件事是如何处理您指定 3 个变量和 5 个值或相反的情况。在这里，我只是重复（或截断）值与变量的长度相同。也许警告是谨慎的。但它允许以下内容：
vassign(aa,bb,cc,dd, values=0)
cc # 0
于 2011-09-22T22:08:31.300 回答
6
list2env(setNames(as.list(rep(2,5)), letters[1:5]), .GlobalEnv)
达到了我的目的，即将五个 2 分配到前五个字母中。
于 2016-04-17T13:51:32.410 回答
5
最近有一个类似的问题，这是我尝试使用purrr::walk2
purrr::walk2(letters,1:26,assign,envir =parent.frame())
于 2018-03-28T20:13:36.283 回答
5
https://stat.ethz.ch/R-manual/R-devel/library/base/html/list2env.html：
list2env(
list(
a=1,
b=2:4,
c=rpois(10,10),
d=gl(3,4,LETTERS[9:11])
),
envir=.GlobalEnv
)
于 2015-09-16T22:53:31.290 回答
2
如果您唯一的要求是有一行代码，那么如何：
> a<-values[2]; b<-values[4]
于 2011-09-22T18:59:17.637 回答
1
恐怕您正在寻找的优雅解决方案（如c(a, b) = c(2, 4)）不幸地不存在。但不要放弃，我不确定！我能想到的最接近的解决方案是这个：
attach(data.frame(a = 2, b = 4))
或者如果您对警告感到困扰，请将其关闭：
attach(data.frame(a = 2, b = 4), warn = F)
但我想你对这个解决方案不满意，我也不会......
于 2011-09-22T20:53:51.903 回答
1
R> values = c(1,2,3,4)
R> a <- values[2]; b <- values[3]; c <- values[4]
R> a
[1] 2
R> b
[1] 3
R> c
[1] 4
于 2013-11-29T02:20:54.373 回答
0
Another version with recursion:
let <- function(..., env = parent.frame()) {
f <- function(x, ..., i = 1) {
if(is.null(substitute(...))){
if(length(x) == 1)
x <- rep(x, i - 1);
stopifnot(length(x) == i - 1)
return(x);
}
val <- f(..., i = i + 1);
assign(deparse(substitute(x)), val[[i]], env = env);
return(val)
}
f(...)
}
example:
> let(a, b, 4:10)
[1] 4 5 6 7 8 9 10
> a
[1] 4
> b
[1] 5
> let(c, d, e, f, c(4, 3, 2, 1))
[1] 4 3 2 1
> c
[1] 4
> f
[1] 1
My version:
let <- function(x, value) {
mapply(
assign,
as.character(substitute(x)[-1]),
value,
MoreArgs = list(envir = parent.frame()))
invisible()
}
example:
> let(c(x, y), 1:2 + 3)
> x
[1] 4
> y
[1]
于 2017-03-30T12:47:37.927 回答
0
结合这里给出的一些答案+一点盐，这个解决方案怎么样：
assignVec <- Vectorize("assign", c("x", "value"))
`%<<-%` <- function(x, value) invisible(assignVec(x, value, envir = .GlobalEnv))
c("a", "b") %<<-% c(2, 4)
a
## [1] 2
b
## [1] 4
我用它在这里添加了 R 部分：http ://rosettacode.org/wiki/Sort_three_variables#R
警告：它仅适用于分配全局变量（如<<-）。如果有更好，更通用的解决方案，请。在评论中告诉我。
于 2018-12-31T23:41:50.443 回答