R-円グラフ

Rプログラミング言語には、チャートやグラフを作成するための多数のライブラリがあります。円グラフは、さまざまな色の円のスライスとしての値の表現です。スライスにはラベルが付けられ、各スライスに対応する番号もチャートに表示されます。

Rでは、円グラフは pie()ベクトル入力として正の数をとる関数。追加のパラメータは、ラベル、色、タイトルなどを制御するために使用されます。

構文

Rを使用して円グラフを作成するための基本的な構文は次のとおりです。

pie(x, labels, radius, main, col, clockwise)

以下は、使用されるパラメーターの説明です-

x 円グラフで使用される数値を含むベクトルです。
labels スライスに説明を与えるために使用されます。
radius 円グラフの円の半径を示します（-1から+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.png")

# 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()

上記のコードを実行すると、次の結果が生成されます-

3D円グラフ

追加のパッケージを使用して、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()

上記のコードを実行すると、次の結果が生成されます-