090909

data(RecreationDemand)
d <- RecreationDemand
datatable(d)

ggplot(RecreationDemand, aes(x = income, y = trips)) +
  geom_point(aes(color = userfee), size = 3) +
  geom_smooth(method = lm, se = T) +
  labs(title = "Biểu đồ phân tán các chuyến đi theo thu nhập",
       x = "Thu nhập hộ gia đình (1.000 USD)",
       y = "Số chuyến chèo thuyền")

## `geom_smooth()` using formula = 'y ~ x'

• Số chuyến chèo thuyền (trips) có mối tương quan âm với việc trả phí sử dụng hàng năm (userfee). Điều này có nghĩa là những người trả phí sử dụng hàng năm có xu hướng có Số chuyến chèo thuyền ít hơn những người không trả phí.
• Số chuyến chèo thuyền (trips) có mối tương quan dương với thu nhập của hộ gia đình (income). Điều này có nghĩa là khi thu nhập của hộ gia đình cao hơn thì Số chuyến chèo thuyền sẽ tăng và ngược lại.
• Có sự khác biệt về thu nhập giữa những người trả phí sử dụng hàng năm (userfee) và những người không trả phí. Những người trả phí sử dụng hàng năm có xu hướng có thu nhập cao hơn những người không trả phí.