Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/65.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将数据帧转换为m x n表_R_Dataframe - Fatal编程技术网

R 将数据帧转换为m x n表

R 将数据帧转换为m x n表,r,dataframe,R,Dataframe,我想将我的dataframe转换成mxn表。 我的原始数据简化版本的代码和视图如下: set.seed(1) dat <- data.frame(x = rep(c("A","B","C","D","E"),2), y = c("R","S",rep(c("P","Q","R","S"),2)), val = sample(2:20,10)) x y val 1 A R 7 2 B S 8 3 C

我想将我的
dataframe
转换成
mxn
表。 我的原始数据简化版本的代码和视图如下:

set.seed(1)
dat <- data.frame(x = rep(c("A","B","C","D","E"),2),
                  y = c("R","S",rep(c("P","Q","R","S"),2)),
                  val = sample(2:20,10))

   x y val
1  A R   7
2  B S   8
3  C P  11
4  D Q  16
5  E R   5
6  A S  14
7  B P  15
8  C Q   9
9  D R  19
10 E S   2
set.seed(1)
dat您可以从
数据中使用
dcast()

library(data.table)
set.seed(1)
dat <- data.frame(x = rep(c("A","B","C","D","E"),2),
                  y = c("R","S",rep(c("P","Q","R","S"),2)),
                  val = sample(2:20,10))


dcast(dat, x ~ y, value.var = "val")
  x  P  Q  R  S
1 A NA NA  7 14
2 B 15 NA NA  8
3 C 11  9 NA NA
4 D NA 16 19 NA
5 E NA NA  5  2
库(data.table)
种子(1)
dat您可以从
数据中使用
dcast()

library(data.table)
set.seed(1)
dat <- data.frame(x = rep(c("A","B","C","D","E"),2),
                  y = c("R","S",rep(c("P","Q","R","S"),2)),
                  val = sample(2:20,10))


dcast(dat, x ~ y, value.var = "val")
  x  P  Q  R  S
1 A NA NA  7 14
2 B 15 NA NA  8
3 C 11  9 NA NA
4 D NA 16 19 NA
5 E NA NA  5  2
库(data.table)
种子(1)
dat Try
库(tidyverse);dat%>%排列(y,val)
Try
library(tidyverse);dat%>%价差(y,val)