0

我有一个 ggplot 我想变成交互式的。但是，我不希望所有对象都具有交互性，因为有些对象实际上是用作一种背景图（在这种情况下，是一排排温室植物）。顶部方块中的数据应该是交互式的，而不是绿色的植物点或灰色的行。

这甚至可以通过情节来实现吗？如果是这样：如何？

我的代码和结果（我添加了theme_update()因此复制看起来与我的完全一样，尽管它不太重要）：

代码

    # counts in greenhouse 
Wtot <- c(10,65,139,87) 
plant <- c(15,15,30,30) 
row <- c(10,20,10,20) 
df <- data.frame(Wtot,plant,row)

    # df for greenhouse background 
nrows = 40 
nplants = 50 
greenh <- data.frame(   
  Row <- rep(1:nrows, each=nplants),   
  Plant <- rep(1:nplants, times=nrows),   
  Plantnr <- paste("plant",1:(nrows*nplants)) 
)

    # plottheme
theme_set(theme_bw()) 
theme_update(axis.title.x = element_text(size = 16, colour = 'black'),
             axis.title.y = element_text(size = 16, colour = 'black', angle = 90),
             axis.text.x = element_text(size = 12, colour = 'black'),
             axis.text.y = element_text(size = 12, colour = 'black'),
             legend.text = element_text(size = 14, colour = 'black'),
             legend.title = element_blank(),
             legend.position = "right",
             legend.box = "vertical",
             strip.text.x = element_text(size = 14, colour = 'black'),
             strip.text.y = element_text(size = 14, colour = 'black', angle = -90),
             panel.background = element_rect(fill = "gray94"),
             panel.grid.minor = element_blank(),
             panel.grid.major = element_blank())

    # plot 
p <- ggplot(data=df, aes(row, plant, colour=Wtot)) +   
   xlim(0,nrows) +   
   ylim(0,nplants) +   
   coord_equal() +   
   geom_vline(xintercept=1:nrows, colour="darkgrey", alpha=0.5, size=0.7) +    
   geom_point(data=greenh, aes(x=Row, y=Plant), colour="darkgreen", alpha=0.3) +  
   geom_point(aes(fill=Wtot, size=Wtot), colour="black", pch=22) +  
   scale_fill_gradient2(low="green", mid="yellow", high="red", na.value="grey", 
                           limits=c(0,300), midpoint=150, breaks=c(0,75,150,225,300)) +   
   scale_size_continuous(range=c(3,6), limits=c(0,300), breaks=c(0,75,150,225,300)) +    
   guides(fill=guide_legend(), size = guide_legend())

图形 在此处输入图像描述

4

2 回答 2

2

你有几个选择：

选项1：使用ggplotly你将失去你的传奇。但是您必须手动添加积分。

 # p <- ggplot(data=df, aes(row, plant, colour=Wtot)) +   
   p <- ggplot(data=greenh, aes(x=Row, y=Plant)) + 
   xlim(0,nrows) +   
   ylim(0,nplants) +   
   coord_equal() +   
   geom_vline(xintercept=1:nrows, colour="darkgrey", alpha=0.5, size=0.7) +    
   geom_point(colour="darkgreen", alpha=0.3) +  
  #geom_point(aes(fill=Wtot, size=Wtot), colour="black", pch=22) +  
   scale_fill_gradient2(low="green", mid="yellow", high="red", na.value="grey", 
                         limits=c(0,300), midpoint=150, breaks=c(0,75,150,225,300)) +   
   scale_size_continuous(range=c(3,6), limits=c(0,300), breaks=c(0,75,150,225,300)) +    
   guides(fill=guide_legend(), size = guide_legend())

  pp <- ggplotly(p, tooltip = "none")
  pp %>% add_markers(x = c(10, 20, 10, 20), y = c(15, 15, 30, 30), color = I("green"), text = c(10, 65, 139, 87), symbol = I('square'), marker = list(size = c(14, 13, 15, 12)))

选项2：使用plot_ly您可以获得与图例类似的东西。您只需根据需要设置颜色和尺寸。

plot_ly(data=greenh, x=~Row, y= ~Plant) %>% 
add_markers(showlegend = FALSE, color = I("green"), hoverinfo = "none") %>% 
add_markers(data=df, x=~row, y= ~plant, showlegend = TRUE, color = ~ Wtot, size = ~ Wtot)
于 2018-02-23T13:05:24.380 回答
0

所以我找到了解决方案，并且还发现我遗漏了非常重要的信息：我在 flexdashboard 中使用了这个交互式绘图。我省略了那部分以保持示例简单，但显然它是关键！

这个问题的答案让我走上了正确的轨道：How do I show the y value on tooltip while hover in ggplot2

使用闪亮功能时，plotOutput()您renderPlot()可以通过. Flexdashboards 没有单独的 ui 和服务器部分，因此不使用。这意味着您需要单独指定悬停选项，然后通过参数添加它们（更多信息：https ://shiny.rstudio.com/articles/output-args.html ）。hover =plotOutputplotOutput()renderPlot()outputArgs = 

 # specify hover details
 HO <- hoverOpts(id = "plot_hover", delay = 300, delayType = c("debounce", "throttle"), 
                 clip = TRUE, nullOutside = TRUE)

 # reactive plot function
 renderPlot({
 ggplot(data=df, aes(row, plant, colour=Wtot)) +   
   xlim(0,40) +   
   ylim(0,50) +   
   coord_equal() +   
   geom_vline(xintercept=1:nrows, colour="darkgrey", alpha=0.5, size=0.7) +    
   geom_point(data=greenh, aes(x=Row, y=Plant), colour="darkgreen", alpha=0.3) +  
   geom_point(aes(fill=Wtot, size=Wtot), colour="black", pch=22) +  
   scale_fill_gradient2(low="green", mid="yellow", high="red", na.value="grey", 
                           limits=c(0,300), midpoint=150, breaks=c(0,75,150,225,300)) +   
   scale_size_continuous(range=c(3,6), limits=c(0,300), breaks=c(0,75,150,225,300)) +    
   guides(fill=guide_legend(), size = guide_legend())
}, outputArgs = list(hover = HO)) # include hover options

现在情节已准备好显示悬停信息，但尚未显示任何内容。您必须指定要查看的信息。在这里我可以告诉它只显示正方形的信息而不是温室元素的信息：

# shown hover results
renderPrint({ 
  hover <- input$plot_hover
  y <- nearPoints(df, input$plot_hover)
  req(nrow(y) != 0)
  y
})

您可以进一步调整代码以将信息显示为工具提示（请参阅上面提到的线程）。

我希望这对其他人有帮助！

于 2018-03-13T17:00:21.090 回答