質問編集履歴

1

ほぼ進捗0ですが更新

2022/01/03 06:38

投稿

amunagan
amunagan

スコア22

test CHANGED
File without changes
test CHANGED
@@ -1,17 +1,89 @@
1
1
  ```R
2
2
 
3
- cols <- brewer.pal(length(islands), "Set2")
3
+ png("graph.png", width = 800, height = 700) # 描画デバイスを開く
4
4
 
5
+
6
+
7
+ x <- c(20, 15, 10, 5)
8
+
9
+
10
+
11
+ # 外側の円
12
+
13
+ pie(x, # ダミー
14
+
15
+ radius=0.8, # 半径
16
+
17
+ clockwise=T,
18
+
19
+ labels=c("A","B","C","D"),
20
+
21
+ cex=2,
22
+
5
- pie(islands, clockwise=TRUE, border="white", labels=head(names(islands),4), col=cols)
23
+ col=c("black","yellow","red","blue"))
24
+
25
+
26
+
27
+ # 重ね描き
6
28
 
7
29
  par(new=TRUE)
8
30
 
9
- pie(1, radius=0.5, col='white', border='white', labels='')
10
31
 
32
+
33
+ pie(x,
34
+
35
+ clockwise=T,
36
+
37
+ labels=c("A","B","C","D"),
38
+
39
+ cex=2,
40
+
11
- text(0, 0, labels="Text", cex=par('cex.main'), col=par('col.main'), font=par('font.main'))
41
+ col=c("red","green","blue","gray"))
42
+
43
+
44
+
45
+ # 重ね描き
46
+
47
+ par(new=TRUE)
48
+
49
+
50
+
51
+ # 中央の白円
52
+
53
+ pie(1, # ダミー
54
+
55
+ radius=0.4, # 半径
56
+
57
+ col="white", # 領域の色
58
+
59
+ border="white", # 枠線の色
60
+
61
+ labels="") # ラベル非表示
62
+
63
+
64
+
65
+ # テキストの挿入
66
+
67
+ text(0, 0, # 挿入位置
68
+
69
+ labels="pie12",
70
+
71
+ cex=3,
72
+
73
+ col="red")
74
+
75
+
76
+
77
+ dev.off()
12
78
 
13
79
  ```
14
80
 
15
- https://synapse-diary.com/?attachment_id=5227
16
81
 
82
+
83
+ こうしてみたのですが上手くいきません。
84
+
17
- ここを参考、こようにするとドーナツグラフが出来上がりますが、さらにこの外側にドーナツグラフを作る簡単方法はどやるのでしょうか
85
+ 一番外側最も半径大きい円グラフを描き次に小い円グラフを、最後に穴とる部分を描こと考えたのですが、小さい円グラフが反映されていません
86
+
87
+ また、ラベル、つまり各成分の名前はグラフ内に書き込みたいのですが、
88
+
89
+ この方法も教えて頂けると幸いです。