r语言 怎样将数据框转换成表

Posted 2023-04-21

比如自带的HairEyeColor数据集，类型为table[1:4,1:4,1:2]，如图所示使用df_HairEyeColor <- as.data.frame(HairEyeColor)，将其转换为数据框然后我要怎样将df_HairEyeColor 变回原来的格式？用table(df_HairEyeColor[,c("Hair","Eye","Sex")]) 倒是把形状变回去了，但表里面的全是1，如图二
比如自带的HairEyeColor数据集，类型为table[1:4,1:4,1:2]，如图所示
使用df_HairEyeColor
<- as.data.frame(HairEyeColor)，将其转换为数据框
然后我要怎样将df_HairEyeColor
变回原来的格式？
用table(df_HairEyeColor[,c("Hair","Eye","Sex")])
倒是把形状变回去了，
但表里面的全是1，如图二

式1：xtabs(~Hair+Eye+Sex,data=df_HairEyeColor)

式2：xtabs(Freq~Hair+Eye+Sex,data=df_HairEyeColor)

两者你可以试试，发现式1返回的都是1，而式2是正确的。

Freq是转变为数据框后最后那列频数列。

建议参考Rstudio中关于xtabs函数的描述，以及最后那几个examples

参考技术A 用as.matrix, 如果数据类型都相符
> help(as.matrix)
> t<-read.delim("t.txt", header=T)
> t
t1 t2
1 1 2
2 15 33
> aMat<-as.matrix(t)
> aMat
t1 t2
[1,] 1 2
[2,] 15 33
> class(aMat)
[1] "matrix"

R语言清除数据框中含有-Inf和Inf数据的行

参考技术A x[rowSums(abs(x)==Inf)==0,,drop=F]