Điều này có thể được thực hiện ở highcharts và rất có thể là những người khác. Tôi đã thực hiện công việc tốt đẹp được thực hiện here. Một phiên bản đơn giản đó là:
library(rCharts)
h <- Highcharts$new()
h$xAxis(categories = c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'))
h$yAxis(list(list(title = list(text = 'Rainfall'))
, list(title = list(text = 'Temperature'), opposite = TRUE)
, list(title = list(text = 'Sea Pressure'), opposite = TRUE))
)
h$series(name = 'Rainfall', type = 'column', color = '#4572A7',
data = c(49.9, 71.5, 106.4, 129.2, 144.0, 176.0, 135.6, 148.5, 216.4, 194.1, 95.6, 54.4))
h$series(name = 'Temperature', type = 'spline', color = '#89A54E',
data = c(7.0, 6.9, 9.5, 14.5, 18.2, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6),
yAxis = 1)
h$series(name = 'Sea-Level Pressure', type = 'spline', color = '#AA4643',
data = c(1016, 1016, 1015.9, 1015.5, 1012.3, 1009.5, 1009.6, 1010.2, 1013.1, 1016.9, 1018.2, 1016.7),
yAxis = 2)
h
Những hy vọng sẽ cung cấp cho biểu đồ này
này trông tuyệt vời! – Ramnath
@Ramnath cảm ơn và cảm ơn tất cả công việc bạn và Thomas Reinholdsson và những người khác đã làm. – jdharrison
Cảm ơn bạn. Nhận ra rằng Highcharts là phần mềm thương mại mặc dù và muốn sử dụng một thư viện mở vì vậy tôi tiếp tục tìm kiếm. – tfrojd