有很好的方法来绘制趋势线吗？

Question

我有一个称为df的数据框架，包括：
列B是：

(2015  , 2016  , 2017  , 2018  , 2019, 2020) -> b 

列值包括：

(0.1239, 0.1147, 0.1151, 0.1195, 0.1143, 0.0856) -> values 

我想按B（年）绘制列列（直线）的趋势线（直线），但是我不能。以下是我尝试过的四个不同的方法：

附件文件中的红线是我需要的：

方法1

plot(b, values,
xlab= "Year", ylab = "Values (%)", main="Profit on equity", pch=19, type="line")
grid()
box()

结果：

这是一条线，但不是趋势线（直线）

方法2：

plot(b~values,
     xlab= "Year", ylab = "Value (%)", main="Profit on equity", pch=19)
abline(lm(b~means))
grid()

结果：结果：< /strong>
。

结果显示了与方法1相反的列。我不知道如何判断其趋势，但尚不清楚。

方法3

plot(values~b,
     xlab= "Year", ylab = "Value (%)", main=" Profit on equity", pch=19)
abline(lm(values~b))
grid()

结果：
。

这显示了点，没有趋势线或创建的

方法4

ggplot(df, aes(b, values)) + geom_point() + 
  geom_abline()

或

ggplot(df, aes(b, values)) + geom_point() + 
  geom_smooth(method = "lm", formula = values ~ b)

结果：
。

这显示了点，没有线或直线创建

结论

，即使我尝试了不同的方式，我也无法创建趋势线。

请帮助我解决这个问题。

注意：实际上，很难认识到数据的趋势，因为它可能会上下，因此趋势线有助于我对数据趋势做出判断。

我期待着您的帮助。

Answer 1

我认为您正在寻找这个。

plot(dat[c('b', 'values')], type='l', 
     main='Profit on equity', xlab='Year', ylab='Values (%)')
grid()
abline(lm(values ~ b, dat), col=2, lwd=2)

---

数据：

dat <- structure(list(b = c(2015, 2016, 2017, 2018, 2019, 2020), values = c(0.1239, 
0.1147, 0.1151, 0.1195, 0.1143, 0.0856)), class = "data.frame", row.names = c(NA, 
-6L))

Answer 2

尝试此

plot(b, values, xlab= "Year", ylab = "Values (%)", main="Profit on equity", pch=19)
abline(lm(values~b))

Answer 3

这是ggplot2方式。

• 数据的线图很简单；
• 公式参数继承x和y美学。比较与您的方法

c(2015, 2016, 2017, 2018, 2019, 2020) -> b 
c(0.1239, 0.1147, 0.1151, 0.1195, 0.1143, 0.0856) -> values
dat <- data.frame(b, values)

library(ggplot2)

ggplot(dat, aes(b, values)) +
  geom_line() +
  geom_smooth(formula = y ~ x, method = lm, se = FALSE, color = "red", size = 1.5) +
  labs(x = "Year", y = "Values (%)") +
  theme_bw()

。

4 /reprex.tidyverse.org“ rel =“ nofollow noreferrer”> reprex软件包 （v2.0.1）

---

编辑

要将绘图标题放在绘图的中间，theme_bw必须在设置theme（plot.title =。）之前出现。 。

ggplot(dat, aes(b, values)) +
  geom_line() +
  geom_smooth(formula = y ~ x, method = lm, se = FALSE, color = "red", size = 1.5) +
  labs(x = "Year", y = "Values (%)") +
  ggtitle("Return on Equity") + 
  theme_bw() +
  theme(plot.title = element_text(hjust = 0.5))