forked from filipg/aitech-eks-pub
9 lines
255 B
R
9 lines
255 B
R
|
library(ggplot2)
|
||
|
|
|
||
|
|
prices = read.csv("mieszkania.tsv", sep="\t", header=TRUE)
|
||
|
|
prices$area = prices$powierzchnia
|
||
|
|
prices$price = prices$cena
|
||
|
|
pdf("linregr2.pdf")
|
||
|
|
ggplot(prices, aes(x=area, y=price)) + geom_point() + stat_smooth(method=lm, se=FALSE)
|
||
|
|
dev.off()
|