小编M_M*_*M_M的帖子

在选择（单击）数据表中的相应记录时，是否可以在传单地图上突出显示标记或折线？

我看了这些问题/线索：

从DT行中选择传单上的标记，然后单击，反之亦然 -无答案

https://github.com/r-spatial/mapedit/issues/56- 检查及时投资组合在2017年7月23日的评论。如gif所示，我希望能够在数据表中选择一行，以便相应的地图对象（标记/折线）也将突出显示（无需编辑地图）。

这是一个工作示例，其中在下面的数据表中选择了高亮显示的地图对象，但反之则不然，这就是我要实现的目标。

##############################################################################
# Libraries
##############################################################################
library(shiny)
library(shinythemes)
library(ggplot2)
library(plotly)
library(leaflet)
library(DT)
##############################################################################
# Data
##############################################################################
qDat <- quakes
qDat$id <- seq.int(nrow(qDat))
str(qDat)
##############################################################################
# UI Side
##############################################################################
ui <- fluidPage(
  titlePanel("Visualization of Fiji Earthquake"),

  # side panel
  sidebarPanel(
    h3('Fiji Earthquake Data'),

    sliderInput(
      inputId = "sld01_Mag",
      label="Show earthquakes of magnitude:", 
      min=min(qDat$mag), max=max(qDat$mag),
      value=c(min(qDat$mag),max(qDat$mag)), step=0.1
      ),

    plotlyOutput('hist01')
    ),

  # main panel
  mainPanel(
    leafletOutput('map01'),
    dataTableOutput('table01')
    )

)
##############################################################################
# Server Side
##############################################################################
server <- function(input,output){
  qSub <- …

使用highcharter，有没有办法复制geom_ribbon表单ggplot2？

这是我的数据：

ITEM <- c("A","A","A","B","B","B","B","C","C","D","D","E","E","F","G","G","G")
LOCATION <- c("aaa","bbb","ccc","bbb","fff","ggg","zzz","zzz","eee","hhh","iii","kkk","jjj","iii","iii","yyy","xxx")
df <- as.data.frame(cbind(ITEM,LOCATION))

Long Form:
       ITEM LOCATION
    1     A      aaa
    2     A      bbb
    3     A      ccc
    4     B      bbb
    5     B      fff
    6     B      ggg
    7     B      zzz
    8     C      zzz
    9     C      eee
    10    D      hhh
    11    D      iii
    12    E      kkk
    13    E      jjj
    14    F      iii
    15    G      iii
    16    G      yyy
    17    G      xxx

宽格式（更易于阅读）：

ITEM LOCATION.1 LOCATION.2 LOCATION.3 LOCATION.4
A        aaa        bbb        ccc       <NA>
B        bbb        fff        ggg …

我创建了一个虚拟函数来获取一个变量的滞后，我想将它与其他tidyverse函数一起使用。它在我调用后起作用mutate，但在调用后不起作用group_by。它抛出以下错误： Error in mutate_impl(.data, dots) : Not compatible with STRSXP: [type=NULL].

这是一个代表：

#create a function to lag a selected variable
lag_func <- function(df, x) {
  mutate(df, lag = lag(df[,x])) 
}

#works
iris %>% 
  mutate(lead = lead(Petal.Length)) %>%
  lag_func('Petal.Length')

#doesn't work
iris %>%
  group_by(Species) %>%
  mutate(lead = lead(Petal.Length)) %>%
  lag_func('Petal.Length')

知道错误意味着什么和/或如何修复它吗？