Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.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_Loops_Series_Fill - Fatal编程技术网

在R中填充序列

在R中填充序列,r,loops,series,fill,R,Loops,Series,Fill,我想更新第2列,使值对更新为a、1b、1c1和d、2e、2f、2和g、3h、3i、3等等。如何循环? 以下是示例数据框: data_set <- as.data.frame(matrix(nrow=9)) data_set$column1_set1 <- c("a","b","c","d","e","f","g","h","i") data_set$column2_set1 <- c(0,0,0,0,0,0,0,0,0) data_set <- data_set[,-1

我想更新第2列,使值对更新为a、1b、1c1和d、2e、2f、2和g、3h、3i、3等等。如何循环? 以下是示例数据框:

data_set <- as.data.frame(matrix(nrow=9))
data_set$column1_set1 <- c("a","b","c","d","e","f","g","h","i")
data_set$column2_set1 <- c(0,0,0,0,0,0,0,0,0)

data_set <- data_set[,-1]

对于给定的数据集,您可以使用它成对地更新第2列:a、1等 在集合1中粘贴逗号,并以1:3的比例重复=3次

data_set$column2_set1 =paste0(data_set$column1_set1,",",rep(1:3, each=3))
=== 您也可以将mutate与dplyr一起使用:

data_set%>%
  mutate("column2_set1" = paste0(column1_set1,",",rep(1:3, each=3)))
输出: 第1列第1列第2列第1列 1 a,1 2 b,1 3 c,1 4天,2天 5 e,2 6楼,2楼 7克,3克 8小时,3小时 9 i,3

data_set%>%
  mutate("column2_set1" = paste0(column1_set1,",",rep(1:3, each=3)))