Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/70.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/ruby-on-rails-4/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_Sequence_Mutate - Fatal编程技术网

R 为数据帧行指定一系列数字

R 为数据帧行指定一系列数字,r,sequence,mutate,R,Sequence,Mutate,我试图根据行位置的不同,为数据帧中的行分配一个数字序列。我有330行,我想在一个新的ID列中,将每组9行命名为1到9行。例如,我希望第1-9行标记为1-9,第10-18行标记为1-9,第19-27行标记为1-9,依此类推 我已尝试使用此代码: test <- temp.df %>% mutate(id = seq(from = 1, to = 330, along.width= 9)) test 实现我的目标的最佳方法是什么?我想如果你能提供data.frametemp.df的一个

我试图根据行位置的不同,为数据帧中的行分配一个数字序列。我有330行,我想在一个新的ID列中,将每组9行命名为1到9行。例如,我希望第1-9行标记为1-9,第10-18行标记为1-9,第19-27行标记为1-9,依此类推

我已尝试使用此代码:

test <- temp.df %>% mutate(id = seq(from = 1, to = 330, along.width= 9))
test

实现我的目标的最佳方法是什么?

我想如果你能提供data.frame
temp.df
的一个片段,那么帮助你会更容易。也许下面这行代码可以帮助您将其添加到data.frame中,但是,这不是一个非常灵活的解决方案,但它基于您提供的信息

n_repeated <- 9    #block of ID
N_rows   <- 330    #number of observations

df <- data.frame(id = rep(seq(1,n_repeated ),N_rows ))

head(df,n = 15)

#> head(df,n = 15)
#   id
# 1   1
# 2   2
# 3   3
# 4   4
# 5   5
# 6   6
# 7   7
# 8   8
# 9   9
# 10  1
# 11  2
# 12  3
# 13  4
# 14  5
# 15  6

n_repeated <- 9    #block of ID
N_rows   <- 330    #number of observations

df <- data.frame(id = rep(seq(1,n_repeated ),N_rows ))

head(df,n = 15)

#> head(df,n = 15)
#   id
# 1   1
# 2   2
# 3   3
# 4   4
# 5   5
# 6   6
# 7   7
# 8   8
# 9   9
# 10  1
# 11  2
# 12  3
# 13  4
# 14  5
# 15  6

test <- temp.df %>% mutate(id = rep(seq(1,9), nrow(temp.df)))