使用by()即可
另外用readr套件中的write_excel_csv()处理win系统的编码问题
library(readr)
library(tidyr)
# 测试资料
name <- c("唐伯虎","祝之山","林冲","关云长",letters[1:6])
weapon <- rep_len(c("枪","鸟","枪","刀"),length.out=10)
hp <- sample(1:100,10)
attack <- sample(1:100,10)
charisma <- sample(1:100,10)
test_df <- tibble(name, weapon, hp, attack, charisma)
# 写档
by(test_df, test_df$weapon, FUN=function(i) write_excel_csv(i,paste0(i$weapon[1],".csv")))
https://i.imgur.com/4XMnPHp.jpg
※ 引述《kakaman (日子过的真快阿)》之铭言：
: 想请问有关于切档成数个档案并汇出Excel的写法
: 因为资料有数万笔，其中有某字段观测值，有数百种…
: 之前都用Filter挑出想要的资料…
: 想请教有无方法可以直接将Raw data直接依该字段观测值分割为数百个小档并汇出成
: Excel格式…
: 提供范例:
: 姓名 武器 生命力 武力 魅力
: 唐伯虎 枪 90 80 60
: 祝之山 神鸟凤凰 100 10 70
: 林冲 枪 85 90 75
: 关云长 刀 75 99 100
: ….
: 请问如果想依照武器种类切档并汇出成Excel，采取何种写法比较恰当~
: 谢谢