作者empireisme (empireisme)
看板R_Language
标题[问题]该如何依序点对点画箭头
时间Thu Apr 2 06:11:50 2020
最近在实作梯度下降
想要画出overshooting
https://imgur.com/S8JZMjp
以下是我的过程
x=seq(-3,3,0.01)
plot( x,x^2 ,type = "l" ,xlab = "x",ylab = "f(x)" )
R=10
#eta is learning rate
eta <- 2
#intail guess of x
intail_x <- -3
# objective function
f <- function(x) {x^2}
# partial objective function
partialf <-function(x) {2*x}
x=numeric(length=(R+1))
x[1] <-intail_x
for(i in 1:R){
x[i+1] <- x[i]-eta*partialf(x[i])
}
data.frame(x,y=f(x))
我有以下的点座标
https://imgur.com/JDxy3oK
想要画出跟教科书一样的图 就是第一个点射到第二个点 第二个点在射到第三个点
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 219.91.75.186 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1585779113.A.B80.html
1F：→ asdiy: Segment 这函数可以看看 他是画 p1到p2的线04/02 14:14
2F：→ rebe212296: 请参考前面几篇有人问plotly动图04/02 14:29
3F：→ locka: 这可以不用动图画啊04/02 14:38
谢谢，後来用arrow解决了
※ 编辑: empireisme (101.12.53.3 台湾), 04/02/2020 21:00:55