グループ毎に空白行を追加したい

やりたい事

---

* サンプルデータ ; data DT1; length NO SEX $10. AGE HEIGHT 8.; input NO$ SEX$ AGE HEIGHT @@; cards; 001 F 25 159.2  002 F 43 161.8  003 F 21 158.1  004 M 19 178.0  005 M 28 160.2 ;

変数SEXの値ごとに1行だけ空白行を追加したいとします。




方法① データステップ

---

proc sort data=DT1;    by SEX ; run ; data OUT1;    set DT1 ;    by SEX ;    output ;    if last.SEX then do ;        call missing( NO, AGE, HEIGHT );        output ;    end ; run ;

ざっくり解説すると、

• 「output;」でいったん現在のオブザベーションをデータセットに出力
• 「if last.SEX then do;」で、SEXの値「F」「M」ごとに最後のオブザベーション（3obsと5obs）を読み込んだ時に、
• 「call missing( NO, AGE, HEIGHT )」で変数NO, AGE, HEIGHTを欠損値にして、
• 「output;」でデータセットに再出力しています。

📝注意点

ここで使用している「LAST.BY変数」は「サブセット化IF」と一緒に使用すると正しく動かない事があります（解説記事：「サブセット化IFでありがちな落とし穴」）

方法② REPORTプロシジャ

---

proc report data=DT1 out=OUT2 nowd ;    define _numeric_  / display ;    define SEX  / order order=internal missing ;    break after SEX  / ; run ;

REPORTプロシジャってデータセットにも出力できるんです！

• 「define SEX / order order=internal missing;」と「break after SEX /;」で、SEX毎に要約行を追加
• この書き方、HTML等への出力時には要約行が入らないんですが、データセット出力時には要約行が入ります
• このままだと要約行に数値変数AGE, HEIGHTの要約値（合計）が入ってしまうので、「define _numeric_ / display;」で全数値変数を集計せずただdisplayするだけ（表示するだけ）にしています（データセット中に数値変数が存在しないなら「define _numeric_ / display;」は不要）
• 「out=OUT2」でデータセットOUT2に出力

他に何かいいアイディアがあれば教えてください！