小编jef*_*lue的帖子

我在Windows 10上使用R 3.3.1(64位).我有一个xy数据集,我适合二阶多项式.我想在y = 4处求解x的最佳拟合多项式,并绘制从y = 4到x轴的下拉线.

这将在数​​据帧v1中生成数据:

v1 <- structure(list(x = c(-5.2549, -3.4893, -3.5909, -2.5546, -3.7247, 
-5.1733, -3.3451, -2.8993, -2.6835, -3.9495, -4.9649, -2.8438, 
-4.6926, -3.4768, -3.1221, -4.8175, -4.5641, -3.549, -3.08, -2.4153, 
-2.9882, -3.4045, -4.6394, -3.3404, -2.6728, -3.3517, -2.6098, 
-3.7733, -4.051, -2.9385, -4.5024, -4.59, -4.5617, -4.0658, -2.4986, 
-3.7559, -4.245, -4.8045, -4.6615, -4.0696, -4.6638, -4.6505, 
-3.7978, -4.5649, -5.7669, -4.519, -3.8561, -3.779, -3.0549, 
-3.1241, -2.1423, -3.2759, -4.224, -4.028, -3.3412, -2.8832, 
-3.3866, -0.1852, -3.3763, -4.317, -5.3607, -3.3398, -1.9087, 
-4.431, -3.7535, -3.2545, -0.806, -3.1419, …

在 Windows 10 中使用 R 3.3.1。我正在根据 95 行数据绘制 xy 图。数据分为 6 个不同的分组（称为“组”的因素）。 绘图本身很简单，但我无法让图例正确解释因素和颜色。

这是变量 v1 中的数据：

v1 <- structure(list(group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, …

这是我的数据的样子。 长话短说，我想散点图 A 组的 Y 值与 B 组的相应 X 值，并可以选择按样本为其着色。

我做了很多像这样的数据绘制（有更多变量），但它总是在subset(data, Group=='A')像or 这样的子集中subset(data, Group=='B')。当我需要跨组绘图时，这是罕见的情况。

情节代码本身很简单：

ggplot(data, aes(x=X(B), y=Y(A), color=as.factor(Sample))) +
geom_point()

我意识到我的 X(B) 和 Y(A) 不起作用；这只是为了说明目标。我还假设有一种方法可以生成仅包含 X(B) 和 Y(A) 值的新数据集；当然对任何方法都持开放态度，但我更喜欢在 GGPLOT 中处理实际的图表。这是我的可重复性数据集：

data <- structure(list(Group = c("A", "A", "A", "A", "A", "B", "B", "B", 
"B", "B", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B"), 
    Sample = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
    2L, 2L, …