So benennen Sie ausgewählte Spalten mit dplyr mit neuen Spaltennamen als strings

Habe ich Folgendes tibble:

library(tidyverse)
df <- structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5), Sepal.Width = c(3.5, 
3, 3.2, 3.1, 3.6), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4)), .Names = c("Sepal.Length", 
"Sepal.Width", "Petal.Length"), row.names = c(NA, 5L), class = c("tbl_df", 
"tbl", "data.frame"))

Sieht liegen diese:

> df
# A tibble: 5 × 3
  Sepal.Length Sepal.Width Petal.Length
*        <dbl>       <dbl>        <dbl>
1          5.1         3.5          1.4
2          4.9         3.0          1.4
3          4.7         3.2          1.3
4          4.6         3.1          1.5
5          5.0         3.6          1.4

Was ich tun möchte, ist zu ersetzen Sepal.Length und Petal.Length mit angehängtem string to_app <- ".xxx" ergibt:

  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
          5.1         3.5          1.4
          4.9         3.0          1.4
          4.7         3.2          1.3
          4.6         3.1          1.5
          5.0         3.6          1.4

Habe ich versucht, diese mit Fehler:

>df %>% rename(paste(Sepal.Length,to_app,sep="") = Petal.Length,paste(Sepal.Width,to_app,sep="") = Petal.Length)
Error: unexpected '=' in "df %>% rename(paste(Sepal.Length,to_app,sep="") ="

Nur ein weiterer R-Konstruktion, dies zu tun, verwenden match - vars <- c("Sepal.Length", "Sepal.Width"); names(df)[match(vars, names(df))] <- paste0(vars, to_app)

InformationsquelleAutor neversaint | 2017-04-19

dplyr r

Wenn Sie verwenden möchten dplyr ' s rename Funktion, am besten wäre es, erstellen Sie eine benannte Vektor /Liste und rufen Sie es mit der .dots argument in der standard-Auswertung version:

cols <- c("Sepal.Length", "Petal.Length")
to_app <- ".xxx"
cols <- setNames(cols, paste0(cols, to_app))

df %>% rename_(.dots = cols)

## A tibble: 5 × 3
#  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
#*            <dbl>       <dbl>            <dbl>
#1              5.1         3.5              1.4
#2              4.9         3.0              1.4
#3              4.7         3.2              1.3
#4              4.6         3.1              1.5
#5              5.0         3.6              1.4

