Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何编写一个函数来复制多个列，每次在R中添加不同的后缀？_R_Function_Repeat_Longitudinal_Data Wrangling - Fatal编程技术网
Fatal编程技术网
  • r/
  • 如何编写一个函数来复制多个列，每次在R中添加不同的后缀？

如何编写一个函数来复制多个列，每次在R中添加不同的后缀？

r function

如何编写一个函数来复制多个列，每次在R中添加不同的后缀？,r,function,repeat,longitudinal,data-wrangling,R,Function,Repeat,Longitudinal,Data Wrangling,我有几个变量需要在一个数据帧中重复19次，但每次我都想给它们添加一个可区分的后缀。后缀标识纵向数据的波形，稍后将从宽转换为长。我知道有一种方法可以编写一个函数，这样我就不必重复代码19次，但我自学了R，函数不是我的专长 一些示例数据： id <- rep(1:10) var1_W1 <- strrep(c("A", "B", "C"), 1:10) var2 <- strrep(c("X", "Y", "Z"), 1:10) dat <- as.data.frame(cb

我有几个变量需要在一个数据帧中重复19次，但每次我都想给它们添加一个可区分的后缀。后缀标识纵向数据的波形，稍后将从宽转换为长。我知道有一种方法可以编写一个函数，这样我就不必重复代码19次，但我自学了R，函数不是我的专长

一些示例数据：

id <- rep(1:10)
var1_W1 <- strrep(c("A", "B", "C"), 1:10)
var2 <- strrep(c("X", "Y", "Z"), 1:10)
dat <- as.data.frame(cbind(id, var1_W1, var2))
head(dat)

  id var1_W1   var2
1  1       A      X
2  2      BB     YY
3  3     CCC    ZZZ
4  4    AAAA   XXXX
5  5   BBBBB  YYYYY
6  6  CCCCCC ZZZZZZ

id Try
dat[paste0（“var2_W”，1:19）]非常感谢！超级简单，我想这是一个复杂的函数。完美：）尝试
dat[paste0（“var2_W”，1:19）]非常感谢！超级简单，我想这是一个复杂的函数。完美：）