Добавить вектор репов в датафрейм с неравным количеством строк - PullRequest
0 голосов
/ 23 мая 2019

Я пытаюсь найти способ автоматизации большого набора данных, чтобы добавить два фактора, но данные могут содержать неравные строки.

Я пытался сделать это с помощью функции 'rep', но этоработает только если фрейм данных имеет четные числа.

x<-c(1,3,5,7,9)
y<-c(2,4,6,8,10)
df<-data.frame(x,y)
df$state<-factor(rep(1:2))   

Error in `$<-.data.frame`(`*tmp*`, state, value = 1:2) : 
replacement has 2 rows, data has 5

Как заставить data.frame переместить 1 в строку 5 вместо ошибки?

1 Ответ

0 голосов
/ 23 мая 2019

rep() s length.out аргумент - одна опция:

df$state<-factor(rep(1:2, length.out = nrow(df)))
...