我想帮助解决以下问题:
如您所见，下图生成了一个带点和线的图。这是一条趋势线。因此，我想做两件事:(1)红色的点停留在图形的轴上，(2)线到达红色的点
可执行代码如下:
注意:我插入了一张图片来说明我想要的
library(dplyr)
library(lubridate)
library(tidyverse)
#dataset df1
df1 <- structure(
list(date1 = c("2021-06-28","2021-06-28","2021-06-28","2021-06-28","2021-06-28",
"2021-06-28","2021-06-28","2021-06-28"),
date2 = c("2021-04-02","2021-04-03","2021-04-08","2021-04-09","2021-04-10","2021-07-01","2021-07-02","2021-07-03"),
Week= c("Friday","Saturday","Thursday","Friday","Saturday","Thursday","Friday","Monday"),
DR01 = c(4,1,4,3,3,4,3,6), DR02= c(4,2,6,7,3,2,7,4),DR03= c(9,5,4,3,3,2,1,5),
DR04 = c(5,4,3,3,6,2,1,9),DR05 = c(5,4,5,3,6,2,1,9),
DR06 = c(2,4,3,3,5,6,7,8),DR07 = c(2,5,4,4,9,4,7,8)),
class = "data.frame", row.names = c(NA, -8L))
#Generate graph
dmda<-"2021-07-01"
datas<-df1 %>%
filter(date2 == ymd(dmda)) %>%
summarize(across(starts_with("DR"), sum)) %>%
pivot_longer(everything(), names_pattern = "DR(.+)", values_to = "val") %>%
mutate(name = as.numeric(name))
colnames(datas)<-c("Days","Numbers")
attach(datas)
plot(Numbers ~ Days, data=datas, xlim=c(0,7), ylim=c(0,20))
model <- nls(Numbers ~ b1*Days^2+b2, data=datas, start = list(b1 = 47,b2 = 0))
new.data <- data.frame(Days = seq(min(Days),max(Days),len = 45))
lines(new.data$Days,predict(model,newdata = new.data))
points(0, coef(model)[2], col="red",pch=19,cex = 1.2)
我想要的例子
最佳答案
你可以只rbind零到 new.data在这种情况下，它是 y 上的值轴将是 predict与其他值一起编辑。 xaxs='i'将在零处精确绘制 x 轴。对于这一点，我们使用 xpd=TRUE允许重叠。
plot(Numbers ~ Days, data=datas, xlim=c(0, 7.5), ylim=c(0, 20), xaxs='i')
new.data <- rbind(0, new.data)
lines(new.data$Days, predict(model, newdata=new.data))
points(0, coef(model)[2], col="red", pch=19, cex=1.2, xpd=TRUE)
关于r - 如何在图形的轴上插入点，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/69329271/