IT-Swarm.Net

Alterando os nomes das colunas de um quadro de dados

Eu tenho um quadro de dados chamado "newprice" (veja abaixo) e eu quero mudar os nomes das colunas no meu programa em R.

> newprice
   Chang.  Chang.   Chang.
1     100       36      136
2     120      -33       87
3     150       14      164

Na verdade, isso é o que estou fazendo:

names(newprice)[1]<-paste("premium")
names(newprice)[2]<-paste("change")
names(newprice)[3]<-paste("newprice") 

Eu não coloquei isso em um loop porque eu quero que cada nome de coluna seja diferente como você vê.

Quando eu colo meu programa no console R esta é a saída que me dá:

> names(newprice)[1]<-paste(“premium”)
Error: unexpected input in "names(newprice)[1]<-paste(“"
> names(newprice)[2]<-paste(“change”)
Error: unexpected input in "names(newprice)[2]<-paste(“"
> names(newprice)[3]<-paste(“newpremium”)
Error: unexpected input in "names(newprice)[3]<-paste(“"

Eu tentei igualmente usar a função c() por exemplo c("premium"), em vez da função paste(), mas sem sucesso.

Alguém poderia me ajudar a descobrir isso?

327
Son

Use a função colnames():

R> X <- data.frame(bad=1:3, worse=rnorm(3))
R> X
  bad     worse
1   1 -2.440467
2   2  1.320113
3   3 -0.306639
R> colnames(X) <- c("good", "better")
R> X
  good    better
1    1 -2.440467
2    2  1.320113
3    3 -0.306639

Você também pode subdividir:

R> colnames(X)[2] <- "superduper"
513
Dirk Eddelbuettel

Eu uso isso:

colnames(dataframe)[which(names(dataframe) == "columnName")] <- "newColumnName"
137
Matheus Abreu

O erro é causado pelas "citações inteligentes" (ou seja lá como forem chamadas). A lição aqui é: "não escreva seu código em um 'editor' que converta aspas em citações inteligentes".

names(newprice)[1]<-paste(“premium”)  # error
names(newprice)[1]<-paste("premium")  # works

Além disso, você não precisa de paste("premium") (a chamada para paste é redundante) e é uma boa ideia colocar espaços em volta de <- para evitar confusão (por exemplo, x <- -10; if(x<-3) "hi" else "bye"; x).

71
Joshua Ulrich

Você tentou apenas: 

names(newprice)[1]<-"premium"

?

40
Jamie

A nova maneira recomendada de fazer isso é usar a função setNames. Veja ?setNames. Como isso cria uma nova cópia do data.frame, certifique-se de atribuir o resultado ao data.frame original, se for essa a sua intenção.

data_frame <- setNames(data_frame, c("premium","change","newprice"))

Versões mais recentes do R avisarão se você usar colnames de algumas das maneiras sugeridas pelas respostas anteriores.

Se este fosse um data.table, você poderia usar a função data.tablesetnames, que pode modificar nomes de coluna específicos ou um único nome de coluna por referência :

setnames(data_table, "old-name", "new-name")
33
Scott C Wilson

Eu tive o mesmo problema e este pedaço de código funcionou para mim.

names(data)[names(data) == "oldVariableName"] <- "newVariableName"

Em suma, esse código faz o seguinte:

names(data) examina todos os nomes no dataframe (data)

[names(data) == oldVariableName] extrai o nome da variável (oldVariableName) que você deseja renomear e <- "newVariableName" atribui o novo nome da variável.

29
Desta Haileselassie Hagos

Semelhante aos outros:

cols <- c("premium","change","newprice")
colnames(dataframe) <- cols

Muito simples e fácil de modificar.

15
Adam Erickson

Se você precisar renomear não todas, mas várias colunas de uma só vez, quando souber apenas os nomes das colunas antigas, poderá usar a função colnames e o operador %in%. Exemplo:

df = data.frame(bad=1:3, worse=rnorm(3), worst=LETTERS[1:3])

   bad      worse    worst
1   1 -0.77915455       A
2   2  0.06717385       B
3   3 -0.02827242       C

Agora você quer mudar "ruim" e "pior" para "bom" e "melhor". Você pode usar 

