Построить сгруппированные точечные данные, используя только базовый код R

Question

Я выполняю задание, в котором мне разрешено использовать только базу 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. Я хотел бы изобразить значение каждой переменной с точками таким образом, чтобы каждый тип модели имел цветовую кодировку. На моей оси х у нас были бы все факторы, начиная от 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)

^{Создано в 2019-06-19 годах представительным пакетом (v0.3.0)}