Ik vind de hernoemfunctie van plyr renameleuk. Ik ben onlangs begonnen met het gebruik van dplyr en vroeg me af of er een gemakkelijke manier is om variabelen te hernoemen met behulp van een functie van dplyr, die net zo gemakkelijk te gebruiken is als plyr’s rename?
Antwoord 1, autoriteit 100%
dplyr versie 0.3 heeft een nieuwe functie rename()toegevoegd die net als plyr::rename()werkt.
df <- rename(df, new_name = old_name)
Antwoord 2, autoriteit 31%
De volgende versie van dplyr ondersteunt een verbeterde versie van select die ook hernoemen bevat:
> mtcars2 <- select( mtcars, disp2 = disp )
> head( mtcars2 )
disp2
Mazda RX4 160
Mazda RX4 Wag 160
Datsun 710 108
Hornet 4 Drive 258
Hornet Sportabout 360
Valiant 225
> changes( mtcars, mtcars2 )
Changed variables:
old new
disp 0x105500400
disp2 0x105500400
Changed attributes:
old new
names 0x106d2cf50 0x106d28a98
Antwoord 3, autoriteit 18%
Je kunt de functie renamevan renamedaadwerkelijk gebruiken als onderdeel van dplyr-ketens. Ik denk dat elke functie die a) een data.frameals eerste argument neemt en b) een data.frameretourneert, werkt voor chaining. Hier is een voorbeeld:
library('plyr')
library('dplyr')
DF = data.frame(var=1:5)
DF %>%
# `rename` from `plyr`
rename(c('var'='x')) %>%
# `mutate` from `dplyr` (note order in which libraries are loaded)
mutate(x.sq=x^2)
# x x.sq
# 1 1 1
# 2 2 4
# 3 3 9
# 4 4 16
# 5 5 25
UPDATE:de huidige versie van dplyrondersteunt rechtstreeks hernoemen als onderdeel van de functie select(zie post van Romain Francois hierboven). De algemene verklaring over het gebruik van niet-dplyr-functies als onderdeel van dplyr-ketens is echter nog steeds geldig en renameis een interessant voorbeeld.
Antwoord 4, autoriteit 6%
Het wordt (nog) niet vermeld als een functie in dplyr: http://cran.rstudio. org/web/packages/dplyr/dplyr.pdf
De onderstaande functie werkt (bijna) hetzelfde als u niet zowel plyr als dplyr wilt laden
rename <- function(dat, oldnames, newnames) {
datnames <- colnames(dat)
datnames[which(datnames %in% oldnames)] <- newnames
colnames(dat) <- datnames
dat
}
dat <- rename(mtcars,c("mpg","cyl"), c("mympg","mycyl"))
head(dat)
mympg mycyl disp hp drat wt qsec vs am gear carb
Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
Bewerken: de opmerking van Romain levert het volgende op (merk op dat de wijzigingsfunctie dplyr .1.1 vereist)
> dplyr:::changes(mtcars, dat)
Changed variables:
old new
disp 0x108b4b0e0 0x108b4e370
hp 0x108b4b210 0x108b4e4a0
drat 0x108b4b340 0x108b4e5d0
wt 0x108b4b470 0x108b4e700
qsec 0x108b4b5a0 0x108b4e830
vs 0x108b4b6d0 0x108b4e960
am 0x108b4b800 0x108b4ea90
gear 0x108b4b930 0x108b4ebc0
carb 0x108b4ba60 0x108b4ecf0
mpg 0x1033ee7c0
cyl 0x10331d3d0
mympg 0x108b4e110
mycyl 0x108b4e240
Changed attributes:
old new
names 0x10c100558 0x10c2ea3f0
row.names 0x108b4bb90 0x108b4ee20
class 0x103bd8988 0x103bd8f58
Antwoord 5
Hoewel de naam niet precies wordt gewijzigd, kan dplyr::select_all()worden gebruikt om kolomnamen opnieuw op te maken. Dit voorbeeld vervangt spaties en punten door een onderstrepingsteken en zet alles om in kleine letters:
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
Antwoord 6
Ik heb geprobeerd dplyr::rename te gebruiken en ik krijg een foutmelding:
occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d`
Call `rlang::last_error()` to see a backtrace
Ik heb in plaats daarvan de basis R-functie gebruikt, die vrij eenvoudig en effectief blijkt te zijn:
names(occ_5d)[1] = "code_5d"
Antwoord 7
dplyr >= 1.0.0
Naast dplyr::renamein nieuwere versies van dplyris rename_with()
rename_with() hernoemt kolommen met een functie.
Je kunt een functie toepassen op een tidy-selectreeks kolommen met behulp van de .colsargument:
iris %>%
dplyr::rename_with(.fn = ~ gsub("^S", "s", .), .cols = where(is.numeric))
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
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5.0 3.6 1.4 0.2 setosa