如何正确对data.frame应用separate_rows？报错排查与解决

错误原因 #

separate_rows是作用于整个数据框的函数，它需要接收数据框对象和要拆分的列参数，而非单个字符向量。你用across将单个字符列（向量）传入separate_rows，函数无法处理这种类型的输入，因此抛出no applicable method for 'separate_rows' applied to an object of class "character"错误。

正确拆分方法 #

方法1：直接使用separate_rows指定目标列 #

无需嵌套mutate(across)，直接在separate_rows中指定要拆分的字符列（或自动识别字符列）：

# 方式1：手动指定字符列
df_separated <- df %>%
  separate_rows(col1, col2, col3, sep = ";")

# 方式2：自动识别所有字符列
df_separated <- df %>%
  separate_rows(where(is.character), sep = ";")

方法2：结合str_split与unnest（适配across场景） #

如果一定要用across处理列，可先通过str_split将字符列拆分为列表，再用unnest展开行：

df_separated <- df %>%
  mutate(across(where(is.character), ~ stringr::str_split(., ";"))) %>%
  unnest(where(is.character))

适配柱状图生成 #

拆分完成后，运行你原有的ggplot代码即可正常生成每个列的柱状图，因为多值列已被拆分为单行单值：

library(ggplot2)

lapply(names(df_separated), function(col) {
  ggplot(df_separated, aes(.data[[col]], ..count..)) + 
    geom_bar(aes(fill = .data[[col]]), position = "dodge")
}) -> list_plots

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