仅使用基本R代码绘制分组点数据

Question

我正在做一个作业，在该作业中，我只能使用base R，不能使用包。

以下是一些示例数据：

set.seed(1)
variables <- paste0('V_', seq(1,16,1))
data <- data.frame(t(rbind(variables, rnorm(16,0,1),rnorm(16,0,1), rnorm(16,0,1))))
colnames(data) <- c('variables','OLS', 'IV', '2SLS')}''

我知道如何在ggplot2上执行此操作，但不知道如何在R上执行此操作。 我想用每种颜色类型的模型用点绘制每个变量的值。在我的x轴上，我们将拥有从V_1到V_16的所有因素（如果轴上的所有标签都显示了，那将很好。）

有什么建议吗？ 谢谢！

Answer 1

set.seed(1)
variables <- paste0('V_', seq(1,16,1))
data <- data.frame(t(rbind(variables, rnorm(16,0,1),rnorm(16,0,1), rnorm(16,0,1))))
colnames(data) <- c('variables','OLS', 'IV', '2SLS')


attach(data)
#> The following object is masked _by_ .GlobalEnv:
#>     variables

variables <- factor(variables, 
                    levels = variables[order(as.numeric(gsub("V_","", variables)))])

plot.default(variables,as.double(OLS),type='p',xaxt='n', ylab="value", cex=1, col="red")
points(x=variables, y=as.double(IV), col="blue")
points(x=variables, y=as.double(`2SLS`), col="green")
axis(side = 1, at = as.numeric(variables), labels = variables)

detach(data)

^{由reprex package（v0.3.0）于2019-06-19创建}