編集履歴

質問編集履歴

できました！

2022/01/08 13:19

投稿

amunagan

スコア22

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -219,231 +219,3 @@
 こういった事は、できるのでしょうか、どのようにするのでしょう・・・。
-教えて貰ったコードだと、このようになってしまいました・・・。
-![イメージ説明](aded0fd4a1afbf9cdcfc17e33af52dcc.png)
-どこが違うのでしょうか。
-```R
-pie315 <- function (x, labels = names(x), edges = 200, radius = 0.8, clockwise = FALSE,
-    init.angle = if (clockwise) 90 else 0, density = NULL, angle = 45,
-    col = NULL, border = NULL, lty = NULL, main = NULL, ...)
-{
-    if (!is.numeric(x) || any(is.na(x) | x < 0))
-        stop("'x' values must be positive.")
-    if (is.null(labels))
-        labels <- as.character(seq_along(x))
-    else labels <- as.graphicsAnnot(labels)
-    x <- c(0, cumsum(x)/sum(x))
-    dx <- diff(x)
-    nx <- length(dx)
-    plot.new()
-    pin <- par("pin")
-    xlim <- ylim <- c(-1, 1)
-    if (pin[1L] > pin[2L])
-        xlim <- (pin[1L]/pin[2L]) * xlim
-    else ylim <- (pin[2L]/pin[1L]) * ylim
-    dev.hold()
-    on.exit(dev.flush())
-    plot.window(xlim, ylim, "", asp = 1)
-    if (is.null(col))
-        col <- if (is.null(density))
-            c("white", "lightblue", "mistyrose", "lightcyan",
-                "lavender", "cornsilk")
-        else par("fg")
-    if (!is.null(col))
-        col <- rep_len(col, nx)
-    if (!is.null(border))
-        border <- rep_len(border, nx)
-    if (!is.null(lty))
-        lty <- rep_len(lty, nx)
-    angle <- rep(angle, nx)
-    if (!is.null(density))
-        density <- rep_len(density, nx)
-    twopi <- if (clockwise)
-        -2 * pi
-    else 2 * pi
-    t2xy <- function(t) {
-        t2p <- twopi * t + init.angle * pi/180
-        list(x = radius * cos(t2p), y = radius * sin(t2p))
-    }
-    for (i in 1L:nx) {
-        n <- max(2, floor(edges * dx[i]))
-        P <- t2xy(seq.int(x[i], x[i + 1], length.out = n))
-        polygon(c(P$x, 0), c(P$y, 0), density = density[i], angle = angle[i],
-            border = border[i], col = col[i], lty = lty[i])
-        P <- t2xy(mean(x[i + 0:1]))
-        lab <- as.character(labels[i])
-        if (!is.na(lab) && nzchar(lab)) {
-            text(0.92 * P$x, 0.85 * P$y, labels[i], xpd = TRUE,
-                adj = ifelse(P$x > 0, 1, 0), ...)
-        }
-    }
-    title(main = main, ...)
-    invisible(NULL)
-}
-png("graph.png", width = 800, height = 700)  # 描画デバイスを開く
-x <- c(20, 15, 10, 5)
-# 外側の円
-pie315(x,
-    radius=0.6,        # 半径
-    clockwise=T,
-    labels=c("A","B","C","D"),
-    cex=2,
-    col=c("red","green","blue","gray"),
-    border=F)
-# 重ね描き
-par(new=TRUE)
-pie315(x,              # ダミー
-    radius=0.62,       # 半径(内円の半径は 0.6)
-    col="white",       # 領域の色
-    border="white",    # 枠線の色
-    labels="")         # ラベル非表示
-# 重ね描き
-par(new=TRUE)
-pie315(x,
-    radius=0.6,        # 半径
-    clockwise=T,
-    labels=c("A","B","C","D"),
-    cex=2,
-    col=c("red","green","blue","gray"))
-# 重ね描き
-par(new=TRUE)
-# 中央の白円
-pie315(1,                 # ダミー
-    radius=0.4,        # 半径
-    col="white",       # 領域の色
-    border="white",    # 枠線の色
-    labels="")         # ラベル非表示
-# テキストの挿入
-text(0, 0,             # 挿入位置
-     labels="pie12",
-     cex=3,
-     col="red")
-dev.off()
-```

