key_value = function(a) {
x = as.list(a + seq_along(a))
names(x) = paste0(substitute(a), seq_along(a))
return(x)
}
测试结果:
k = c(1, 2, 3)
attach(key_value(k))
k1
k2
k3
apple = c(1, 2, 3)
attach(key_value(apple))
apple1
apple2
apple3
※ 引述《laputaca (离歌笑)》之铭言：
: 标题: [问题] 函数输入 自动命名
: 时间: Sat Apr 16 16:31:08 2016
:
: 想请问各位大大
:
: 如果写一个函数让他可以自动命名
:
: 举个例子
:
: k <- c(1:3)
:
: function(k)
: {
:
: ?? <- k[1]+1
: ?? <- k[2]+2
: ?? <- k[3]+3
:
: }
:
:
: 如何才有办法让??的部分
:
: 可以是自动命名成
:
: k1 <- k[1]+1
: k2 <- k[2]+2
: k3 <- k[3]+3
:
: 也就是说如果我输入的是apple
:
: 他就是自动定义三个数值是
:
: apple1, apple2, apple3
:
:
:
:
: 我有查过之前的文章
:
: 似乎有提到 什么 assign(paste0("k",i),value)
:
: 不过实在是不太懂
:
: 有大大能指点一下吗?
:
: 感谢
:
: