r - 在小标题中选择一个具有正确尺寸的矩阵

Question

我有一个像这样的小标题

dataf <- as_tibble( matrix(rnorm(12,0,1),nrow=4,ncol=3))

它的维度是4-by-3

我创建了一个新列，它本身就是一个矩阵：

dataf <- dataf %>% mutate(A = matrix(rnorm(8,0,1),nrow=4,ncol=2))

虽然A是一个4-by-2矩阵，但它的维数dataf是4-by-4。

我希望

dataf %>% select(A)

返回一个4-by-2小标题，以便我可以为每一列设置名称。但是，此命令仍然返回一个4-by-1tibble。

所以我的问题是这个select函数如何返回一个4-by-2小标题？谢谢！

标签： rdplyrtidyverse

Answer 1

将矩阵包裹在I()

    dataf <- as_tibble( matrix(rnorm(12,0,1),nrow=4,ncol=3))
    dataf <- dataf %>% mutate(A = I(matrix(rnorm(8,0,1),nrow=4,ncol=2)))
    dataf %>% select(A) %>% as.matrix

如果可以接受，则必须调用as.matrix它以获取实际矩阵