矩阵 Table 与 R
Matrix Table with R
我正在尝试获取结构,其中 Location 是唯一行,Lab 是唯一行,而帐户位于矩阵内。
我试过表格,但还没有做到 100% 正确。
最终结果:
sample:
structure(list(Location = c(1001, 1001, 1001, 1002, 1002, 1002,
1003, 1003), Lab = c(1, 2, 3, 1, 2, 3, 1, 2), Account = c(53127,
28724, 23646, 53128, 28725, 23647, 53130, 28727)), row.names = c(NA,
-8L), class = c("tbl_df", "tbl", "data.frame"))
如果我们需要 matrix
,则使用 base R
中的 xtabs
xtabs(Account ~ Location + Lab, df1)
或者从tidyr
考虑pivot_wider
,然后转换为matrix
library(tidyr)
library(tibble)
library(dplyr)
df1 %>%
pivot_wider(names_from = Lab, values_from = Account) %>%
column_to_rownames('Location') %>%
as.matrix
我正在尝试获取结构,其中 Location 是唯一行,Lab 是唯一行,而帐户位于矩阵内。
我试过表格,但还没有做到 100% 正确。
最终结果:
sample:
structure(list(Location = c(1001, 1001, 1001, 1002, 1002, 1002,
1003, 1003), Lab = c(1, 2, 3, 1, 2, 3, 1, 2), Account = c(53127,
28724, 23646, 53128, 28725, 23647, 53130, 28727)), row.names = c(NA,
-8L), class = c("tbl_df", "tbl", "data.frame"))
如果我们需要 matrix
,则使用 base R
xtabs
xtabs(Account ~ Location + Lab, df1)
或者从tidyr
考虑pivot_wider
,然后转换为matrix
library(tidyr)
library(tibble)
library(dplyr)
df1 %>%
pivot_wider(names_from = Lab, values_from = Account) %>%
column_to_rownames('Location') %>%
as.matrix