DataFrame中国家缩写替换为全称失败，求解决方法

Got it, let's figure out how to fix that country abbreviation replacement issue in your large Starbucks DataFrame. I'll walk you through reliable, efficient methods that work for 10k+ rows, plus explain why your previous tries might have fallen flat.

First, let's fix a potential misstep in your initial data cleaning: the line starbucks_data1 = starbucks_data[!(is.na(starbucks_data)),] checks if every value in a row is NA, which is probably not what you want. If you're trying to remove rows where the country column has missing values, use this instead (replace Country with your actual column name):

# Remove rows with NA in the Country column
starbucks_data_clean <- starbucks_data[!is.na(starbucks_data$Country), ]

Now, let's dive into tested methods to replace abbreviations with full names:

Method 1: Using dplyr::recode() (Simple & Readable) #

This is my go-to for this kind of mapping, especially if you have a clear list of codes to swap. First, load the dplyr package:

library(dplyr)

# Create your mapping of abbreviations to full names—add all your needed pairs here
country_mapping <- c(
  "USA" = "United States",
  "CAN" = "Canada",
  "GBR" = "United Kingdom",
  "AUS" = "Australia",
  "JPN" = "Japan"
)

# Replace the abbreviations and save the change back to your DataFrame
starbucks_data_clean <- starbucks_data_clean %>%
  mutate(Country = recode(Country, !!!country_mapping))

The !!! operator expands your named vector into individual arguments for recode(), which makes this work seamlessly.

Method 2: Base R match() (No External Packages) #

If you don't want to use tidyverse tools, base R has a solid option. This keeps things lightweight:

# Create two paired vectors: one for abbreviations, one for full names
abbreviations <- c("USA", "CAN", "GBR")
full_names <- c("United States", "Canada", "United Kingdom")

# Replace values—this will turn unmatched codes into NA
starbucks_data_clean$Country <- full_names[match(starbucks_data_clean$Country, abbreviations)]

# If you want to keep original values that aren't in your mapping, use this instead:
starbucks_data_clean$Country <- ifelse(
  starbucks_data_clean$Country %in% abbreviations,
  full_names[match(starbucks_data_clean$Country, abbreviations)],
  starbucks_data_clean$Country
)

Method 3: stringr::str_replace_all() (Flexible for Text) #

If your country codes are embedded in longer strings (though that's unlikely here) or you prefer string-focused tools, this works well:

library(stringr)

# Same mapping vector as before
country_mapping <- c(
  "USA" = "United States",
  "CAN" = "Canada"
)

starbucks_data_clean <- starbucks_data_clean %>%
  mutate(Country = str_replace_all(Country, country_mapping))

Why Your Previous Attempts Might Have Failed #

• Forgot to save the result: If you ran a replacement command but didn't assign it back to your DataFrame (e.g., no <- or %>% mutate(...)), the changes won't stick.
• Wrong column target: Your code snippet cuts off at Co...—double-check you're referencing the correct column name (spelling, capitalization matters!).
• Case sensitivity: If your data has mixed case (like "usa" instead of "USA"), your mappings won't match. Fix this by standardizing first:

  starbucks_data_clean$Country <- toupper(starbucks_data_clean$Country)
  

All these methods handle 10k+ rows easily—you won't run into performance issues with any of them.

内容的提问来源于stack exchange，提问作者Hannah L.