Início / coding / Perguntas / 79308189
Accepted
RobertF
Asked: 2024-12-26 03:00:48 +0800 CST

Como fazer referência ao nome da variável no quadro de dados R se a coluna não tiver cabeçalho?

  • 772

Estou usando a nearZeroVarfunção Rpara identificar variáveis ​​de variância zero no meu conjunto de dados de análise.

Um exemplo do meu código:

train1_nzv_y0 <- nearZeroVar(train1[train1$y=="no",], saveMetrics= TRUE)
train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",]
           freqRatio percentUnique zeroVar  nzv
x1                 0  0.0001649599    TRUE TRUE
x2                 0  0.0001649599    TRUE TRUE
x3                 0  0.0001649599    TRUE TRUE
x4                 0  0.0001649599    TRUE TRUE

Depois de produzir o quadro de dados train1_nzv_y0, gostaria de extrair uma lista dos nomes de variáveis ​​x1-x4 que foram identificadas como variáveis ​​de variância zero.

Entretanto, não há cabeçalho de coluna para os nomes das variáveis ​​- eles estão "flutuando" na frente da minha primeira coluna (freqRatio), mas não há como identificá-los.

Existe algum truque padrão Rpara se referir a colunas fantasmas com cabeçalhos ausentes?

1 respostas

  1. Best Answer

    Eles são os nomes das linhas, então você pode usar rownames()para obter esses nomes de variáveis:

    rownames(train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",])

    Isso retornará um vetor de caracteres contendo "x1", "x2", "x3", "x4".

    Código

    #install.packages("caret")
library(caret)

# Create example dataset
set.seed(123)
train1 <- data.frame(
  y = sample(c("yes", "no"), 100, replace=TRUE),
  x1 = c(rep(0, 50), rep(NA, 50)),  # zero variance for "no" class
  x2 = c(rep(0, 50), rep(1, 50)),   # normal variance
  x3 = c(rep(0, 50), rep(NA, 50)),  # zero variance for "no" class
  x4 = 1:100                         # normal variance
)

train1_nzv_y0 <- nearZeroVar(train1[train1$y=="no",], saveMetrics=TRUE)
train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",]    
rownames(train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",])

    Saída:

    > train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",]
   freqRatio percentUnique zeroVar  nzv
y          0      2.325581    TRUE TRUE
x1         0      2.325581    TRUE TRUE
x3         0      2.325581    TRUE TRUE
> 
> rownames(train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",])
[1] "y"  "x1" "x3"
    • 3

relate perguntas