如何在基础 R 中创建 ABAB 图？答案

【问题标题】：How do I create an ABAB graph in base R?如何在基础 R 中创建 ABAB 图？
【发布时间】：2020-07-08 11:26:35
【问题描述】：

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

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"])

Plot from the code above.

【问题讨论】：

标签： r plot base

【解决方案1】：

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

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()

【讨论】：

【解决方案2】：

在base 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))

【讨论】：