목록 목록이 있고 다음과 같이 동일한 수의 개체가 있습니다.
my_lists <- list(
second = c('foo','bar','potato'),
first = c(1,4,2),
third = data_frame(first_name = c(1,2,3),middle_name = c(34,5,3),
last_name = c(3,9,1))
)
my_lists
$second
[1] "foo" "bar" "potato"
$first
[1] 1 4 2
$third
# A tibble: 3 x 3
first_name middle_name last_name
<dbl> <dbl> <dbl>
1 1 34 3
2 2 5 9
3 3 3 1
다음과 같이 표시하기 위해 각 목록의 항목을 재정렬하고 싶습니다.
$name1
[1] "bar" "foo" "potato"
$name2
[1] 4 1 2
$name3
# A tibble: 3 x 3
middle_name first_name last_name
<dbl> <dbl> <dbl>
1 34 1 3
2 5 2 9
3 3 3 1
인덱싱을 사용하여 다른 할당 새 주문을 시도했지만 목록을 죽일 수만있었습니다.
감사.
우리는 할 수 있습니다
lapply(my_lists, function(x) if(is.vector(x)) sort(x) else
x %>%
select(sort(names(.), decreasing = TRUE)))
맞춤 주문 인 경우
lapply(my_lists, `[`, c(3, 2, 1))
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다