我可以控制as_tibble或as.data.frame如何处理R中的一维数据吗？

问题描述

在过滤后需要将矩阵转换为数据帧/小标题时，我的代码中出现了一些不良行为。通常情况下，它运行良好，但是当过滤后的矩阵只有一行时，它的表现却很奇怪-在这种情况下，它总是在生成的df中变成 column 。
我找到了问题所在，realized that my matrix was being coerced into a named vector by base::`[`（设置drop=F现在已经解决了我的问题）。

在了解drop参数之前，我发现as_tibble_row()可以很好地转换命名向量，但是反过来又无法转换我的大量数据矩阵且行多于一个。
然后，我在dplyr流程（my_data %>% {if(is.vector(.)){as_tibble_row(.)}else{as_tibble(.)}}）中遇到了一个丑陋的if-else，继续前进，但似乎我在这里错过了一些东西。

因此我的问题：

是否有as_tibble或as.data.frame的设置，可以让他们知道如何处理一维数据并表现得像as_tibble_row 在那种情况下？

（或者应该怪我没有控制我的数据类型，以至于我不知道我是在函数中传递矢量还是矩阵？）
我已经尝试了一些方法，但是as_tibble(my_data,.rows = 1)只是切断了向量，而as_tibble(matrix(my_data,nrow = 1,dimnames = list(NULL,names(my_data))))似乎太复杂了。另外，这仍然需要我知道我实际上必须按摩矢量...

解决方法

这是使用t来转置数据的一种方法。

x <- matrix(runif(16),nrow = 4,ncol = 4)
colnames(x) <- c("A","B","C","D")

x_df <- data.frame(t(x[1,])
          A         B        C         D
1 0.2875775 0.9404673 0.551435 0.6775706

library(tibble)
x_tbl <- as_tibble(t(x[1,]))
# A tibble: 1 x 4
      A     B     C     D
  <dbl> <dbl> <dbl> <dbl>
1 0.288 0.940 0.551 0.678

dataframe r r tibble vector vector