Создание фрейма данных с оператором для l oop и if else

Question

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

Проблема: У меня есть набор данных в 1 столбце и несколько сотен тысяч строк. Мне нужно создать 178 столбцов и сколько угодно строк.

Порядок предоставления данных - это порядок, в котором они должны оставаться.

Например, первые 178 строк данных задают все должна стать строкой 1. Следующие 178 столбцов данных должны стать строкой 2. Это продолжается до конца фрейма данных.

Приведенный ниже код создаст образец с буквами, который содержит 1000 строк. Он также содержит то, что я пробовал до сих пор.

Я чувствую, что я рядом, но результаты не те, что я ожидаю. Становится немного странно, когда данные превращаются в строку 3 в столбце новой строки. Это также становится странным, когда он проходит свои первые 178 столбцов. Он повторяет столбец 1 два раза подряд.

Любая помощь будет великолепной. Если необходимы дальнейшие разъяснения, пожалуйста, просто спросите. Однако, когда вы запустите код и посмотрите, где строка 1 превращается в строку 2, а где строка 2 превращается в строку 3, вы должны увидеть странные результаты.

Редактировать 1: Я делаю Нужно добавить, что это нужно будет в длинном формате, а не в широком. По сути, это должно быть в формате, который обеспечивает пример. Я прошу прощения за искажение в названии. Я изменил заголовок, чтобы удалить слово «матрица».

То, что я пробовал, и примеры данных:

rna = data.frame(sample(letters, size=1000, replace=TRUE))

x = 1
row = 1
y = 0
column = 1

for (i in 1:nrow(rna)) {

  if (x < 178) {
    rna$rowNum[i] = row
    x = x + 1
    } else {
      row = row + 1
      x = 1
    }

  if (y < 178) {
    rna$colNum[i] = column
    column = column + 1
    y = y + 1
  } else {
    column = 1
    y = 0
  }
}

Answer 1

Редактировать Хорошо, после прояснения вашего вопроса, я думаю, я знаю, что вы хотите, data.frame из 3 столбцов со значением, rowNum и colNum. Один из подходов - использовать rep, а затем собрать data.frame из векторов компонентов.

rna = data.frame(sample(letters, size=1000, replace=TRUE))
n.cols <- ceiling(nrow(rna) / 178)
col.vector <- rep(1:178,times = n.cols)
row.vector <- rep(seq(1,n.cols),each = 178)
result <- data.frame(value = as.vector(rna), rowNum = row.vector[1:nrow(rna)], colNum = col.vector[1:nrow(rna)])
colnames(result)[1] <- "value"
result
    value rowNum colNum
1       h      1      1
2       w      1      2
3       v      1      3
4       g      1      4
5       l      1      5
6       y      1      6
7       t      1      7
8       n      1      8
9       q      1      9
10      d      1     10

Answer 2

Мы можем создать группу из 178 значений и преобразовать данные в широкий формат.

library(dplyr)

rna %>%
 group_by(grp = rep(seq_along(temp), each  = 178, length.out = n())) %>%
 mutate(col = paste0('col', row_number())) %>%
 tidyr::pivot_wider(names_from = col, values_from = temp)

данные

rna = data.frame(temp = sample(letters, size=1000, replace=TRUE))