我有以下代码:
library(rCharts)
C <- 1000
R <- 0.02
t <- 10
PV <- sapply(c(1:t), function(x) C*(1+R)^(-1*x))
TotPV <- sum(PV)
PVs <- data.frame(Time = c(1:t),PV)
h1 <- hPlot(x = 'Time', y = 'PV', data = PVs, type = 'line')
h1$tooltip(formatter = "#! function(){return('<b>t: </b>' + this.x + '<br/>' + '<b>PV: </b>' + this.y);} !#")
h1$colors(list('red'))
# h1$title(text = '')
# h1$xAxis(title = list(text = ''))
# h1$yAxis(title = list(text = 'PV'))
# h1$params$width <-200
# h1$params$height <- 200
h1
问题是线条颜色不是红色而是透明的。如果我注释掉colors属性,则线条颜色将更改为默认值(浅蓝色)。有人有想法吗?
答案 0 :(得分:2)
而不是:
h1$colors(list('red'))
您可以尝试添加:
h1$plotOptions(series = list(color = 'red'))