我想制作交互式雷达图。 ggRadar(注意ggRadar中的大写字母R;有一个名为ggradar的不同包)包使用ggiraph中的交互工具来执行此操作。
如果你运行下面的代码,你会得到一个漂亮的雷达图表。如果更改为interactive = TRUE,则会收到错误消息
p + theme中的错误(plot.title = element_text(hjust = 0.5,size = 11, family =" Times",:二元运算符的非数字参数
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")
你得到一个很好的互动图。我想获得一个交互式图表,我还可以在其中添加标题等元素(也可能还有其他内容)。
答案 0 :(得分:1)
感谢您关注我的ggiraphExtra包。
您可以使用ggiraph包中的ggiraph()函数获取交互式图。
需要(ggiraph) ggiraph(代码=打印(P))