[R/SAS/Python]ドーナツグラフ

2021年11月21日 2021年11月25日

ada

目的
以下のデータを用いてドーナツグラフを作成する。

データ

CATE	VAR
A	5
B	7
C	10
D	15

プログラム

RSASPythom

#ライブラリ呼び出し
library(ggplot2)

#ドーナツ円グラフ用のデータ作成
DATA <- data.frame(CATE = c("A","B","C","D"),
                   VAR = c(5,7,10,15))
DATA$fraction = DATA$VAR / sum(DATA$VAR)
DATA$ymax = cumsum(DATA$fraction)
DATA$ymin = c(0, head(DATA$ymax, n=-1))

#ドーナツ円グラフ作成
g <- ggplot(DATA, aes(ymax = ymax, ymin = ymin, xmax = 4, xmin = 3, fill = CATE))
g <- g + geom_rect()
g <- g + coord_polar(theta = "y")
g <- g + xlim(c(2, 4))
plot(g)

15行目のxlim(c(2, 4))にて穴の大きさを調節する。

/* データセットの作成 */
data DATA;
  input CATE $ VAR;
  cards;
  A 5
  B 7
  C 10
  D 15
  ;
run;

/* ドーナツグラフ作成 */
proc sgpie data = DATA;
  donut CATE / response = VAR;
run;