Beachten Sie jedoch, dass dieser Ansatz ist zu ändern mit der nächsten version 0.6.0 von dplyr (siehe z.B. http://blog.rstudio.org/2017/04/13/dplyr-0-6-0-coming-soon/ und http://dplyr.tidyverse.org/articles/programming.html).

InformationsquelleAutor docendo discimus

Können Sie die rename_at Funktion für dieses (ab dplyr_0.7.0).

Zum Beispiel, können Sie übergeben Sie die Variablen, die Sie umbenennen möchten als strings. In deinem Beispiel, die paste0 Funktion kann verwendet werden, zum Anhängen auf das entsprechende suffix für jede Spalte.

cols = c("Sepal.Length", "Petal.Length")
to_app = ".xxx"

rename_at(df, cols, funs( paste0(., to_app) ) )

# A tibble: 5 x 3
  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
*            <dbl>       <dbl>            <dbl>
1              5.1         3.5              1.4
2              4.9         3.0              1.4
3              4.7         3.2              1.3
4              4.6         3.1              1.5
5              5.0         3.6              1.4

Können Sie auch die select-helper-Funktionen wählen Sie Variablen für die Umbenennung, wie contains.

rename_at(df, vars( contains("Length") ), funs( paste0(., ".xxx") ) )

# A tibble: 5 x 3
  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
*            <dbl>       <dbl>            <dbl>
1              5.1         3.5              1.4
2              4.9         3.0              1.4
3              4.7         3.2              1.3
4              4.6         3.1              1.5
5              5.0         3.6              1.4

InformationsquelleAutor aosmith

8

Ich bin ein wenig spät zur party, aber nach und starrte auf die Programmierung vignette für eine lange Zeit fand ich die relevanten Beispiel in der Verschiedene input-und output-variable
.

In meiner Benutzung einfacher Fall, ich musste nur umbenennen einer Spalte den Wert ein string:
```
> df1 = data_frame(index = 1:5, value = c(10, 20, 30, 40, 50))
> df1
# A tibble: 5 x 2
  index value
  <int> <dbl>
1     1    10
2     2    20
3     3    30
4     4    40
5     5    50

> newname = 'blau'
> newname2 = 'wheee'

> df1 %>% rename(!!newname := value, !!newname2 := index)
# A tibble: 5 x 2
  wheee  blau
  <int> <dbl>
1     1    10
2     2    20
3     3    30
4     4    40
5     5    50
```
Also, wenn du glücklich bist, um dies manuell tun, können Sie nur:
```
df %>%
  rename(!!paste("Sepal.Length", "xxx", sep = ".") := Sepal.Length)
```
Wenn, jedoch, Sie brauchen etwas, das fügt automatisch ".xxx" zu was auch immer Spalte name angegeben wird, um es, empfehle ich Ihnen einen genauen Blick auf diesen Abschnitt. Es ist immer noch ein bisschen über meinen Kopf, leider, aber ich kann sehen, dass es machbar >_>

InformationsquelleAutor rensa

df %>% setNames(paste0(names(.), to.app))

# A tibble: 5 × 3
  Sepal.Length.xxx Sepal.Width.xxx Petal.Length.xxx
*            <dbl>           <dbl>            <dbl>
1              5.1             3.5              1.4
2              4.9             3.0              1.4
3              4.7             3.2              1.3
4              4.6             3.1              1.5
5              5.0             3.6              1.4

EDIT:

Entschuldigung für nicht richtig Lesen. Hier ist eine Lösung mit Daten.Tabelle Paket.

var <- names(df)[c(1,3)]
df %>% setnames(., var, paste0(var, to.app))
df

# A tibble: 5 × 3
  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
*            <dbl>       <dbl>            <dbl>
1              5.1         3.5              1.4
2              4.9         3.0              1.4
3              4.7         3.2              1.3
4              4.6         3.1              1.5
5              5.0         3.6              1.4

Ich will nicht alle Spalten, sondern ausgewählte (Kelchblatt.Length und Petal.Länge) finden Sie in meinem OP wieder.

InformationsquelleAutor Adam Quek

Vorausgesetzt, das Ziel ist, benennen Sie alle Spalten "Länge":

colnames(df) <- ifelse(grepl("Length", colnames(df)), 
                       paste0(colnames(df), to_app), 
                       colnames(df))

InformationsquelleAutor neilfws

1

Die besten, die ich tun kann in der Entwicklung version von dplyr (erscheint am 11. Mai):
```
cols <- c("Sepal.Length", "Petal.Length")
to_app <- ".xxx"
ns <- paste0(cols, to_app)

rename(df, 
       !!ns[1] := !!as.name(cols[1]), 
       !!ns[2] := !!as.name(cols[2]))
```
Dazu vollständig programmgesteuert, man braucht quos statt:
```
xx <- do.call(quos, setNames(map(cols, as.name), ns))
rename(df, !!!xx)
```
Beide geben:
```
# A tibble: 5 × 3
  Sepal.Length.xxx Sepal.Width Petal.Length.xxx
*            <dbl>       <dbl>            <dbl>
1              5.1         3.5              1.4
2              4.9         3.0              1.4
3              4.7         3.2              1.3
4              4.6         3.1              1.5
5              5.0         3.6              1.4
```
One-liner:
```
rename(df, !!!do.call(quos, setNames(map(cols, as.name), paste0(cols, to_app))))
```
Die Frage ist dann, wie würde das getan werden, ohne jede Spalte einzeln? Ich denke, es könnte etwas werden mit !!! statt !!
Ja, ich habe ein Lösung dafür, aber nicht sicher, ob es ist ein Weg, um zu vermeiden do.call - und/oder setNames es.
Gut zu sehen in diesem Beispiel, aber ich hoffe, dass wird nicht die endgültige version zu tun, da imho, es ist zu kompliziert für eine eher einfache Spalte umbenennen
Ich bin damit einverstanden! Einige haben sich die Dinge schöner aus, aber ich glaube nicht, leicht erkennen, ein bequemer Weg, dies zu tun, mit tidyeval/rlang. Ich würde nicht sagen, dass es schrecklich wenn. Vielleicht @hadley kann uns seine auf diese zu nehmen.
[tongue-in-cheek] und zu denken, dass Hadley einmal argumentiert, dass in den Daten.Tabelle braucht man, um zu lernen "cryptic shorcuts"... Nicht zu vergessen, dass := thingi sieht etwas bekannt aus einigen kryptischen Paket gibt, die ich nicht erinnern, seinen Namen....

InformationsquelleAutor Axeman

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.