2

我尝试使用 rCharts 和 polychart 前端构建图表：

dtf <- data.frame(x=c(1, 2, 3, 4, 5), y=c(4, 5, 6, 3, 5), 
              label=c('one', 'two', 'one', 'two', 'two'))
color.mapping <- list(one='#ff2385', two='#229922')
p2 <- rPlot(x='x', y='y', data=dtf, type='point', color='label')
print(p2)

我想通过使用某种离散映射（如上面的示例）或使用其他逻辑来控制点颜色。这是怎么做的

编辑

按照Ramnath 的回答，我尝试执行以下操作，但我得到一个空页面：

dtf <- data.frame(x=c(1, 2, 3, 4, 5), y=c(4, 5, 6, 3, 5), 
                  label=c('one', 'two', 'one', 'two', 'two'))

p2 <- rPlot(x='x', y='y', data=dtf, type='point', color='label')

p2$guides(color = list(scale = "#! function(value){
   color_mapping = {one: '#ff2385', two: '#229922'}
   return color_mapping[value];                  
 } !#"))


print(p2)

从 github 升级 rCharts 的分辨率解决了这个问题。

4

1 回答 1

2

目前这在 Polychart 中有点复杂，尽管我们正在尝试创建一个对 R 更友好的解决方案。但是现在，这里是在 Polychart 中设置自定义比例的方法

p2$guides(color = list(scale = "#! function(value){
  color_mapping = {one: '#ff2385', two: '#229922'}
  return color_mapping[value];                  
} !#"))

这个想法是为色彩美学设定一个尺度。但不是使用调色板，而是指定一个函数，该函数根据映射返回颜色。您需要在和之间包装函数#!，!#以便 rCharts 将其视为 JS 文字，并且在转换为 JSON 时不会对其进行字符串化。

如果您不确定如何color_mapping在 JSON 中指定，您可以使用该函数toJSON来转换您的 R 对象。唯一需要注意的是避免在函数内使用双引号，因为它们往往会被转义并因此导致错误。

希望这很有用。

于 2013-09-01T15:18:18.873 回答