将按百分位数分配标签的Python逻辑转换为R代码需求

Got it, let's convert that Python logic for assigning grades based on percentiles into clean, readable R code. Here are two approaches—one using the tidyverse (super intuitive for data manipulation) and another using base R if you prefer not to load extra packages.

Tidyverse/Dplyr Approach (Recommended) #

This uses dplyr::case_when() for clear, sequential condition checking, and ecdf() to calculate empirical percentiles (matches the typical percentile calculation you'd use in Python):

# Load the dplyr package (part of tidyverse)
library(dplyr)

# Assume your data is stored in a dataframe called `df` with a `score` column
df <- df %>%
  mutate(
    # Calculate percentile (0-100 scale) for each score
    percentile = ecdf(score)(score) * 100,
    # Assign grades based on your threshold rules
    grade = case_when(
      percentile >= 99.92 ~ "A",
      percentile >= 84.92 ~ "B",  # Automatically excludes scores already labeled "A"
      percentile >= 59.92 ~ "C",
      percentile >= 29.92 ~ "D",
      TRUE ~ "E"  # Catches all remaining scores <29.92
    )
  )

Key Notes: #

• ecdf(score)(score) computes the empirical cumulative distribution function, giving the percentage of scores less than or equal to each individual score. Multiply by 100 to get a 0-100 percentile value.
• case_when() evaluates conditions in order—so once a score meets a higher threshold (like "A"), it won't be checked against lower ones. This simplifies the code (no need to write percentile < 99.92 for the "B" condition).

Base R Approach #

If you don't want to use tidyverse packages, you can achieve the same result with base R's ifelse() chain:

# Calculate percentiles first
df$percentile <- ecdf(df$score)(df$score) * 100

# Assign grades using nested ifelse()
df$grade <- with(df,
                 ifelse(percentile >= 99.92, "A",
                        ifelse(percentile >= 84.92, "B",
                               ifelse(percentile >= 59.92, "C",
                                      ifelse(percentile >= 29.92, "D", "E")))))

Both methods will add a new grade column to your dataframe with the correct labels based on your percentile rules.

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