저는 R을 처음 접했고 무작위 운동을 생성하는 코드를 작성하고 싶습니다. 이렇게 보이는 4 개의 문자 벡터가 있습니다
Compound_movements <- c('Hip thrust', 'Squat', 'Deadlift')
Abduction <- c('cable aduction', 'lying plated aduction')
Upper <- c('good mornings', 'kneeling squat')
Maxiums <- c('smith machine kick backs', 'cable kickbacks', 'single leg hipthrusts' )
G_H_tie_in <- c('stomp downs' )
저는 각 벡터에서 1 개 또는 2 개의 연습 문제를 골라서 인쇄 할 코드를 작성하고 싶습니다. 이것에 가장 적합한 기능은 무엇입니까?
sample
당신이 필요하다고 생각하는 것입니다.
set.seed(42) # R-4.0.2
sample(Compound_movements, size = 1)
# [1] "Hip thrust"
sample(Compound_movements, size = 1)
# [1] "Hip thrust"
sample(Compound_movements, size = 1)
# [1] "Hip thrust"
sample(Compound_movements, size = 1)
# [1] "Hip thrust"
sample(Compound_movements, size = 1)
# [1] "Squat"
(네, 분명히 네 번 연속으로 엉덩이 쓰러 스트를 할 것입니다 ... 무작위는 무작위입니다.)
운동 목록에 저장되어있는 경우 다음과 같이 각각에서 하나를 선택할 수 있습니다.
lst_of_exercises <- list(
Compound_movements = c('Hip thrust', 'Squat', 'Deadlift'),
Abduction = c('cable aduction', 'lying plated aduction'),
Upper = c('good mornings', 'kneeling squat'),
Maxiums = c('smith machine kick backs', 'cable kickbacks', 'single leg hipthrusts' ),
G_H_tie_in = c('stomp downs' )
)
sapply(lst_of_exercises, sample, size = 1)
# Compound_movements Abduction Upper Maxiums G_H_tie_in
# "Squat" "lying plated aduction" "good mornings" "single leg hipthrusts" "stomp downs"
그리고 모두에 대해 동일한 번호 이외의 작업을 수행해야하는 경우 (예 : 한 그룹 중 2 개, 다른 그룹 중 1 개)
Map(sample, lst_of_exercises, size = c(1,1,1,2,1))
# $Compound_movements
# [1] "Deadlift"
# $Abduction
# [1] "lying plated aduction"
# $Upper
# [1] "good mornings"
# $Maxiums
# [1] "smith machine kick backs" "cable kickbacks"
# $G_H_tie_in
# [1] "stomp downs"
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다