리스트의 모든 행렬을 data.frames로 변환 R

Question

lme의 출력이 R에 있습니다. 시피

library(nlme) 
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1) 
str(fm2) 

출력 (fm2)의 일부 요소는 예컨대 매트릭스 fm2$varFix

개체를 허용하고 모든 부분 행렬을 data.frames으로 변환하는 함수를 찾고 있습니다.

Answer 1

어쩌면이 같은

:

lapply(fm2, function(x) {if(any(class(x)=="matrix")) as.data.frame(x) else x}) 

---

편집 :이 답변이 이미 허용되어 있지만이 반복적으로 목록에있는 행렬을 변환하지 않기 때문에, 나는이 솔루션에 만족하지 않았다 및 요소의 속성이 손실됩니다. 다음 해결책으로 두 문제를 해결할 수 있다고 생각합니다.

library(nlme) 
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1) 
str(fm2) 

replace_sub_dataframes <- function(x) 
{ 
    if(any(class(x)=="list")) 
    { 
    x_copy = x 
    attrs = setdiff(names(attributes(x)),"names") 
    x = lapply(x,replace_sub_dataframes) 
    if(length(attrs)>0) 
    { 
     for(i in 1:length(attrs)) 
     { 
     attr(x,attrs[i]) <- replace_sub_dataframes(attr(x_copy,attrs[i])) 
     } 
    } 
    return(x) 
    } 
    else 
    { 
    if(any(class(x)=="matrix")) 
     return(as.data.frame(x)) 
    else 
     return(x) 
    } 
} 

fm3 = lapply(fm2, replace_sub_dataframes)