我想创建一个散点图,它会在悬停时链接共享特定属性的点并显示工具提示,类似于此处的示例http://i.stack.imgur.com/fAWem.gif
我目前正在使用ggvis制作情节,尽管我不确定它是否支持此功能。可视化将以闪亮的方式显示。这就是我的可视化目标的代码。我希望点加入的分类变量是Choice_2
。
plot_data %>%
ggvis(x= ~X,y= ~Y, size= ~Size_val,stroke := "white") %>%
layer_points(fill= ~Choice_1, opacity := I(2/5)) %>%
scale_numeric(property = 'size', domain = c(0.01,0.52),range = c(100,5200))%>%
hide_legend(scales = 'size') %>%
bind_shiny("ggvis", "ggvis_ui")
非常感谢任何帮助或参考。
答案 0 :(得分:1)
如@vck所述,请查看Rcharts
。请注意,该示例取自here
library(rCharts)
r1<- nPlot(mpg ~ wt, group = 'cyl', data = mtcars, type="scatterChart")
r1$chart(tooltipContent = "#! function(key, x, y, e,graph){
return '<b>carb</b>: ' + e.point.carb
} !#")
r1$chart(size = '#! function(d){return d.disp} !#')
r1
答案 1 :(得分:0)
试试这个;
require(devtools)
install_github('rCharts', 'ramnathv')
library(rCharts)
x=rnorm(100)
y=rnorm(100)
data<-data.frame(y,x)
rPlot(y~x, data = data, type = "point")
rCharts是一个非常有用的软件包,你可以在R中使用polycharts和highcharts。