Quantmod Bollinger Bands

Isso pode ser mais geralmente ser como mudar as cores do tema ou talvez as cores TA não sejam controladas pelo tema. Isso faz as bandas bollinger com um bom efeito de nuvem: o efeito da nuvem é cinza escuro neste próximo exemplo, então quase invisível. Como posso mudá-lo para ser, digamos, um bom vermelho brilhante, com roxo brilhante para as linhas superior e inferior (Sim, eu sei, -1 para o esquema de cores) Eu acredito que eu vou poder especificar um dígito de 8-hexadecimal Cor para especificar a semi-transparência. Mas posso fazer algo mais exótico. Seria bastante legal usar um gradiente e ter o ff0000 no centro, desaparecendo para 330000 nas linhas superior e inferior. Há algum suporte de gradiente no gráfico do quantmod solicitado 8 de dezembro 11 às 5:06 Respondendo a resposta de Benjamins e minhas próprias aprendizagens, aqui é um exemplo: o acima desenha duas bandas de bollinger, em esquema de cores padrão. O seguinte irá alterá-los para ser um vermelho semi-transparente (ou seja, o vermelho é mais forte onde ambos existem): Do meu estudo da fonte, isso deveria ter funcionado para alterar as cores da linha: Mas não. No entanto, você pode alterar as cores do topbottom com a mesma cor com: E aqui está como fazer o mesmo com a função charteries () mais recente e perceber que você pode definir as cores da linha individualmente (NB. Não há função reChart, na medida em que Posso ver): não é possível, até onde eu sei, usar um esquema de cores diferente para cada uma das duas bandas de bollinger. Mesmo alterando o esquema de cores, como isso falha, como depois do segundo comando, ele redrava as duas novas com as novas cores atendidas em 14 de dezembro às 12: 31 Estou tendo problemas para testar uma estratégia Bollinger Band em R. A lógica é que eu quero fazer uma breve Posicione se o Fechar for maior do que a Banda superior e, em seguida, feche a posição quando cruza a Média. Eu também quero tomar uma posição longa se o fechar for menor que a faixa inferior e feche a posição quando cruza a média. Até agora, isto é o que eu tenho: bbands lt - BBands (stockClose, n20, sd2) sig1 lt - Lag (ifelse ((stockClose gtbbandsup), - 1,0)) sig2 lt - Lag (ifelse ((stockClose ltbbandsdn), 1 , 0)) sig3 lt - Lag (ifelse ((stockClose gt bbandsmavg), 1, -1)) sig lt-sig1 sig2 Isto é onde eu estou preso, como eu uso sig3 para obter os resultados desejados