R语言中如何将带K/M公制前缀的字符型电阻值转换为数值型（double）？

Absolutely! Turning those character-type resistor values with metric prefixes (like 10.01K or 1M) into proper numeric values is straightforward with tidyverse tools—perfect since you're already using readr. Here are two practical approaches:

Option 1: Convert During Data Import (Cleanest Upfront) #

If you know which columns have metric units before reading the data, you can define a custom parser to handle them right away:

library(readr)
library(stringr)
library(dplyr)

# Custom function to parse values with metric prefixes
parse_metric <- function(x) {
  # Pull out the numeric part (handles comma decimal separators)
  num_val <- parse_number(x, locale = locale(decimal_mark = ","))
  # Extract the metric prefix (if any) from the end of the string
  unit <- str_extract(x, "[A-Za-z]+$")
  # Map prefixes to their respective multipliers
  prefix_map <- c(K = 1e3, M = 1e6)
  # Get the multiplier (default to 1 for values without units)
  multiplier <- case_match(unit, !!!prefix_map, .default = 1)
  # Calculate the final numeric value
  num_val * multiplier
}

# Read your data with the custom parser for resistor columns
df <- read_delim(
  "your_data_file.txt",
  delim = ";",
  locale = locale(decimal_mark = ","),  # Critical for parsing comma decimals
  col_types = cols(
    Resistor1 = col_parse(parse_metric),
    Resistor2 = col_parse(parse_metric),
    .default = col_double()  # Let readr auto-detect other column types
  )
)

Option 2: Convert After Import (Great for Inspection) #

If you've already loaded the data and need to fix the resistor columns afterward, use dplyr to batch-process them:

# First read the data normally (readr will mark resistor columns as character)
df <- read_delim(
  "your_data_file.txt",
  delim = ";",
  locale = locale(decimal_mark = ",")
)

# Clean up the resistor columns
df_cleaned <- df %>%
  mutate(
    across(
      c(Resistor1, Resistor2),  # Target the columns with metric units
      ~ {
        num <- parse_number(., locale = locale(decimal_mark = ","))
        unit <- str_extract(., "[A-Za-z]+$")
        # Match units to multipliers
        multiplier <- case_when(
          unit == "K" ~ 1000,
          unit == "M" ~ 1000000,
          TRUE ~ 1  # No unit? Keep the original number
        )
        num * multiplier
      }
    )
  )

Key Notes: #

• Decimal Separator Handling: Your data uses commas instead of periods for decimals, so we explicitly set decimal_mark = "," in the locale argument to avoid parsing errors.
• Extensibility: You can easily add more metric units (like G for giga or m for milli) to the prefix_map or case_when logic if your data expands later.
• Batch Efficiency: Using across() lets you update multiple columns in one step, saving time if you have more resistor columns down the line.

After running either method, your resistor values will be numeric:

• 10.01K becomes 10010
• 20K becomes 20000
• 1M becomes 1000000
• Plain values like 10 stay unchanged as 10

内容的提问来源于stack exchange，提问作者kaos