[心得] 練習使用 plot 函數繪圖

看板R_Language作者tang1019 (燢)時間5年前 (2020/02/21 18:57)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

ctrl + y 可以刪除一整行，請將不需要的內容刪除文章分類提示: - 問題: 當你想要問問題時，請使用這個類別 - 分享: 當你看到別人的心得時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性 ) - 情報: 當你看到消息時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性) - 心得: 當你自己想要分享經驗時，請使用這個類別。 - 討論: 當你自己已經有答案，但是也想聽聽版友意見時 [關鍵字]:R語言,plot函數,國徽,陸皓東,幾何,極座標,弦環圖 [重點摘要]:據說革命先烈陸皓東是用以下幾何繪圖方法畫出國徽 # R 程式-1 # 用極座標來決定12個點的位置，再規則的距離5跳接而成 n <- 12 h <- 5 theta <- seq(0,2*pi,2*pi/n) x0 <- cos(theta) y0 <- sin(theta) x<- x0 y<- y0 for (k in (1:n-1)) { x[k+1] <- x0[(h*k)%%n+1] y[k+1] <- y0[(h*k)%%n+1] } plot(x,y,type="l",lwd=2,col="blue",xlim=c(-1,1),ylim=c(-1,1)) # R 程式-2 # 先畫圓圈再改變偶點的半徑畫出12個光芒 theta <- seq(0, 6.5450, 0.2618) x <- cos(theta) y <- sin(theta) plot(x,y,type="l",lwd=7,col="blue",xlim=c(-3,3),ylim=c(-3,3)) par(new=TRUE) for (k in seq(1,25,2)) { x[k] <- cos(theta[k])*2 y[k] <- sin(theta[k])*2 } plot(x,y,type="l",lwd=2,col="blue",xlim=c(-3,3),ylim=c(-3,3)) -- ^◎◎^ ( (∞) ) im a pig -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.200.213.24 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1582282660.A.A8D.html