代码之家 › 专栏 › 技术社区 › KGB91

在ggplot2中将ggflags与线性回归相结合

linear-regression ggplot2 r

KGB91 · 技术社区 · 4 年前

我有如下数据:

我想在上面运行一个线性回归模型,用国旗代替通常的圆点 ggflas ( https://github.com/jimjam-slam/ggflags ):

Data <- read.xlsx(
  paste0(mainDirectory, "Data.xlsx"),
  "Data")


ggplot(Data, aes(x = x, y = y, country=country, size = 11)) + 
  geom_flag() + 
  scale_country() +
  scale_size(range = c(10, 10)) +
  geom_smooth(method = "lm", se = FALSE)

这很好,除了我没有显示回归线:

你知道为什么我可以在同一个图中得到这些标志和回归线吗?

1 回复 | 直到 4 年前

stefan 4 年前

通过添加 group=1 审美 geom_smooth 。否则,您的数据将按 country 最终,每个国家只有一个OB,所以你不会得到一条线路:

library(ggplot2)
library(ggflags)

set.seed(123)

Data <- data.frame(
  country = c("at", "be", "dk", "fr", "it"),
  x = runif(5),
  y = runif(5)
)

ggplot(Data, aes(x = x, y = y, country = country, size = 11)) +
  geom_flag() +
  scale_country() +
  scale_size(range = c(10, 10)) +
  geom_smooth(aes(group = 1), method = "lm", se = FALSE, size = 1)
#> `geom_smooth()` using formula 'y ~ x'

推荐文章

user144153 · 使用python的线性拟合中的错误传播

8 年前

user8276807 · 在logistic回归中添加虚拟变量向量

8 年前

Achow · 多元线性回归Python statsmodel在输出中显示预测变量[T.x]

8 年前

Try Khov · 在R中的lm()中键入多个解释变量是否有捷径?

8 年前

Fanta · 当预测应该是(非分类)整数时,如何舍入预测?[已关闭]

8 年前

78282219 · Proc reg:并行检查最佳三个变量

8 年前

demalegabi · 试图理解线性回归中的期望值

8 年前

Kalpit · 比较线性回归的计算和分析结果

8 年前

BadPractice · 了解R中的durbin-watson测试

8 年前

Fackelmann · Python-Scikit-LinearRegression和Ridge返回不同的结果

8 年前