使用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，採取何種寫法比較恰當~
: 謝謝