主页 / coding / 问题 / 79367833
Accepted
ivo Welch
Asked: 2025-01-19 03:27:35 +0800 CST

当“在”内时，R 数据框上的列下标重复

  • 772

在 R 版本 4.4.2 (2024-10-31) 下 -- “Pile of Leaves”，最新的 macos

$ R --vanilla
> load(file="tttdf")
> str(ttt)
'data.frame':   3 obs. of  17 variables:
 $ .mn.r      : num  0 0 0
 $ .sd.r      : num  0 0 0
 $ .mn.g      : num  0 0 0
 $ .sd.g      : num  0 0 0
 $ .cor.r.g   : num  1 1 1
 $ sep        : num  -1 -1 -1
 $ beta.g.ldp : num  0 0 0
 $ beta.dp.ldp: num  1 1 1
 $ beta.r.ldp : num  0 0 0
 $ sep        : num  -2 -2 -2
 $ lastdpr    : num  -3 -5 -6
 $ declinedpr : num  0 2 3
 $ sep        : num  -3 -3 -3
 $ beta.r.lr  : num  0 0 0
 $ beta.g.lg  : num  0 0 0
 $ beta.g.lr  : num  0 0 0
 $ beta.r.lg  : num  0 0 0

ttt <- within(ttt, hello <- 22)

Error in `[<-.data.frame`(`*tmp*`, nl, value = list(hello = 22, .mn.r = c(0,  : 
  duplicate subscripts for columns
> ## make it work
> xxx <- ttt[,1:ncol(ttt)]
> xxx <- within(xxx, hello <- 22)

我不知道是什么原因造成的。这就是为什么我无法缩短示例——例如，通过删除列。

1 个回答

  1. Best Answer

    该sep列重复。使用ttt[, 1:ncol(ttt)]自动修复列名对数据框进行子集设置可解决该问题。

    在以下示例中，我创建了一个具有两个相同列名的数据框。它会产生与您遇到的相同错误。当我对列进行子集化时，它们的名称是固定的。

    df <- data.frame(a = 1, a = 2, check.names = FALSE)

within(df, hello <- 22)
# Error in `[<-.data.frame`(`*tmp*`, nl, value = list(hello = 22, a = 1,  : 
#  duplicate subscripts for columns

df[1:ncol(df)]
#   a a.1
# 1 1   2

    解释：

    子集生成唯一名称的行为记录在 中help(`[.data.frame`)；如果需要（例如，如果多次选择列，或者如果数据框具有重复的列名，则选择多个给定名称的列），则列名将转换为唯一。另请参阅哪些还会生成“有效”名称。make.unique() help(make.names)

    > make.unique(names(df))
[1] "a"   "a.1"
    • 6

相关问题