Nom de l'état d'abréviation dans la R

J'ai un gros fichier avec une variable d'état qui en a plein le nom de l'état. J'aimerai le remplacer par l'état abréviations (qui est "NY" pour "New york"). Est-il un moyen facile de le faire (en dehors de l'utilisation de plusieurs if-else commandes)? Peut-être à l'aide de "remplacer" déclaration? Merci.

InformationsquelleAutor user227290 | 2011-03-23

32

1) grep le nom complet de state.name et de l'utiliser pour un index en state.abb:
```
state.abb[grep("New York", state.name)]
## [1] "NY"
```
1a) ou à l'aide de which:
```
state.abb[which(state.name == "New York")]
## [1] "NY"
```
2) ou créer un vecteur d'état abréviations dont les noms sont les noms, prénoms et un index en utilisant le nom complet:
```
setNames(state.abb, state.name)["New York"]
## New York 
##     "NY" 
```
À la différence de (1), celui-ci fonctionne même si "New York" est remplacé par un vecteur d'état complet des noms, par exemple setNames(state.abb, state.name)[c("New York", "Idaho")]
- Ce travail sera quand le premier argument de la commande grep est un vecteur string?
- Non, dans ce cas, utilisez match en place de grep comme suggéré par Aniko ou essayer setNames(state.abb, state.name)[c("New York", "Idaho")].
- Merci, il précise la question.
- que faire si il n'y a, disons, une partie de state.name comme "malade" pour "illinois"? Est-il une solution quand le modèle est une sous-chaîne de la réelle state.name?
InformationsquelleAutor G. Grothendieck
70

R a deux constantes intégrées qui pourraient vous aider: state.abb avec les abréviations, et state.name avec les noms complets. Voici un simple exemple d'utilisation:
```
> x <- c("New York", "Virginia")
> state.abb[match(x,state.name)]
[1] "NY" "VA"
```
- Merci beaucoup. Cette juste m'a sauvé 30 minutes de la rédaction 50 if-else dans R.
- si vous pensez ifelse, il peut être sage de chercher à ?switch ne savez Jamais quand il pourrait être utile dans l'avenir.
- En supposant Washington DC est formaté comme "District de Columbia", je pense que c(state.abb, 'DC')[match(x, c(state.name, 'District of Columbia'))] travaille trop
InformationsquelleAutor Aniko
6

J'ai trouvé le construit en l'état.nom et de l'état.abb ont seulement 50 états. J'ai eu une grande table (y compris les DC et ainsi de suite) en ligne (par exemple, ce lien: http://www.infoplease.com/ipa/A0110468.html) et collé à un .csv fichier nommé Unis.csv. J'ai ensuite états de charge et de abr. à partir de ce fichier au lieu de l'aide de l'. Le reste est assez similaire à @Aniko 's
```
library(dplyr)
library(stringr)
library(stringdist)

setwd()
# load data
data = c("NY", "New York", "NewYork")
data = toupper(data)

# load state name and abbr.
State.data = read.csv('States.csv')
State = toupper(State.data$State)
Stateabb = as.vector(State.data$Abb)

# match data with state names, misspell of 1 letter is allowed
match = amatch(data, State, maxDist=1)
data[ !is.na(match) ] = Stateabb[ na.omit( match ) ]
```
Il y a une petite différence entre le match et amatch dans la façon de calculer la distance à partir d'un mot à l'autre. Voir P25-26 ici http://cran.r-project.org/doc/contrib/de_Jonge+van_der_Loo-Introduction_to_data_cleaning_with_r.pdf

InformationsquelleAutor Yuji Zhang
5

Vieux post, je sais, mais je voulais jeter mine de là. J'ai appris sur tidyverse, donc, pour le meilleur ou pour le pire-je éviter de base R lorsque cela est possible. Je voulais un avec DC trop, j'ai tout d'abord intégré le passage pour piétons:
```
library(tidyverse)

 st_crosswalk <- tibble(state = state.name) %>%
   bind_cols(tibble(abb = state.abb)) %>% 
   bind_rows(tibble(state = "District of Columbia", abb = "DC"))
```
Puis j'ai rejoint il de mes données:
```
left_join(data, st_crosswalk, by = "state")
```
InformationsquelleAutor Ben G
1

Vous pouvez également utiliser base::abbreviate si vous n'avez pas de NOUS des noms d'état. Cela ne vous donnera pas de taille égale, les abréviations, sauf si vous augmentez minlength.
```
state.name %>% base::abbreviate(minlength = 1)
```
InformationsquelleAutor psychonomics

Vous devez vous connecter pour publier un commentaire.