R-pie-charts
R-円グラフ
Rプログラミング言語には、チャートやグラフを作成するための多数のライブラリがあります。 円グラフは、異なる色の円のスライスとしての値の表現です。 スライスにはラベルが付けられ、各スライスに対応する番号もチャートに表示されます。
Rでは、円グラフは、ベクトル入力として正の数を取る* pie（）*関数を使用して作成されます。 追加のパラメーターは、ラベル、色、タイトルなどを制御するために使用されます。
構文
Rを使用して円グラフを作成するための基本的な構文は次のとおりです-
pie(x, labels, radius, main, col, clockwise)以下は、使用されるパラメータの説明です-
- x は、円グラフで使用される数値を含むベクトルです。
- labels は、スライスの説明に使用されます。
- radius は、円グラフの円の半径を示します（-1から＆plus; 1までの値）。
- main はチャートのタイトルを示します。
- col はカラーパレットを示します。
- clockwise は、スライスが時計回りに描かれるか反時計回りに描かれるかを示す論理値です。
例
入力ベクトルとラベルだけを使用して、非常に単純な円グラフが作成されます。 以下のスクリプトは、現在のR作業ディレクトリに円グラフを作成して保存します。
# Create data for the graph.
x <- c(21, 62, 10, 53)
labels <- c("London", "New York", "Singapore", "Mumbai")
# Give the chart file a name.
png(file = "city.jpg")
# Plot the chart.
pie(x,labels)
# Save the file.
dev.off()上記のコードを実行すると、次の結果が生成されます-
円グラフのタイトルと色
関数にさらにパラメーターを追加することで、チャートの機能を拡張できます。 パラメーター main を使用してチャートにタイトルを追加し、別のパラメーターは col で、チャートの描画中にレインボーカラーパレットを使用します。 パレットの長さは、チャートの値の数と同じにする必要があります。 したがって、length（x）を使用します。
例
以下のスクリプトは、現在のR作業ディレクトリに円グラフを作成して保存します。
# Create data for the graph.
x <- c(21, 62, 10, 53)
labels <- c("London", "New York", "Singapore", "Mumbai")
# Give the chart file a name.
png(file = "city_title_colours.jpg")
# Plot the chart with title and rainbow color pallet.
pie(x, labels, main = "City pie chart", col = rainbow(length(x)))
# Save the file.
dev.off()上記のコードを実行すると、次の結果が生成されます-
スライスの割合とグラフの凡例
追加のグラフ変数を作成して、スライスの割合とグラフの凡例を追加できます。
# Create data for the graph.
x <- c(21, 62, 10,53)
labels <- c("London","New York","Singapore","Mumbai")
piepercent<- round(100*x/sum(x), 1)
# Give the chart file a name.
png(file = "city_percentage_legends.jpg")
# Plot the chart.
pie(x, labels = piepercent, main = "City pie chart",col = rainbow(length(x)))
legend("topright", c("London","New York","Singapore","Mumbai"), cex = 0.8,
fill = rainbow(length(x)))
# Save the file.
dev.off()上記のコードを実行すると、次の結果が生成されます-
立体円グラフ
追加のパッケージを使用して、3次元の円グラフを描画できます。 パッケージ plotrix には、これに使用される* pie3D（）*という関数があります。
# Get the library.
library(plotrix)
# Create data for the graph.
x <- c(21, 62, 10,53)
lbl <- c("London","New York","Singapore","Mumbai")
# Give the chart file a name.
png(file = "3d_pie_chart.jpg")
# Plot the chart.
pie3D(x,labels = lbl,explode = 0.1, main = "Pie Chart of Countries ")
# Save the file.
dev.off()上記のコードを実行すると、次の結果が生成されます-
