R语言中展平Spotify响应文件：提取曲目及首位艺术家信息

嘿，作为R语言新手能靠自己查文档、用for loop实现需求已经超棒了！针对你说的Spotify Track嵌套列表展平，提取曲目名称、ID和首位艺术家信息的需求，这里有几个更简洁高效的方法，比手动写循环省心多啦～

首先先模拟一个和你场景匹配的Track列表结构（方便你对照测试）：

# 模拟Spotify Track列表的示例结构
sample_tracks <- list(
  list(
    name = "Blinding Lights",
    id = "0VjIjW4GlUZAMYd2vXMi3b",
    artists = list(
      list(name = "The Weeknd", id = "1Xyo4u8uXC1ZmMpatF05PJ"),
      list(name = "Another Artist", id = "xxxx")
    )
  ),
  list(
    name = "Levitating",
    id = "4N4U2l648u37m9Yr0W5y1Y",
    artists = list(
      list(name = "Dua Lipa", id = "6M2wZ9GZgrQXHCFfjv46we")
    )
  )
)

方法1：用tidyverse工具链（推荐新手） #

tidyverse里的purrr包专门用来处理列表操作，配合tibble可以轻松把嵌套列表转换成规整的数据框：

library(tidyverse)

# 遍历每个Track，提取信息并自动合并成数据框
track_info <- map_dfr(sample_tracks, function(track) {
  # 取出首位艺术家的信息
  first_artist <- track$artists[[1]]
  # 构建单行数据框
  tibble(
    track_name = track$name,
    track_id = track$id,
    artist_name = first_artist$name,
    artist_id = first_artist$id
  )
})

map_dfr的好处是会自动把每个Track处理后的结果按行绑定，不用手动写循环拼接，代码更简洁，可读性也更强，后续如果要加更多字段也很方便。

方法2：Base R实现（无需额外安装包） #

如果你不想安装tidyverse，用Base R的lapply+do.call也能实现：

# Base R版本
track_info_base <- do.call(rbind, lapply(sample_tracks, function(track) {
  first_artist <- track$artists[[1]]
  data.frame(
    track_name = track$name,
    track_id = track$id,
    artist_name = first_artist$name,
    artist_id = first_artist$id,
    stringsAsFactors = FALSE  # 避免自动转换成因子
  )
}))

这里lapply遍历所有Track生成单个data.frame，再用do.call(rbind, ...)把所有结果合并成一个大的数据框，适合不想依赖第三方包的场景。

额外提示 #

如果你的Track数据是通过spotifyr这类专门的Spotify API包获取的，其实包里自带了一些简化数据提取的函数，不过如果是处理原始的嵌套列表，上面两种方法都比手动for loop高效，尤其是数据量较大时，向量式操作的速度会比循环快很多。

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