2017-04-26 78 views
0

我想制作交互式雷达图。 ggRadar(注意ggRadar中的大写R;有一个名为ggradar的不同软件包)使用ggiraph中的交互式工具来执行此操作。R ggRadar交互式打开或关闭的行为差异

如果你运行下面的代码,你会得到一个很好看的雷达图表。如果更改为交互式= TRUE,那么你得到的错误信息

错误在P +主题(plot.title = element_text(hjust = 0.5,大小= 11, 家庭= “泰晤士报”,:无数值参数二元运算

require(ggiraphExtra) 
      spiderData <- data.frame(year = c("X2010", "X2020"), nut1 = c(2.87, 6.66), 
    nut2 = c(445, 486), nut3 = c(176, 251), stringsAsFactors = FALSE) 
          p <- ggRadar(data = spiderData[,1:ncol(spiderData)], 
mapping = aes(colour = year), 
    rescale = FALSE, interactive = FALSE, use.label = TRUE, legend.position = "right") 
      p <- p + theme(plot.title = element_text(hjust = 0.5, size = 11, family = "Times", 
       face = "plain")) + ggtitle("Title text") 
      p 

如果你只运行

ggRadar(data = spiderData[,1:ncol(spiderData)], mapping = aes(colour = year), 
      rescale = FALSE, interactive = TRUE, use.label = TRUE, legend.position = "right") 

你得到一个不错的互动图表。我想获得一个交互式图形在那里我可以还要添加标题等元素(以及其他可能的内容)。

回答

1

谢谢你对我的包ggiraphExtra感兴趣。
您可以使用ggiraph软件包中的ggiraph()函数获取交互式绘图。

要求(ggiraph) ggiraph(代码=打印(P))

+0

诀窍这是设置交互式为FALSE在该曲线图的原始结构,曲线图存储在变量中(第在这种情况下),然后使用'ggiraph(code = print(p))' – JerryN