r - 如何在具有构面的组中添加一条最适合ggplot的线

Question

我有一个包含以下变量的数据集(水果、价格、国家/地区、有机/非有机、位置)。

我想要一个像这里一样的图，但添加了一个东西 - 一条最适合的线穿过有机/非有机、位置和水果的每个分组的点。

情节-> https://dl.dropboxusercontent.com/u/3803117/stackoverflow.jpeg 例如，在“Organic, City”方 block 中，我想要 4 行最适合的行 - 一行以苹果、香蕉、樱桃、枣等为中心。

这是我用来生成绘图的代码。

p <- ggplot(data,aes(factor(fruit),price)) + 
  geom_violin(aes(fill=Country,trim=FALSE)) + 
  geom_boxplot(aes(fill=Country),position=position_dodge(0.9),width=.1) + 
  geom_jitter(alpha=0.5) + 
  facet_wrap(organic~location) +
  xlab("Fruit") +
  ylab("Price") +
  labs(fill="Country")

这是一个示例数据集，如果它可能有帮助 -> https://dl.dropboxusercontent.com/u/3803117/stackoverflow.csv

非常感谢您提供的所有帮助!

Answer 1

geom_abline 文档没有明确说明您要查找的内容吗？请参阅“#线性模型的斜率和截距”部分

http://docs.ggplot2.org/current/geom_abline.html

编辑:刚刚检查并意识到没有没有 SE 频段的示例，但您可以通过设置 SE=FALSE 轻松禁用它们:

p <- qplot(wt, mpg, data = mtcars)
p <- p + geom_smooth(aes(group=cyl), method="lm", se=FALSE)
p <- p + facet_grid(cyl~.)
print(p)

如果您提供了示例数据集，它会更容易为您提供帮助。

编辑2:以下内容可能更类似于 OP 的设想。然而，我要强调它没有意义，因为国家(或水果、类型或任何东西)的排序通常不能用于制定有用的线性关系:

p <- ggplot(data,aes(factor(country),price)) + 
  geom_violin(aes(fill=country,trim=FALSE)) + 
  geom_boxplot(aes(fill=country),position=position_dodge(0.9),width=.1) + 
  geom_jitter(alpha=0.5) + 
  facet_wrap(organic~location+fruit) +
  xlab("Fruit") +
  ylab("Price") +
  labs(fill="country")
p <- p + geom_smooth(aes(group=1,color=country), method="lm", se=FALSE)
p