Biểu đồ cổ phiếu đẹp mắt (2)
Trong bài này, bạn sẽ thêm chú giải vào biểu đồ vừa tạo, bao gồm tên công ty cùng ngày và giá trị cổ tức mới nhất.
Hãy điền vào đoạn mã mẫu bằng các biến sau, chứa giá trị và ngày cổ tức cho cả hai công ty:
citi_div_valueciti_div_datemicro_div_valuemicro_div_date
Nhớ rằng màu mặc định của đường vẽ là màu đen, và các giá trị cho legend, col và lty trong legend() cần được thiết lập thành các vector có độ dài bằng với số chuỗi thời gian được vẽ trong biểu đồ của bạn.
Nếu bạn không nhìn thấy hết phần chú giải, hãy thử bật biểu đồ toàn màn hình sau khi vẽ. Hãy làm cho biểu đồ của chúng ta còn ấn tượng hơn nữa!
Bài tập này là một phần của khóa học
Trực quan hóa dữ liệu chuỗi thời gian trong R
Hướng dẫn bài tập
- Tạo lại biểu đồ giống bài trước (đã được làm sẵn cho bạn)
- Dùng các biến đã nạp sẵn ở trên để tạo chuỗi ký tự
microvàcitidùng trong chú giải "Microsoft div of $0.39 on 15 Nov. 2016""Citigroup div of $0.16 on 13 Nov. 2016"- Tạo chú giải ở góc dưới bên phải của biểu đồ, sử dụng các chuỗi
microvàcitibạn vừa tạo làm nội dung, đặt màu nhãn phù hợp và kiểu đường liền
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Same plot as the previous exercise
plot(data$microsoft, main = "Dividend date and amount")
lines(data$citigroup, col = "orange", lwd = 2)
axis(side = 4, at = pretty(data$citigroup), col = "orange")
# Create the two legend strings
micro <- paste0("Microsoft div. of ", ___," on ", ___)
citi <- paste0("Citigroup div. of ", ___," on ", ___)
# Create the legend in the bottom right corner
legend(x = ___, legend = c(___, ___), col = c(___, ___), lty = c(___, ___))