如何在base R中创建ABAB图?

如何在base R中创建ABAB图?,r,plot,base,R,Plot,Base,我试图在BaseR中创建一个图表,以显示单个案例设计研究的结果。我需要能够突破研究的每一部分。我知道我可以使用SCVA,但我想自己绘制图表,这样我就可以更好地控制它。当我添加线()时,我无法使它们与点对齐。我不确定我错过了什么。我在下面放了一些示例代码。我还包括了代码生成的图形的图像 x <- c(5, 7, 10, 20, 23, 25, 4, 8, 6, 21, 28, 25) y <- c("A1", "A1", "A1&quo

我试图在BaseR中创建一个图表,以显示单个案例设计研究的结果。我需要能够突破研究的每一部分。我知道我可以使用SCVA,但我想自己绘制图表,这样我就可以更好地控制它。当我添加线()时,我无法使它们与点对齐。我不确定我错过了什么。我在下面放了一些示例代码。我还包括了代码生成的图形的图像

x <- c(5, 7, 10, 20, 23, 25, 4, 8, 6, 21, 28, 25)
y <- c("A1", "A1", "A1", "B1", "B1", "B1", "A2", "A2", "A2", "B2", "B2", "B2")

plot(x)
lines(x[y=="A1"])
lines(x[y=="B1"])
lines(x[y=="A2"])
lines(x[y=="B2"])

x你可以试试这个。我希望这有帮助

library(ggplot2)
#Data
x <- c(5, 7, 10, 20, 23, 25, 4, 8, 6, 21, 28, 25)
y <- c("A1", "A1", "A1", "B1", "B1", "B1", "A2", "A2", "A2", "B2", "B2", "B2")
data <- data.frame(x,y,stringsAsFactors = F)
#Plot
ggplot(data,aes(x=x,y=y,color=y))+geom_line()
库(ggplot2)
#资料

x在基数R中,需要指定x

plot(x, xaxt="n")
lines(1:3, x[y=="A1"])
lines(4:6, x[y=="B1"])
lines(7:9, x[y=="A2"])
lines(10:12, x[y=="B2"])
axis(side=1, at=c(2,5,8,11), labels=unique(y))