–set aRec to {kanjiNum:24960, kanjiRating:28.0, hiraganaNum:56080, hiraganaRating:62.9, katakanaNum:1063, katakanaRating:1.2, otherNum:7136, otherRating:8.0} –文学（坊ちゃん）
–set aRec to {kanjiNum:563289, kanjiRating:22.0, hiraganaNum:1311933, hiraganaRating:51.2, katakanaNum:210161, katakanaRating:8.2, otherNum:478690, otherRating:18.7, totalCount:2564073}–異世界はスマートフォンとともに
set aRec to {kanjiNum:364870, kanjiRating:26.7, hiraganaNum:682261, hiraganaRating:50.0, katakanaNum:89109, katakanaRating:6.6, otherNum:230374, otherRating:16.9, totalCount:1366614} –Knight’s and Magic
set cCount to (kanjiNum of aRec)
set hCount to (hiraganaNum of aRec)
set kCount to (katakanaNum of aRec)
set oCount to (otherNum of aRec)
tell application "Keynote"
set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1024, height:768}) –Normal Slide
–set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1920, height:1080})–Wide Slide
tell front document
set aSlide to make new slide at after (first slide) with properties {base slide:master slide "タイトル(上)"}
tell aSlide
set object text of default title item to "文字種別使用比率"
–add chart row names {"文字種別"} column names {"漢字", "ひらがな", "カタカナ", "その他"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
add chart row names {"文字種別"} column names {"Kanji", "Hiragana", "Katakana", "Other"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
end tell
end tell
end tell
|
