[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))

#円グラフ作成
g <- ggplot(DATA, aes(x = VAR, y = "", fill = CATE))
g <- g + geom_bar(stat = "identity")
g <- g + coord_polar(theta = "x")
plot(g)

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

/* 円グラフ作成 */
proc sgpie data = DATA;
  pie CATE / response = VAR;
run;

#ライブラリ呼び出し
import pandas as pd

#データフレームの作成
DATA = pd.DataFrame({ 'VAR' : ([5,7,10,15])},
                    index = ["A","B","C","D"])

#円グラフ作成
DATA.plot(kind = "pie", y = "VAR")