[英]How to rename a single column in a data.frame?
我知道如果我有一个多于 1 列的数据框,我可以使用
colnames(x) <- c("col1","col2")
重命名列。 如果它只是一列,我该怎么做? 意味着其中只有一列的向量或数据框。
例子:
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]
这是一种通用的方式,您不必记住变量的确切位置:
# 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'
此代码几乎执行以下操作:
names(df)
的外观到在所有的名字df
[names(df) == old.var.name]
提取你要检查的变量名<- 'new.var.name'
分配新的变量名。colnames(trSamp)[2] <- "newname2"
尝试设置第二列的名称。 您的对象只有一列,因此该命令会引发错误。 这应该足够了:
colnames(trSamp) <- "newname2"
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)
这也可以使用 Hadley 的plyr
包和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
然后您可以使用以下方法一步重命名:
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, ...)
对于重命名任何数据集中的一列或多列,它的工作原理相同。
我发现重命名单个列的最方便的方法是使用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
我喜欢下一个样式,用于逐个重命名数据框列名称。
colnames(df)[which(colnames(df) == 'old_colname')] <- 'new_colname'
在哪里
which(colnames(df) == 'old_colname')
按特定列的索引返回。
您可以使用gdata
包中的rename.vars
。
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
让 df 成为您的数据框,col 名称为 myDays 和 temp。 如果要将“myDays”重命名为“Date”,
library(plyr)
rename(df,c("myDays" = "Date"))
或者用管道,你可以
dfNew <- df %>%
plyr::rename(c("myDays" = "Date"))
这可能已经存在了,但是我在寻找解决方案时正在重命名字段并一时兴起尝试了这个。 为我的目的工作。
Table1$FieldNewName <- Table1$FieldOldName
Table1$FieldOldName <- NULL
编辑从这里开始......
这也有效。
df <- rename(df, c("oldColName" = "newColName"))
尝试:
colnames(x)[2] <- 'newname2'
您也可以尝试使用“Hmisc”包中的“upData”。
library(Hmisc)
trSamp = upData(trSamp, rename=c(sample.trainer.index..10000. = 'newname2'))
如果你知道你的数据names(trSamp) <- "newname2"
只有一列,你可以使用: names(trSamp) <- "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
这些是我今天必须处理的例子,我认为可能值得分享。
我只需使用我想要的名称向数据框中添加一个新列,并从现有列中获取它的数据。 像这样:
dataf$value=dataf$Article1Order
然后我删除旧列! 像这样:
dataf$Article1Order<-NULL
这段代码可能看起来很傻! 但它完美地工作......
我发现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:在 names[cols] <- .fn(names[cols], ...) : 要替换的项目数不是替换长度的倍数
它不相关,因为它只是seq_along(.)
与替换函数的不一致。
我只需使用以下代码将列名更改为具有我想要的新名称的数据集: names(dataset)[index_value] <- "new_col_name"
library(dplyr)
rename(data, de=de.y)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.