主页 / coding / 问题 / 79007003
Accepted
Lennon Lee
Asked: 2024-09-20 21:38:04 +0800 CST

使用 rbind 时，r 数据框和矩阵会产生不同的行名

  • 772

方法 1：

df1<-data.frame(A=1:5,B=2:6)
df2<-data.frame(A=1:5,B=2:6)
df3<-rbind(df1,df2)
row.names(df3)
 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

方法 2：

df1<-data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(c(1:5),c("A","B"))))
df2<-data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(c(1:5),c("A","B"))))
df3<-rbind(df1,df2)
row.names(df3)
 [1] "1"  "2"  "3"  "4"  "5"  "11" "21" "31" "41" "51"

我理解行名应该是唯一的值，我想知道为什么方法 1 和方法 2 会在行名中产生不同的结果？

3 个回答

  1. Best Answer

    在方法 1中，行名称是整数

    df1 <- data.frame(A=1:5,B=2:6)
df2 <- data.frame(A=1:5,B=2:6)

dput(df1)
structure(list(A = 1:5, B = 2:6), class = "data.frame", row.names = c(NA,
-5L))

# or
attr(df1, "row.names")
[1] 1 2 3 4 5

    并且它们在之后保持整数rbind

    df3 <- rbind(df1, df2)

dput(df3)
structure(list(A = c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L),
    B = c(2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L)), row.names = c(NA,
-10L), class = "data.frame")

    在方法 2中，行名称是字符串

    df1 <- data.frame(matrix(data = c(1:5,2:6),
                         nrow = 5,
                         dimnames = list(c(1:5),c("A","B"))))
df2 <- data.frame(matrix(data = c(1:5,2:6),
                         nrow = 5,
                         dimnames = list(c(1:5),c("A","B"))))

dput(df1)
structure(list(A = 1:5, B = 2:6), class = "data.frame", row.names = c("1",
"2", "3", "4", "5"))

# or
attr(df1, "row.names")
[1] "1" "2" "3" "4" "5"

    并且它们仍然是原始类，字符串（字符），之后rbind

    df3 <- rbind(df1, df2)

dput(df3)
structure(list(A = c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L),
    B = c(2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L)), row.names = c("1",
"2", "3", "4", "5", "11", "21", "31", "41", "51"), class = "data.frame")

    字符串无法被枚举，因此通过在字符串中添加索引使它们变得唯一。

    row.names=NULL您可以在从具有给定行名的矩阵创建数据框时通过添加来使两者相等。

    df1 <- data.frame(matrix(data = c(1:5,2:6),
                         nrow = 5,
                         dimnames = list(c(1:5),c("A","B"))), row.names=NULL)

dput(df1)
structure(list(A = 1:5, B = 2:6), class = "data.frame", row.names = c(NA,
-5L))
    • 6

  2. 我认为@Andre Wildberg已经对“为什么第二种方法与第一种方法不一样”做出了详细的解释。

    以下只是一个简单的解决方法，用于list2DF过滤掉原始row.name信息

    > rbind(list2DF(df1), list2DF(df2))
   A B
1  1 2
2  2 3
3  3 4
4  4 5
5  5 6
6  1 2
7  2 3
8  3 4
9  4 5
10 5 6

    或者rbind像下面这样调用

    > do.call(rbind, list(df1, df2, make.row.names = FALSE))
   A B
1  1 2
2  2 3
3  3 4
4  4 5
5  5 6
6  1 2
7  2 3
8  3 4
9  4 5
10 5 6
    • 1

  3. 您可以使用它.row_names_info来获取“数据框行名的内部形式的信息”。当其type参数为 1（默认值）时，它会返回行数，“‘自动’行名带有负号”，如您的第一个示例所示。对于用户生成的名称，它会返回一个正数，如您的第二个示例所示。

    虽然原始数据框的打印行名相同，但是在行绑定时，“自动”和用户定义行名的不同内部表示会被区别处理。

    # automatic row names
df1 <- data.frame(A = 1:5, B = 2:6)
df2 <- data.frame(A = 1:5, B = 2:6)

df1_2 <- rbind(df1, df2)

# row names provided by user
df3 <- data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(1:5, c("A","B"))))
df4 <- data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(1:5, c("A","B"))))

df3_4 <- rbind(df3, df4)

.row_names_info(df1)
# [1] -5

.row_names_info(df2)
# [1] -5

.row_names_info(df1_2)
# [1] -10

.row_names_info(df3)
# [1] 5

.row_names_info(df4)
# [1] 5

.row_names_info(df3_4)
# [1] 10

    另一个示例是调用中没有行名matrix，这会导致调用中自动出现行名data.frame；因此.row_names_info导致负数：

    df3 <- data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(NULL, c("A","B"))))
df4 <- data.frame(matrix(data = c(1:5,2:6),
                       nrow = 5,
                       dimnames = list(NULL, c("A","B"))))

df3_4 <- rbind(df3, df4)

.row_names_info(df3_4)
# [1] -10
    • 0

相关问题