如何以R中的x轴为行数绘制两列的散点图？

我试图对下面的示例数据集中显示的两列（V13和V21）进行散点图。我想要x轴上的行号和y轴上的每列-在同一个图形上。因此每列都有自己的y值集。然而，当我去绘制这幅图时，我得到了：

Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' and 'y' lengths differ

我使用的数据帧称为“Vs.highvar”。数据有两个变量的1000个OB，我希望x轴是行数（1000），所以我想这就是问题所在。我该怎么做？我是否必须将数据拆分为两个单独的列/两个单独的数据帧？我对R很陌生。我试过

split（）

，

separate（）

，

plot（）

，

ggplot2.scatterplot（）

，

scatterplot（）

迄今为止的代码：

Vs <- read.csv(file="x.csv", 
               header=TRUE,
               fill=TRUE)

#find variables with largest variance 
head(Vs)
variances <- apply(X=Vs, MARGIN=2, FUN=var)
sortedvars <- sort(variances, 
                   decreasing=TRUE, 
                   index.return=TRUE)$ix[1:2]

Vs.highvar <- Vs[, sortedvars]
Vs.highvar #returns variables V13 and V21

#create scatterplot
plot(nrow(Vs.highvar), Vs.highvar$V13, 
     main="Variances")

Vs请以纯文本格式包含代码和数据（例如使用
dput（head（Vs.highvar））
）。其他用户无法从图像复制/粘贴数据。改为上传文件，并提供指向文件的链接。