将命名列表的名称和值组合成字符串的更好方法
A better way to combine name and value of a named list into a string
给定一个命名列表:
values <- list( a=1, b=2 )
我想生成一个以逗号分隔的字符串,其中包含名称:
"a=1,b=2"
以下有效,但看起来非常笨拙:
library( iterators )
library( itertools )
fieldnames <- names(values)
sublist <- list()
iter_fieldnames <- ihasNext( iter( fieldnames ) )
iter_values <- ihasNext( iter( values ) )
while( hasNext( iter_fieldnames ) & hasNext( iter_values ) ) {
sublist <- append( sublist, paste0( nextElem( iter_fieldnames ), "=", nextElem( iter_values ) ) )
}
paste0( sublist, collapse="," )
[1] "a=1,b=2"
'paste' 上的 'collapse' 选项看起来很优雅并且很接近,但我不知道它是否可以分层(即“首先,用 '= 折叠名称和值',然后用','折叠):
paste0( paste0(names(values), values, collapse='='), collapse="," )
[1] "a1=b2"
或
paste0( paste0( c(names(values), values), collapse='=' ), collapse=',' )
[1] "a=b=1=2"
正在尝试 lapply 并生成 paste0:
paste0( lapply( values, function(x) paste0( names(x), "=", x ) ), collapse=',' )
[1] "=1,=2"
是否有更简单的方法来做到这一点,还是我只是坚持使用笨拙的方法?
不确定您将如何使用它,但我们可以通过将列表的 names
、“=”和列表元素的实际值连接在一起来创建一个字符串。
paste0(paste0(names(values), "=", unlist(values)), collapse = ",")
#[1] "a=1,b=2"
在更大的列表中尝试
values <- list(a=1, b=2, c = 12, d = 5)
paste0(paste0(names(values), "=", unlist(values)), collapse = ",")
#[1] "a=1,b=2,c=12,d=5"
给定一个命名列表:
values <- list( a=1, b=2 )
我想生成一个以逗号分隔的字符串,其中包含名称:
"a=1,b=2"
以下有效,但看起来非常笨拙:
library( iterators )
library( itertools )
fieldnames <- names(values)
sublist <- list()
iter_fieldnames <- ihasNext( iter( fieldnames ) )
iter_values <- ihasNext( iter( values ) )
while( hasNext( iter_fieldnames ) & hasNext( iter_values ) ) {
sublist <- append( sublist, paste0( nextElem( iter_fieldnames ), "=", nextElem( iter_values ) ) )
}
paste0( sublist, collapse="," )
[1] "a=1,b=2"
'paste' 上的 'collapse' 选项看起来很优雅并且很接近,但我不知道它是否可以分层(即“首先,用 '= 折叠名称和值',然后用','折叠):
paste0( paste0(names(values), values, collapse='='), collapse="," )
[1] "a1=b2"
或
paste0( paste0( c(names(values), values), collapse='=' ), collapse=',' )
[1] "a=b=1=2"
正在尝试 lapply 并生成 paste0:
paste0( lapply( values, function(x) paste0( names(x), "=", x ) ), collapse=',' )
[1] "=1,=2"
是否有更简单的方法来做到这一点,还是我只是坚持使用笨拙的方法?
不确定您将如何使用它,但我们可以通过将列表的 names
、“=”和列表元素的实际值连接在一起来创建一个字符串。
paste0(paste0(names(values), "=", unlist(values)), collapse = ",")
#[1] "a=1,b=2"
在更大的列表中尝试
values <- list(a=1, b=2, c = 12, d = 5)
paste0(paste0(names(values), "=", unlist(values)), collapse = ",")
#[1] "a=1,b=2,c=12,d=5"