我在R
中使用lme
函数并得到了输出结果。
library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
str(fm2)
如您所见,输出的一些元素(fm2
)是矩阵,例如fm2$varFix
我正在寻找一个函数,可以接受一个对象并将所有子矩阵转换为data.frames
。
可能就像这样:
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)
class(lapply(fm2, function(x) {if(any(class(x)=="matrix")) as.data.frame(x) else x})$varFix) [1] "data.frame" class(fm2$varFix) "matrix"
不错的解决方案! - Erdogan CEVHER
broom::tidy(fm2)
。 - akrun