data.frame内の単一の列の名前を変更するにはどうすればよいですか？

2列以上のデータフレームがある場合は、

colnames(x) <- c("col1","col2")

列の名前を変更します。列が1つだけの場合、どうすればよいですか？1列のみのベクトルまたはデータフレームを意味します。

例：

trSamp <- data.frame(sample(trainer$index, 10000))
head(trSamp )
#   sample.trainer.index..10000.
# 1                      5907862
# 2                      2181266
# 3                      7368504
# 4                      1949790
# 5                      3475174
# 6                      6062879

ncol(trSamp)
# [1] 1
class(trSamp)
# [1] "data.frame"
class(trSamp[1])
# [1] "data.frame"
class(trSamp[,1])
# [1] "numeric"
colnames(trSamp)[2] <- "newname2"
# Error in names(x) <- value : 
#   'names' attribute [2] must be the same length as the vector [1]

colnames(trSamp)[2] <- "newname2"

2番目の列の名前を設定しようとします。オブジェクトには列が1つしかないため、コマンドはエラーをスローします。これで十分です：

colnames(trSamp) <- "newname2"

これは、変数の正確な場所を覚えておく必要がない一般的な方法です。

# df = dataframe
# old.var.name = The name you don't like anymore
# new.var.name = The name you want to get

names(df)[names(df) == 'old.var.name'] <- 'new.var.name'

このコードは、ほぼ次のことを行います。

1. names(df) のすべての名前を調べます df
2. [names(df) == old.var.name] チェックしたい変数名を抽出します
3. <- 'new.var.name' 新しい変数名を割り当てます。

colnames(df)[colnames(df) == 'oldName'] <- 'newName'

これは古い質問ですがsetnames、data.tableパッケージから使用できるようになったことは注目に値します。

library(data.table)

setnames(DF, "oldName", "newName")

# or since the data.frame in question is just one column: 
setnames(DF, "newName")

# And for reference's sake, in general (more than once column)
nms <- c("col1.name", "col2.name", etc...)
setnames(DF, nms)

これはplyr、Hadleyのパッケージとrename関数を使用して行うこともできます。

library(plyr) 
df <- data.frame(foo=rnorm(1000)) 
df <- rename(df,c('foo'='samples'))

名前で名前を変更でき（位置がわからない）、一度に複数の名前変更を実行できます。たとえば、マージを行った後、次のようになる可能性があります。

  letterid id.x id.y
1       70    2    1
2      116    6    5
3      116    6    4
4      116    6    3
5      766   14    9
6      766   14   13

次のコマンドを使用して、1つの手順で名前を変更できます。

letters <- rename(letters,c("id.x" = "source", "id.y" = "target"))

  letterid source target
1       70      2      1
2      116      6      5
3      116      6      4
4      116      6      3
5      766     14      9
6      766     14     13

列の名前を変更する最良の方法は、次のようなdplyrパッケージを使用することです。

require(dplyr)
df = rename(df, new_col01 = old_col01, new_col02 = old_col02, ...)

データセット内の1つまたは複数の列の名前を変更する場合も同様に機能します。

データフレームの列名を1つずつ変更する次のスタイルが好きです。

colnames(df)[which(colnames(df) == 'old_colname')] <- 'new_colname'

どこ

which(colnames(df) == 'old_colname')

特定の列のインデックスによって返されます。

私は、単一の列の名前を変更するための最も便利な方法は、使用していることがわかりますdplyr::rename_at。

library(dplyr)
cars %>% rename_at("speed",~"new") %>% head     
cars %>% rename_at(vars(speed),~"new") %>% head
cars %>% rename_at(1,~"new") %>% head

#   new dist
# 1   4    2
# 2   4   10
# 3   7    4
# 4   7   22
# 5   8   16
# 6   9   10

• パイプチェーンでうまく機能します
• 名前が変数に格納されている場合に便利
• 名前または列インデックスで機能します
• 明確でコンパクト

あなたは使用することができますrename.varsにgdataパッケージ。

library(gdata)
df <- rename.vars(df, from = "oldname", to = "newname")

これは、変更する変数名が複数ある場合、または変数名にテキストを追加またはプリペンドする場合に特に便利です。次のようなことができます。