colnames(df)[which(colnames(df) %in% c("bad","worst") )] <- c("good","best")

Isto resulta em 

  good      worse  best
1    1 -0.6010363    A
2    2  0.7336155    B
3    3  0.9435469    C
10
discipulus

Você pode apenas fazer a edição por:

newprice <- edit(newprice)

e altere o nome da coluna manualmente.

8
Baykal

experimentar:

names(newprice) <- c("premium", "change", "newprice")
7
ngamita

Meus nomes de coluna são como abaixo

colnames(t)
[1] "Class"    "Sex"      "Age"      "Survived" "Freq" 

Eu quero mudar o nome da coluna de classe e sexo

colnames(t)=c("STD","Gender","AGE","SURVIVED","FREQ")
5
Mehul Katara

Apenas para corrigir e estender ligeiramente a resposta de Scott Wilson.
Você pode usar a função setnames do data.table em data.frames também. 

Não espere a aceleração da operação, mas você pode esperar que a setnames seja mais eficiente para o consumo de memória, uma vez que atualiza os nomes das colunas por referência. Isso pode ser rastreado com a função address, veja abaixo. 

library(data.table)
set.seed(123)
n = 1e8

df = data.frame(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(df)
#[1] "0x208f9f00"
colnames(df) <- c("good", "better")
address(df)
#[1] "0x208fa1d8"
rm(df)

dt = data.table(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(dt)
#[1] "0x535c830"
setnames(dt, c("good", "better"))
address(dt)
#[1] "0x535c830"
rm(dt)

Então, se você está atingindo seus limites de memória, considere usá-lo.

5
jangorecki

Isso pode ser útil:

rename.columns=function(df,changelist){
  #renames columns of a dataframe
  for(i in 1:length(names(df))){
    if(length(changelist[[names(df)[i]]])>0){
      names(df)[i]= changelist[[names(df)[i]]]
    }
  }
  df
}

# Specify new dataframe
df=rename.columns(df,list(old.column='new.column.name'))
2
Chris

Caso tenhamos 2 dataframes os seguintes trabalhos

 DF1<-data.frame('a', 'b')
 DF2<-data.frame('c','d')

Nós mudamos nomes de DF1 como segue

 colnames(DF1)<- colnames(DF2)
1
Raghavan vmvs

Existem algumas opções com dplyr::rename() e dplyr::select():

library(dplyr)

mtcars %>% 
  tibble::rownames_to_column('car_model') %>%                            # convert rowname to a column. tibble must be installed.
  select(car_model, est_mpg = mpg, horse_power = hp, everything()) %>%   # rename specific columns and reorder
  rename(weight = wt, cylinders = cyl) %>%                               # another option for renaming specific columns that keeps everything by default
  head(2)
      car_model est_mpg horse_power cylinders disp drat weight  qsec vs am gear carb
1     Mazda RX4      21         110         6  160  3.9  2.620 16.46  0  1    4    4
2 Mazda RX4 Wag      21         110         6  160  3.9  2.875 17.02  0  1    4    4

Há também três variantes com escopo de dplyr::rename(): dplyr::rename_all() para todos os nomes de coluna, dplyr::rename_if() para nomes de coluna de segmentação condicional e dplyr::rename_at() para selecionar colunas nomeadas. O exemplo a seguir substitui espaços e pontos por um sublinhado e converte tudo para minúsculas:

iris %>%  
  rename_all(~gsub("\\s+|\\.", "_", .)) %>% 
  rename_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa

dplyr::select_all() também pode ser usado de maneira similar:

iris %>%  
  select_all(~gsub("\\s+|\\.", "_", .)) %>% 
  select_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
1
sbha

Use isso para alterar o nome da coluna pela função colname.

colnames(newprice)[1] = "premium"
colnames(newprice)[2] = "change"
colnames(newprice)[3] = "newprice"
0
Sophanna

Você poderia imediatamente ter feito 

names(newprice) <- c("premium","change","newprice")

O comando colar que você está usando leva 2 argumentos pelo menos. Ele funciona como função de concatenação no Excel, e é por isso que está lhe dando um erro, eu acho.

0
Aayush Agrawal