主页 / coding / 问题 / 79599389
Accepted
Thomas Philips
Asked: 2025-04-30 09:07:46 +0800 CST

使用本机管道对 R 数据框的行进行重新排序

  • 772

最小示例

df <- data.frame(x = c(10, NA, 30, 40, 50),                  
                  y = c(10, 20, NA, 40, 50))

df <- df |>
       na.omit() |>
       `colnames<-`(c("You", "Me")) 
>df
      You Me
    1  10 10
    4  40 40
    5  50 50

我想将过滤后的数据框的行重新排序，使其从 1 到行数。我知道可以这样写

> rownames(df) <- NULL
> df
  You Me
1  10 10
2  40 40
3  50 50

如何使用基本 R 管道实现与 colnames 相同的目的？

提前致谢

托马斯·菲利普斯

5 个回答

  1. Best Answer

    也是一样的rownames，也就是说你可以这样做

    df <- df |>
  na.omit() |>
  `colnames<-`(c("You", "Me")) |> 
  `rownames<-`(NULL)

df
#>   You Me
#> 1  10 10
#> 2  40 40
#> 3  50 50

    创建于 2025-04-30，使用reprex v2.1.1 `

    • 6

  2. 使用`dimnames<-`()，您可以一步完成此操作。

    > df |>
+   na.omit() |>
+   `dimnames<-`(list(1:3, c("You", "Me"))) 
  You Me
1  10 10
2  40 40
3  50 50
attr(,"na.action")
[1] 2 3
attr(,"class")
[1] "omit"

    —并且它不会删除属性！:)

    请注意，您使用的rownames()和 colnames()实际上是为“类似矩阵”的对象设计的，并且在内部调用dimnames()[[1]]和names()/ setNames()。不过，也有等效的数据框函数——row.names()和setNames()——：

    > df |>
+   na.omit() |>
+   setNames(c("You", "Me")) |> 
+   `row.names<-`(NULL)
  You Me
1  10 10
2  40 40
3  50 50

    附注： 默认保留行名实际上非常有用，而且是一项特权。有些包（甚至整个Universe）会默认删除行名。

    • 4

  3. 如果你使用或，则不需要被setNames或打扰，例如，row.namesas.data.frame.list()list2DF()

    > df |>
+   na.omit() |>
+   list2DF()
   x  y
1 10 10
2 40 40
3 50 5

    或者

    > df |>
+   na.omit() |>
+   as.data.frame.list()
   x  y
1 10 10
2 40 40
3 50 50

    背后的技巧是，他们将data.frame视为list，它没有“行名”的概念，然后将对象重新构造为data.frame。

    • 4

  4. data.frame有一个参数row.names。作为 colnames/names 的替代，可以使用setNames

    df |>
  na.omit() |>
  data.frame(row.names = NULL) |>
  setNames(c("You", "Me"))
  You Me
1  10 10
2  40 40
3  50 50

    请注意，这data.frame将创建一个干净的数据框对象，不包含任何可能由先前操作遗留的属性。在大多数情况下，这可能被视为一种优势，但有时并非如此。

    • 2

  5. 有时清晰比聪明更重要。

    df <- df |>
  na.omit() |>
  setNames(c("You", "Me")) |>
  reset_rownames()

#   You Me
# 1  10 10
# 2  40 40
# 3  50 50

    在哪里

    reset_rownames <- function(x) {
  row.names(x) <- NULL
  x
}
    • 0

相关问题