У меня трудности с построением специального ряда

Question

У меня есть набор данных, и я хочу построить из него конкретную строку.

Мне удалось сделать это грубо, вот так:

person7_loss = c(weigh_loss$Jan[weigh_loss$Individuals == "Person 7"], 
             weigh_loss$Feb[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Mar[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Apr[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Mai[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Jun[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Jul[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Aug[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Sep[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Oct[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Nov[weigh_loss$Individuals == "Person 7"],
             weigh_loss$Des[weigh_loss$Individuals == "Person 7"])

Но я думаю, что естьболее простой способ сделать это.

Я представлял себе что-то вроде:

person1 = weigh_loss[1,5:16]
plot(x = person1, type = "h", ylim = c(0, 120), ylab = "Þyngd",
     xlab = "Mánuður")

Answer 1

Более простой вариант - unlist столбцы после фильтрации строк

person7_loss <- unlist(weigh_loss[weigh_loss$Individuals == "Person 7", nm1])

где «nm1» - интересующие столбцы

nm1 <- 5:16

---

Если имеется несколько строк, транспонировать отфильтрованный вывод и преобразовать его в vector, чтобы сохранить порядок

c(t(weigh_loss[weigh_loss$Individuals == "Person 7",nm1]))