将R数据帧从长格式转换为宽格式,但组大小不相等,以用于QCC [英] Convert R dataframe from long to wide format, but with unequal group sizes, for use with qcc
本文介绍了将R数据帧从长格式转换为宽格式,但组大小不相等,以用于QCC的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我要将数据帧从长格式转换为宽格式,但组大小不相等。
最终将在‘QCC’中使用,它需要一个数据帧或矩阵,每行由一组组成,在样本较少的组中使用NA。
以下代码将创建一个示例数据集,并显示手动转换为所需格式的过程。
# This is an example of the initial data that I have
# * 10 sample measurements, over 3 groups with 3, 2, and 5 elements respectively
x <- rnorm(10)
x_df <- data.frame( time = c( rep('2001 Q1',3), rep('2001 Q2',2), rep('2001 Q3',5) ), measure = x )
x_df
# This is a manual conversion into the desired format
x_pad <- c( x[1:3], NA, NA, x[4:5], NA, NA, NA, x[6:10] )
x_matrix <- matrix( x_pad, nrow = 3, ncol = 5, byrow = TRUE, dimnames = list(c('2001 Q1','2001 Q2','2001 Q3')) )
x_matrix # desired format
# An example of how it will be used
library(qcc)
plot(qcc(x_matrix, type = 'xbar', plot = FALSE))
因此,我想将其转换为:
time measure
1 2001 Q1 0.14680685
2 2001 Q1 0.53593193
3 2001 Q1 0.56097974
4 2001 Q2 -1.48102689
5 2001 Q2 0.18150972
6 2001 Q3 1.72018147
7 2001 Q3 -0.08480855
8 2001 Q3 -2.23208877
9 2001 Q3 -1.15269107
10 2001 Q3 0.57975023
.至此...
[,1] [,2] [,3] [,4] [,5]
2001 Q1 0.1468068 0.53593193 0.5609797 NA NA
2001 Q2 -1.4810269 0.18150972 NA NA NA
2001 Q3 1.7201815 -0.08480855 -2.2320888 -1.152691 0.5797502
可能有一个简单的方法(也许是一些我不熟悉的重塑或重塑角色的用法?),但到目前为止,一堆搜索都没有帮助。
谢谢您的帮助!
=
以下解决方案之一将生成最终的QCC xbar图,包括组标签:
library(splitstackshape)
out_df <- dcast( getanID( x_df, 'time' ), time~.id, value.var='measure' )
qcc( out_df[,-1], type = 'xbar', labels = out_df[,1] )
推荐答案
可以使用getanID
从splitstackshape
创建序列列(‘.id’),并使用dcast
从data.table
将长格式转换为宽格式。splitstackshape
的输出是一个data.table。当我们加载splitstackshape
时,data.table也将被加载。因此,如果您已经有了data.table的devel版本,那么dcast
中的dcast
也可以使用。
library(splitstackshape)
dcast(getanID(df1, 'time'), time~.id, value.var='measure')
# time 1 2 3 4 5
#1: 2001 Q1 0.1468068 0.53593193 0.5609797 NA NA
#2: 2001 Q2 -1.4810269 0.18150972 NA NA NA
#3: 2001 Q3 1.7201815 -0.08480855 -2.2320888 -1.152691 0.5797502
更新
正如@snoram在评论中提到的,data.table
中的函数rowid
使data.table
更易于单独使用
library(data.table)
dcast(setDT(df1), time ~ rowid(time), value.var = "measure")
这篇关于将R数据帧从长格式转换为宽格式,但组大小不相等,以用于QCC的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文