使用散点图中的坐标分离R中的数据帧

使用散点图中的坐标分离R中的数据帧,r,R,此散点图中的每个点都是数据帧中的一列。我想在我画的线的左边得到一个列列表。我现在真的不知道从哪里开始。 为了澄清我的问题,我想在该行的左侧或右侧获得一个列表或列数组。我不需要别人帮我划清界限 下面是我如何生成情节的 pcaPlot = qplot(x=prin_comp$rotation[,1], y=prin_comp$rotation[,2]) + geom_text(aes(label=row.names(prin_comp$rotation)))

此散点图中的每个点都是数据帧中的一列。我想在我画的线的左边得到一个列列表。我现在真的不知道从哪里开始。

为了澄清我的问题,我想在该行的左侧或右侧获得一个列表或列数组。我不需要别人帮我划清界限

下面是我如何生成情节的

  pcaPlot = qplot(x=prin_comp$rotation[,1], y=prin_comp$rotation[,2]) +
                  geom_text(aes(label=row.names(prin_comp$rotation))) +
                  ggtitle(my_title)

你可以试试基本的R方法

# run a Principal Components Analysis
pca <- prcomp(USArrests)

# plot the first two components
plot(pca$x[,1], pca$x[,2])

# plot a straight line to a pPlot with slope == 0.5 
h <- abline(a = 0, b=0.5, lwd=2)
#运行主成分分析
pca%
突变(gr=PC1*b%
ggplot(aes(PC1,PC2))+
几何线(斜率=b,截距=0)+
几何点(aes(颜色=gr))

你可以尝试一种基本的R方法

# run a Principal Components Analysis
pca <- prcomp(USArrests)

# plot the first two components
plot(pca$x[,1], pca$x[,2])

# plot a straight line to a pPlot with slope == 0.5 
h <- abline(a = 0, b=0.5, lwd=2)
#运行主成分分析
pca%
突变(gr=PC1*b%
ggplot(aes(PC1,PC2))+
几何线(斜率=b,截距=0)+
几何点(aes(颜色=gr))

用肉眼看,你的线条看起来像是
y=-10x+0.2875,所以你只需要测试一下

(10*prin_comp$rotation[,1] + prin_comp$rotation[,2] - 0.2875) > 0

如果这是
真的
那么它是线右边的一个点,如果
假的
那么它是线左边的一个点。

用肉眼看,你的线看起来像是
y=-10x+0.2875
,所以你只需要测试一下

(10*prin_comp$rotation[,1] + prin_comp$rotation[,2] - 0.2875) > 0

如果这是
真的
那么这是一个在右边的点,如果
假的
那么这是在左边。

请帮我把我的问题也重新表述一下。这太糟糕了。如果我知道如何更优雅地提问,我相信我能更容易地找到答案。也许读一下“聚类分析”?发布您使用的代码,您通常会拥有跨越数据帧行(而不是指定的列)的给定点的数据。如果您拥有行的详细信息(y=ax+b)检查给定行的ycbind
PC1*b感谢对abline的帮助。但是我现在已经澄清了我的问题。我不帮助绘制不同的簇,我想根据图中的簇来划分(子集)数据框。为什么不
cbind
PC1*b