Попробуйте это:
library(dplyr)
globalterrorismdb_0718dist %>%
count(iyear) %>%
ggplot(.,aes(x = iyear, y = n))+geom_point()+
geom_smooth(method = "loess")+
labs(x = "Year", y = "Number of attacks")
ОБНОВЛЕНИЕ:
globalterrorismdb_0718dist %>%
count(iyear) %>%
lm(data = . , iyear~n) %>% summary()
Call:
lm(formula = iyear ~ n, data = .)
Residuals:
Min 1Q Median 3Q Max
-15.637 -9.578 -4.462 11.605 17.101
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.984e+03 2.227e+00 890.832 < 2e-16 ***
n 2.449e-03 4.111e-04 5.958 3.61e-07 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 10.7 on 45 degrees of freedom
Multiple R-squared: 0.4409, Adjusted R-squared: 0.4285
F-statistic: 35.49 on 1 and 45 DF, p-value: 3.61e-07