Проблема с ggplot, выходящая по прямой линии

Question

Я пытаюсь найти связь между едой мороженого и игрой в игры.

Мой код:

sizedata = read.table(file.choose(), header= T, sep =',')
View(sizedata)
summary(sizedata)
lm(Icecream ~ Games, sizedata)

library(ggplot2)

ggplot(sizedata, aes(x=Icecream, y=Games)) + geom_point() + ylim(0,1000) + 
  stat_smooth(method='lm')

ggplot(sizedata, aes(x=Icecream, y=Games)) + geom_point() + ylim(0,1000) + 
  geom_smooth()

График выглядит так:

Это мой CSV-файл с данными

Answer 1

Как отметили @Russ Hyde и @camille - ваш параметр ylim слишком высокий.Попробуйте изменить его на более низкий - например, ylim(0,100) или ylim(0,50).