R语言DataFrame列添加百分号及数值计算异常问题求助

问题1：计算并格式化百分数列（含批量处理） #

核心原则：不要把用于计算的数值直接转成字符型存储——这会彻底丢失数值属性，导致后续统计无法进行。正确做法是保留数值列用于计算，同时生成单独的展示列（带百分号），或用格式工具让数值列在显示时自动变成百分号。

单列处理（兼顾计算与展示） #

如果只需要处理Likes和Vues生成Engagement：

library(dplyr)

classe_df <- classe_df %>%
  mutate(
    # 保留数值型列，用于后续统计计算
    Engagement_num = Likes / Vues * 100,
    # 生成带百分号的字符列，仅用于展示输出
    Engagement_display = sprintf("%.1f%%", Engagement_num)
  )

批量处理多组Likes/Vues列 #

假设数据里有多组类似Likes_1/Vues_1、Likes_2/Vues_2的列对，可批量生成对应的计算列与展示列：

library(dplyr)
library(stringr)

# 定义需要匹配的列名组
like_cols <- c("Likes_1", "Likes_2")
vue_cols <- c("Vues_1", "Vues_2")

classe_df <- classe_df %>%
  mutate(
    # 批量生成数值型Engagement计算列
    across(
      .cols = set_names(vue_cols, str_replace(vue_cols, "Vues", "Engagement_num")),
      .fns = ~ get(str_replace(cur_column(), "Engagement_num", "Likes")) / .x * 100
    ),
    # 批量生成带百分号的展示列
    across(
      .cols = starts_with("Engagement_num"),
      .fns = ~ sprintf("%.1f%%", .x),
      .names = str_replace(.col, "num", "display")
    )
  )

执行后会自动生成Engagement_num_1、Engagement_num_2（数值型）和Engagement_display_1、Engagement_display_2（带百分号的字符型）。

问题2：解决中位数计算错误 #

你的错误是因为sprintf把列转成了字符型，无法做数值统计。用以下两种方法解决：

方法1：基于数值列计算 #

用前面生成的Engagement_num数值列直接计算：

classe_df <- classe_df %>%
  mutate(
    Engagement_num = Likes / Vues * 100,
    Engagement_display = sprintf("%.1f%%", Engagement_num),
    # 用数值列计算中位数，na.rm避免NA干扰
    Lien_avec_médiane = ifelse(median(Engagement_num, na.rm = TRUE) > Engagement_num, "en-dessous", "au-dessus")
  )

方法2：用formattable保留数值属性并显示百分号 #

如果想让列既显示百分号，又保留数值属性，可使用formattable包：

library(dplyr)
library(formattable)

classe_df <- classe_df %>%
  mutate(Engagement = percent(Likes / Vues, digits = 1)) %>%
  mutate(
    # 直接用带格式的数值列计算中位数
    Lien_avec_médiane = ifelse(median(Engagement, na.rm = TRUE) > Engagement, "en-dessous", "au-dessus")
  )

此时Engagement实际存储的是数值（比如0.25），但显示为25.0%，不影响任何数值计算。

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