df <- rename.vars(df, from = c("old1", "old2", "old3", 
         to = c("new1", "new2", "new3"))

変数名のサブセットにテキストを追加する例については、https：//stackoverflow.com/a/28870000/180892を参照して ください。

試してください：

colnames(x)[2] <- 'newname2'

これはおそらくすでに存在していますが、解決策を探しながらフィールドの名前を変更して遊んでいたところ、気まぐれで試してみました。私の目的のために働いた。

Table1$FieldNewName <- Table1$FieldOldName
Table1$FieldOldName <- NULL

ここから編集が始まります...

これも機能します。

df <- rename(df, c("oldColName" = "newColName"))

データフレームに列が1つしかないことがわかっている場合は、以下を使用できます。 names(trSamp) <- "newname2"

'Hmisc'パッケージから 'upData'を試すこともできます。

library(Hmisc)

trSamp = upData(trSamp, rename=c(sample.trainer.index..10000. = 'newname2'))

OPの質問はよく、真に答えられています。ただし、これはいくつかの状況で役立つかもしれないトリックです：データフレーム内の位置に関係なく、列名の部分一致：

名前の部分一致：

d <- data.frame(name1 = NA, Reported.Cases..WHO..2011. = NA, name3 = NA)
##   name1 Reported.Cases..WHO..2011. name3
## 1    NA                         NA    NA
names(d)[grepl("Reported", names(d))] <- "name2"
##   name1 name2 name3
## 1    NA    NA    NA

別の例：「句読点」の存在に関する部分一致：

d <- data.frame(name1 = NA, Reported.Cases..WHO..2011. = NA, name3 = NA)
##   name1 Reported.Cases..WHO..2011. name3
## 1    NA                         NA    NA
names(d)[grepl("[[:punct:]]", names(d))] <- "name2"
##   name1 name2 name3
## 1    NA    NA    NA

これらは私が今日対処しなければならなかった例であり、共有する価値があるかもしれないと思いました。

私はcolnames()議論が簡単である と思いましたhttps://www.rdocumentation.org/packages/base/versions/3.6.2/topics/row%2Bcolnames

データフレームから列を選択する

df <- data.frame(df[, c( "hhid","b1005", "b1012_imp", "b3004a")])

選択した列の名前を順番に変更し、

colnames(df) <- c("hhid", "income", "cost", "credit")

名前と値を確認してください

names(df);head(df)

rename_with関数を使用して、列の名前を変更できます（stringr関数など）。

次のデータを検討してくださいdf_1。

df_1 <- data.frame(
  x = replicate(n = 3, expr = rnorm(n = 3, mean = 10, sd = 1)), 
  y = sample(x = 1:2, size = 10, replace = TRUE)
)

names(df_1)

#[1] "x.1" "x.2" "x.3" "y" 

名前を変更し、すべての変数をとdplyr::everything()：

library(tidyverse)

df_1 %>% 
  rename_with(.data = ., .cols = everything(.), 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "var_1" "var_2" "var_3" "var_4"

で名前を変更名前粒子いくつかとdplyr動詞（starts_with、ends_with、contains、matches、...）。

.（x変数）の例：

df_1 %>% 
  rename_with(.data = ., .cols = contains('.'), 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "var_1" "var_2" "var_3" "y"

で名前を変更したクラスのように、クラスのテストの多くの機能とis.integer、is.numeric、is.factor...

is.integer（y）の例：

df_1 %>% 
  rename_with(.data = ., .cols = is.integer, 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "x.1"   "x.2"   "x.3"   "var_1"

警告：

警告メッセージ：1：stri_replace_first_regex（string、pattern、fix_replacement（replacement））：長いオブジェクトの長さは短いオブジェクトの長さの倍数ではない2：in names [cols] <-.fn（names [cols]、...） ：交換するアイテムの数が交換する長さの倍数ではありません

これはseq_along(.)、replace関数との不整合にすぎないため、関係ありません。

必要な名前で新しい列をデータフレームに追加し、その列のデータを既存の列から取得します。このような：

dataf$value=dataf$Article1Order

次に、古い列を削除します。このような：

dataf$Article1Order<-NULL

このコードはばかげているように見えるかもしれません！しかし、それは完全に動作します...

次のコードを使用して、列名を新しい名前のデータセットに変更するだけです 。names（dataset）[index_value] <-"new_col_name"

library(dplyr)
rename(data, de=de.y)