進捗を書きました。

2022/01/08 13:19

投稿

amunagan

スコア22

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -219,3 +219,231 @@
 こういった事は、できるのでしょうか、どのようにするのでしょう・・・。
+教えて貰ったコードだと、このようになってしまいました・・・。
+![イメージ説明](aded0fd4a1afbf9cdcfc17e33af52dcc.png)
+どこが違うのでしょうか。
+```R
+pie315 <- function (x, labels = names(x), edges = 200, radius = 0.8, clockwise = FALSE,
+    init.angle = if (clockwise) 90 else 0, density = NULL, angle = 45,
+    col = NULL, border = NULL, lty = NULL, main = NULL, ...)
+{
+    if (!is.numeric(x) || any(is.na(x) | x < 0))
+        stop("'x' values must be positive.")
+    if (is.null(labels))
+        labels <- as.character(seq_along(x))
+    else labels <- as.graphicsAnnot(labels)
+    x <- c(0, cumsum(x)/sum(x))
+    dx <- diff(x)
+    nx <- length(dx)
+    plot.new()
+    pin <- par("pin")
+    xlim <- ylim <- c(-1, 1)
+    if (pin[1L] > pin[2L])
+        xlim <- (pin[1L]/pin[2L]) * xlim
+    else ylim <- (pin[2L]/pin[1L]) * ylim
+    dev.hold()
+    on.exit(dev.flush())
+    plot.window(xlim, ylim, "", asp = 1)
+    if (is.null(col))
+        col <- if (is.null(density))
+            c("white", "lightblue", "mistyrose", "lightcyan",
+                "lavender", "cornsilk")
+        else par("fg")
+    if (!is.null(col))
+        col <- rep_len(col, nx)
+    if (!is.null(border))
+        border <- rep_len(border, nx)
+    if (!is.null(lty))
+        lty <- rep_len(lty, nx)
+    angle <- rep(angle, nx)
+    if (!is.null(density))
+        density <- rep_len(density, nx)
+    twopi <- if (clockwise)
+        -2 * pi
+    else 2 * pi
+    t2xy <- function(t) {
+        t2p <- twopi * t + init.angle * pi/180
+        list(x = radius * cos(t2p), y = radius * sin(t2p))
+    }
+    for (i in 1L:nx) {
+        n <- max(2, floor(edges * dx[i]))
+        P <- t2xy(seq.int(x[i], x[i + 1], length.out = n))
+        polygon(c(P$x, 0), c(P$y, 0), density = density[i], angle = angle[i],
+            border = border[i], col = col[i], lty = lty[i])
+        P <- t2xy(mean(x[i + 0:1]))
+        lab <- as.character(labels[i])
+        if (!is.na(lab) && nzchar(lab)) {
+            text(0.92 * P$x, 0.85 * P$y, labels[i], xpd = TRUE,
+                adj = ifelse(P$x > 0, 1, 0), ...)
+        }
+    }
+    title(main = main, ...)
+    invisible(NULL)
+}
+png("graph.png", width = 800, height = 700)  # 描画デバイスを開く
+x <- c(20, 15, 10, 5)
+# 外側の円
+pie315(x,
+    radius=0.6,        # 半径
+    clockwise=T,
+    labels=c("A","B","C","D"),
+    cex=2,
+    col=c("red","green","blue","gray"),
+    border=F)
+# 重ね描き
+par(new=TRUE)
+pie315(x,              # ダミー
+    radius=0.62,       # 半径(内円の半径は 0.6)
+    col="white",       # 領域の色
+    border="white",    # 枠線の色
+    labels="")         # ラベル非表示
+# 重ね描き
+par(new=TRUE)
+pie315(x,
+    radius=0.6,        # 半径
+    clockwise=T,
+    labels=c("A","B","C","D"),
+    cex=2,
+    col=c("red","green","blue","gray"))
+# 重ね描き
+par(new=TRUE)
+# 中央の白円
+pie315(1,                 # ダミー
+    radius=0.4,        # 半径
+    col="white",       # 領域の色
+    border="white",    # 枠線の色
+    labels="")         # ラベル非表示
+# テキストの挿入
+text(0, 0,             # 挿入位置
+     labels="pie12",
+     cex=3,
+     col="red")
+dev.off()
+```